Tse ka Hare
Arrays in Visual Basic for Application ke meaho eo hangata e bolokang lihlopha tse amanang tsa mofuta o tšoanang. Likenyo tse ngata li fumaneha ka index ea tsona ea linomoro.
Ka mohlala, ho na le sehlopha sa batho ba 20 bao mabitso a bona a lokelang ho bolokoa hore a sebelisoe hamorao khoutu ea VBA. Motho a ka phatlalatsa mefuta e 20 feela ea ho tšoara lebitso le leng le le leng, joalo ka:
Dim Team_Member1 Joalo ka String Dim Team_Member2 Joalo ka Khoele ... Dim Team_Member20 Joalo ka Khoele
Empa o ka sebelisa mokhoa o bonolo le o hlophisehileng haholoanyane - boloka lethathamo la mabitso a litho tsa sehlopha ka mefuta e mengata ea 20 joalo ka. khoele:
Dim Team_Members(1 Ho isa ho 20) Joalo ka Khoele
Moleng o bontšitsoeng ka holimo, re phatlalalitse sehlopha. Joale ha re ngoleng boleng ho e 'ngoe le e' ngoe ea likarolo tsa eona, joalo ka ena:
Team_Members(1) = "John Smith"
Monyetla o mong oa ho boloka data ka bongata, ha o bapisoa le ho sebelisa mefuta e fapaneng, o bonahala ha ho hlokahala ho etsa ketso e ts'oanang karolong e 'ngoe le e 'ngoe ea sehlopha. Haeba mabitso a litho tsa sehlopha a ne a bolokiloe ka mefuta e fapaneng ea 20, joale ho ne ho tla nka mela e 20 ea khoutu ho ngola nako le nako ho etsa ketso e tšoanang ho e mong le e mong oa bona. Leha ho le joalo, haeba mabitso a bolokiloe ka bongata, joale u ka etsa ketso e lakatsehang ka e 'ngoe le e' ngoe ea bona u sebelisa loop e bonolo.
Tsela eo e sebetsang ka eona e bontšoa ka tlase ka mohlala oa khoutu o hatisang mabitso a setho se seng le se seng sa sehlopha ka tatellano ea lisele tsa kholomo. A letlapa le sebetsang la Excel.
Bakeng sa ke = 1 Ho isa ho 20 Lisele(i,1).Boleng = Litho_ tsa Sehlopha(i) E latelang i
Ho hlakile hore ho sebetsa le sehlopha se bolokang mabitso a 20 ha ho thata ebile ho nepahetse ho feta ho sebelisa mefuta e fapaneng ea 20. Empa ho thoe'ng haeba mabitso ana e se 20, empa 1000? 'Me haeba, ho phaella moo, hoa hlokahala ho boloka mabitso le li-patronymics ka thoko?! Ho hlakile hore haufinyane ho tla ba thata ka ho felletseng ho sebetsana le palo e joalo ea data ka khoutu ea VBA ntle le thuso ea sehlopha.
Multidimensional arrays ho Excel Visual Basic
Lihlopha tsa Visual Basic tse tšohliloeng ka holimo li nkoa e le tsa lehlakore le le leng. Sena se bolela hore ba boloka lethathamo le bonolo la mabitso. Leha ho le joalo, li-array li ka ba le litekanyo tse ngata. Ka mohlala, sehlopha sa mahlakore a mabeli se ka bapisoa le marang-rang a boleng.
Ha re re u batla ho boloka lipalo tsa thekiso ea letsatsi le letsatsi tsa Pherekhong bakeng sa lihlopha tse 5 tse fapaneng. Sena se tla hloka lethathamo la mahlakore a mabeli le nang le lihlopha tse 5 tsa metrics bakeng sa matsatsi a 31. A re ke re phatlalatseng sehlopha se kang sena:
Dim Jan_Sales_Figures(1 Ho ea ho 31, 1 Ho ea ho 5) Joalo ka Chelete
Ho fihlella likarolo tse ngata Jan_Sales_Figures, o hloka ho sebelisa li-index tse peli tse bontšang letsatsi la khoeli le nomoro ea taelo. Mohlala, aterese ea ntho e nang le lipalo tsa thekiso ea 2-oh lihlopha bakeng sa Lilemo tse 15 January e ne e tla ngoloa tjena:
Jan_Sales_Lipalo(15, 2)
Ka mokhoa o ts'oanang, o ka phatlalatsa lethathamo le nang le litekanyo tse 3 kapa ho feta - eketsa feela litekanyo tse eketsehileng ho phatlalatso ea sehlopha 'me u sebelise li-indices tse eketsehileng ho bua ka likarolo tsa sehlopha sena.
Ho phatlalatsa Arrays ho Excel Visual Basic
Pejana sehloohong sena, re se re shebile mehlala e 'maloa ea ho phatlalatsa lihlopha tsa VBA, empa sehlooho sena se lokeloa ke ho shebisisa. Joalo ka ha ho bonts'itsoe, lethathamo la lehlakore le le leng le ka phatlalatsoa ka tsela ena:
Dim Team_Members(1 Ho isa ho 20) Joalo ka Khoele
Phatlalatso e joalo e bolella moqapi oa VBA hore sehlopha Litho_ tsa Sehlopha e na le mefuta e 20 e ka finyelloang ho li-indices ho tloha ho 1 ho isa ho 20. Leha ho le joalo, re ka nahana ka ho beha linomoro tsa mefuta-futa ea lihlopha tsa rona ho tloha ho 0 ho ea ho 19, moo boemo bo lokelang ho phatlalatsoa ka tsela ena:
Dim Team_Members(0 Ho isa ho 19) Joalo ka Khoele
Ha e le hantle, ka ho feletseng, palo ea likarolo tse ngata e qala ho tloha ho 0, 'me ho phatlalatso ea lihlopha, index ea pele e ka' na ea se ke ea hlalosoa ho hang, ka tsela ena:
Dim Team_Members(19) Joalo ka Khoele
Motlalehi oa VBA o tla nka kenyeletso e joalo e phatlalatsa lethathamo la lintho tse 20 tse nang le li-indices ho tloha ho 0 ho isa ho 19.
Melao e ts'oanang e ea sebetsa ha ho phatlalatsoa li-multidimensional Visual Basic arrays. Joalo ka ha ho se ho bontšitsoe ho o mong oa mehlala, ha ho phatlalatsoa lethathamo la mahlakore a mabeli, li-indices tsa litekanyo tsa eona li arohanngoa ke phegelwana:
Dim Jan_Sales_Figures(1 Ho ea ho 31, 1 Ho ea ho 5) Joalo ka Chelete
Leha ho le joalo, haeba u sa hlalose index ea ho qala bakeng sa litekanyo tse peli tsa sehlopha 'me u e phatlalatse ka tsela ena:
Dim Jan_Sales_Figures(31, 5) Joalo ka Chelete
Joale keno ena e tla nkuoa e le lethathamo la mahlakore a mabeli, karolo ea pele e nang le likarolo tse 32 tse nang le li-indices ho tloha ho 0 ho isa ho 31, 'me karolo ea bobeli ea lethathamo e na le likarolo tse 6 tse nang le li-indices ho tloha ho 0 ho isa ho 5.
Lihlahisoa tse matla
Lihlopha tsohle tsa mehlala e ka holimo li na le palo e tsitsitseng ea litekanyo. Leha ho le joalo, maemong a mangata ha re tsebe esale pele hore na sehlopha sa rōna se lokela ho ba sa boholo bofe. Re ka tsoa boemong boo ka ho phatlalatsa letoto le leholo, leo ka sebele boholo ba lona e tla ba bo boholo ho feta bo hlokahalang bakeng sa mosebetsi oa rōna. Empa tharollo e joalo e tla hloka mohopolo o mongata o eketsehileng mme e ka liehisa lenaneo. Ho na le tharollo e molemonyana. Re ka sebelisa marang-rang a matla - ena ke lethathamo leo boholo ba lona bo ka hlophisoang le ho fetoloa makhetlo a mangata nakong ea ts'ebetso ea macro.
Sehlopha se matla se phatlalatsoa ka masakakana a se nang letho, joalo ka:
Dim Team_Members() Joalo ka Khoele
Ka mor'a moo, o tla hloka ho phatlalatsa boholo ba sehlopha nakong ea ts'ebetso ea khoutu u sebelisa polelo ReDim:
ReDim Team_Members(1 Ho isa ho 20)
'Me haeba nakong ea ts'ebetsong ea khoutu u hloka ho fetola boholo ba sehlopha hape, joale u ka sebelisa polelo ea ReDim hape:
Haeba Team_Size> 20 Ebe ReDim Team_Members (1 ho Team_Size) E fela Haeba
Hopola hore ho fetola boholo ba sehlopha se matla ka tsela ena ho tla fella ka tahlehelo ea boleng bohle bo bolokiloeng ka har'a sehlopha. E le hore u boloke lintlha tse seng li ntse li le teng, u lokela ho sebelisa lentsoe la sehlooho Bolokajoalokaha ho bontšitsoe ka tlase:
Haeba Team_Size> 20 Ebe ReDim Preserve Team_Members(1 Ho ea Team_Size) E fela Haeba
Ka bomalimabe lentsoe la sehlooho Boloka e ka sebelisoa feela ho fetola moeli o ka holimo oa tekanyo ea sehlopha. Karolo e ka tlase ea sehlopha e ke ke ea fetoloa ka tsela ena. Hape, haeba sehlopha se na le litekanyo tse ngata, joale sebelisa lentsoe la sehlooho Boloka, ke karolo ea ho qetela feela ea sehlopha se ka fetoloang.