tirotiro
Ko nga huānga i roto i te Visual Basic mo te Taupānga he hanganga e pupuri ana i nga huinga o nga taurangi whai hononga o te momo rite. Ka uru atu nga whakaurunga huānga e o ratou taupū tau.
Hei tauira, he roopu 20 nga tangata me tiaki o ratou ingoa mo te whakamahi a muri ake ki te waehere VBA. Ka taea e tetahi te whakaatu i nga taurangi 20 hei pupuri i ia ingoa, penei:
Ataahua Kapa_Mema1 Hei Aho Momo Kapa_Mema2 Hei Aho ... Ataahua Team_Mema20 Hei Aho
Engari ka taea e koe te whakamahi i te huarahi ngawari ake me te whakarite - penapenahia he rarangi ingoa o nga mema o te roopu i roto i te huinga o nga taurangi 20 penei aho:
Ataahua Nga Mema_Mema(1 Ki te 20) Hei Aho
I roto i te rarangi e whakaatuhia ana i runga ake nei, kua whakaatuhia e matou he huinga. Inaianei me tuhi he uara ki ia huānga, penei:
Team_Members(1) = "John Smith"
He painga atu mo te penapena raraunga i roto i te huranga, ka whakatauritea ki te whakamahi i nga taurangi motuhake, ka kitea i te wa e tika ana kia rite te mahi ki ia huānga o te huānga. Mena ka penapena nga ingoa o nga mema o te roopu ki roto i nga taurangi motuhake e 20, ka 20 nga rarangi waehere hei tuhi i ia wa ki te mahi i taua mahi ki ia o ratou. Heoi, ki te penapena nga ingoa ki roto i te rarangi, ka taea e koe te mahi i nga mahi e hiahiatia ana me ia o raatau ma te whakamahi i te kopikopiko ngawari.
Kei raro nei te ahua o te mahi me tetahi tauira waehere e tuhi ana i nga ingoa o ia mema o te roopu ki roto i nga waahanga pou. A pepa mahi Excel hohe.
Mo i = 1 Ki te 20 Pūtau(i,1).Uara = Kapa_Mema(i) Panuku i
Ko te tikanga, ko te mahi me te huinga e pupuri ana i nga ingoa 20 he iti ake te uaua me te tika atu i te whakamahi i nga taurangi motuhake e 20. Engari ka pehea mena ehara enei ingoa i te 20, engari 1000? A, ki te mea, hei taapiri atu, me noho wehe nga ingoa ingoa me nga ingoa patronymics?! E marama ana ka kore e taea te whakahaere i te nui o nga raraunga i roto i te waehere VBA me te kore awhina o te raupapa.
Ko nga huinga ahu maha i roto i te Excel Visual Basic
Ko nga huinga Visual Basic i korerohia i runga ake nei ka kiia he ahua kotahi. Ko te tikanga ka penapena he rarangi ingoa ngawari. Heoi ano, he maha nga waahanga o nga raupapa. Hei tauira, ka taea te whakataurite i te huinga ahu-rua ki te matiti uara.
Me kii e hiahia ana koe ki te penapena i nga tatauranga hoko o ia ra mo Hanuere mo nga roopu rereke e 5. Ka hiahiatia he huinga ahu-rua e 5 nga huinga ine mo te 31 ra. Me whakaatu he huānga penei:
Ataahua Jan_Sales_Figures(1 Ki te 31, 1 Ki te 5) Hei Moni
Hei uru atu ki nga huānga huinga Jan_Sales_Figures, me whakamahi koe i nga tohu e rua e tohu ana i te ra o te marama me te tau whakahau. Hei tauira, ko te wahitau o tetahi huānga kei roto nga nama hoko mo 2-aue kapa mo 15th Ko Hanuere ka tuhia penei:
Jan_Sales_Figures(15, 2)
Waihoki, ka taea e koe te whakaatu i te huānga me te 3 neke atu ranei nga rahi - me tapiri noa etahi atu inenga ki te whakapuakanga hurangi me te whakamahi i nga tohu taapiri hei tohu ki nga huānga o tenei huānga.
Whakapuaki Huanga ki Excel Visual Basic
I mua ake i tenei tuhinga, kua tirohia e matou etahi tauira o te whakapuaki i nga raupapa i roto i te VBA, engari me ata titiro tenei kaupapa. Ka rite ki te whakaatu, ka taea te whakaatu i tetahi huinga ahu kotahi penei:
Ataahua Nga Mema_Mema(1 Ki te 20) Hei Aho
Ko taua whakapuakanga e kii ana ki te whakahiato VBA ko te raupapa Kapa_Mema E 20 nga taurangi ka taea te uru atu ki nga tohu mai i te 1 ki te 20. Heoi, ka whakaaro pea tatou ki te tatau i a tatou taurangi hurangi mai i te 0 ki te 19, me penei te whakaatu o te huānga:
Ataahua Nga Mema_Mema(0 Ki te 19) Hei Aho
Inaa, ma te taunoa, ka timata te tatau o nga huānga huānga mai i te 0, a, i roto i te whakapuakanga huānga, kaore pea te taupū tuatahi e tohua, penei:
Ataahua Nga Mema_Mema(19) Hei Aho
Ko te whakahiato VBA ka mahi i te urunga penei me te whakaatu i te huinga o nga huānga 20 me nga tohu mai i te 0 ki te 19.
He rite ano nga ture i te wa e whakapuaki ana i nga huranga Visual Basic maha. Ka rite ki te whakaatu i tetahi o nga tauira, i te wa e whakapuaki ana i te huānga ahu-rua, ka wehea nga tohu o ona rahi e te piko:
Ataahua Jan_Sales_Figures(1 Ki te 31, 1 Ki te 5) Hei Moni
Heoi, ki te kore koe e tohu i te taurangi timatanga mo nga taha e rua o te huinga me te whakaatu penei:
Dim Jan_Sales_Figures(31, 5) Hei Moni
katahi ka kiia tenei urunga hei huānga ahu-rua, ko te taha tuatahi he 32 nga huānga me nga tohu mai i te 0 ki te 31, me te taha tuarua o te huānga e 6 nga huānga me nga tohu mai i te 0 ki te 5.
Huinga hihiri
Ko nga huinga katoa i roto i nga tauira o runga ake nei he maha nga rahinga. Heoi, i te nuinga o nga wa kaore matou i te mohio i mua he aha te rahi o to maatau huinga. Ka taea e tatou te puta mai i te ahuatanga ma te whakapuaki i te huinga nui, ko te rahi ka nui ake i te mea e tika ana mo ta tatou mahi. Engari ko taua otinga ka nui ake te mahara ka taea te whakaroa i te hotaka. He otinga pai ake. Ka taea e tatou te whakamahi i te huānga hihiri - he huānga tenei ka taea te tautuhi me te whakarereke i nga wa maha i te wa e mahia ana te tonotono.
Ka whakapuakihia he huinga hihiri me nga reu putua, penei:
Ataahua Kapa_Mema() Hei Aho
I muri mai, me whakaatu e koe te rahi o te huinga i te wa e mahia ana te waehere ma te whakamahi i te korero ReDim:
ReDim Team_Members(1 Ki te 20)
Mena i te wa e mahia ana te waehere ka hiahia koe ki te whakarereke i te rahi o te huinga, katahi ka taea e koe te whakamahi ano i te korero ReDim:
Ki te Kapa_Rahi> 20 Katahi ka ReDim Team_Members(1 Ki te Kapa_Rahi) Mutu Ki te
Kia maumahara ko te whakarereketanga i tetahi huinga hihiri i tenei ara ka ngaro nga uara katoa e rongoa ana i roto i te rarangi. Hei rokiroki raraunga kei roto i te rarangi, me whakamahi koe i te kupu matua Kia orakia whakaaturia ki raro:
Ki te Kapa_Rahi > 20 Ka ReDim Tiakina nga Kapa_Mema(1 Ki te Kapa_Rahi) Mutu Ki te
Kia aroha mai te kupu matua Kia ora ka taea anake te whakamahi ki te huri i te rohenga o runga o te ine huānga. Kaore e taea te huri i te rohe whakararo o te huānga. Ano, mena he maha nga waahanga o te huinga, ka whakamahi i te kupu matua Kia ora, ko te taha whakamutunga anake o te huinga ka taea te whakarereke.