Awọn akoonu
Awọn eto ni Ipilẹ wiwo fun Ohun elo jẹ awọn ẹya ti o tọju awọn eto ti awọn oniyipada ti o jọmọ ti iru kanna. Awọn titẹ sii akojọpọ jẹ iraye si nipasẹ atọka nọmba wọn.
Fun apẹẹrẹ, ẹgbẹ kan wa ti awọn eniyan 20 ti orukọ wọn nilo lati wa ni fipamọ fun lilo nigbamii ni koodu VBA. Ọkan le jiroro ni kede awọn oniyipada 20 lati di orukọ kọọkan mu, bii bẹ:
Dim Team_Member1 Bi Okun Dim Team_Member2 Bi Okun ... Dim Team_Member20 Bi Okun
Ṣugbọn o le lo ọna ti o rọrun pupọ ati ti iṣeto diẹ sii - tọju atokọ kan ti awọn orukọ ọmọ ẹgbẹ ni akojọpọ awọn oniyipada 20 bii okun:
Dim Team_Members(1 Si 20) Bi Okun
Ninu laini ti o han loke, a ti ṣalaye akojọpọ kan. Bayi jẹ ki a kọ iye kan si ọkọọkan awọn eroja rẹ, bii eyi:
Team_Members(1) = "John Smith"
Anfaani afikun ti fifipamọ data sinu titobi, ni akawe si lilo awọn oniyipada lọtọ, yoo han gbangba nigbati o di pataki lati ṣe iṣe kanna lori ipin kọọkan ti orun. Ti awọn orukọ awọn ọmọ ẹgbẹ ba wa ni ipamọ ni awọn oniyipada 20 lọtọ, lẹhinna yoo gba awọn laini koodu 20 lati kọ ni akoko kọọkan lati ṣe iṣe kanna lori ọkọọkan wọn. Bibẹẹkọ, ti awọn orukọ ba wa ni ipamọ, lẹhinna o le ṣe iṣe ti o fẹ pẹlu ọkọọkan wọn nipa lilo lupu ti o rọrun.
Bii o ṣe n ṣiṣẹ ni a ṣe afihan ni isalẹ pẹlu apẹẹrẹ koodu ti o tẹ awọn orukọ ti ọmọ ẹgbẹ kọọkan ni lẹsẹsẹ ni awọn sẹẹli ọwọn. A iwe iṣẹ iṣẹ Excel ti nṣiṣe lọwọ.
Fun i = 1 Si 20 Awọn sẹẹli (i,1) .Iye = Awọn ọmọ ẹgbẹ_ẹgbẹ (i) Next i
O han ni, ṣiṣẹ pẹlu akojọpọ ti o tọju awọn orukọ 20 kere pupọ ati pe o peye ju lilo awọn oniyipada 20 lọtọ. Ṣugbọn kini ti awọn orukọ wọnyi ko ba jẹ 20, ṣugbọn 1000? Ati pe ti, ni afikun, o nilo lati tọju awọn orukọ idile ati patronymics lọtọ?! O han gbangba pe laipẹ yoo di soro patapata lati mu iru iwọn didun data kan ni koodu VBA laisi iranlọwọ ti titobi.
Multidimensional orunkun ni tayo Visual Ipilẹ
Awọn akojọpọ Ipilẹ wiwo ti a jiroro loke ni a gba pe onisẹpo kan. Eyi tumọ si pe wọn tọju atokọ ti o rọrun ti awọn orukọ. Sibẹsibẹ, awọn ila le ni awọn iwọn pupọ. Fun apẹẹrẹ, titobi onisẹpo meji le ṣe afiwe si akoj ti iye.
Jẹ ki a sọ pe o fẹ lati ṣafipamọ awọn isiro tita ojoojumọ fun Oṣu Kini fun awọn ẹgbẹ oriṣiriṣi 5. Eyi yoo nilo titobi onisẹpo meji ti o ni awọn eto 5 ti awọn metiriki fun awọn ọjọ 31. Jẹ ki a sọ eto bi eleyi:
Dim Jan_Sales_Figures(1 Si 31, 1 Si 5) Bi Owo
Lati wọle si awọn eroja orun Jan_Sales_Figures, o nilo lati lo awọn atọka meji ti o nfihan ọjọ ti oṣu ati nọmba aṣẹ. Fun apẹẹrẹ, adirẹsi ti ohun ano ti o ni awọn tita isiro fun 2-oun awọn ẹgbẹ fun 15th January yoo kọ bi eleyi:
Awọn eeya_Jan_Tita(15, 2)
Ni ọna kanna, o le sọ asọye pẹlu awọn iwọn 3 tabi diẹ sii - kan ṣafikun awọn iwọn afikun si ikede igbona ati lo awọn itọka afikun lati tọka si awọn eroja ti orun yii.
N kede Awọn ọna ni Ipilẹ Iwoye Excel
Ni iṣaaju ninu nkan yii, a ti wo ọpọlọpọ awọn apẹẹrẹ ti sisọ awọn akojọpọ ni VBA, ṣugbọn koko yii yẹ ki o wo isunmọ. Gẹgẹbi a ṣe han, titobi onisẹpo kan le ṣe ikede bi eleyi:
Dim Team_Members(1 Si 20) Bi Okun
Iru ikede bẹẹ sọ fun olupilẹṣẹ VBA pe titobi naa Egbe_Awọn ọmọ ẹgbẹ ni awọn oniyipada 20 ti o le wọle si ni awọn atọka lati 1 si 20. Bibẹẹkọ, a le ronu ti nọmba awọn oniyipada titobi wa lati 0 si 19, ninu ọran naa o yẹ ki a kede titobi naa bii eyi:
Dim Team_Members(0 Si 19) Bi Okun
Ni otitọ, nipasẹ aiyipada, nọmba ti awọn eroja orun bẹrẹ lati 0, ati ninu ikede ti orun, atọka ibẹrẹ le ma ṣe pato rara, bii eyi:
Dim Team_Members (19) Bi Okun
Olupilẹṣẹ VBA yoo tọju iru titẹ sii bi sisọ titobi awọn eroja 20 pẹlu awọn atọka lati 0 si 19.
Awọn ofin kanna lo nigbati o ba n kede multidimensional Visual Basic awọn akojọpọ. Gẹgẹbi a ti han tẹlẹ ninu ọkan ninu awọn apẹẹrẹ, nigbati o ba n kede titobi onisẹpo meji, awọn itọka ti awọn iwọn rẹ niya nipasẹ aami idẹsẹ kan:
Dim Jan_Sales_Figures(1 Si 31, 1 Si 5) Bi Owo
Bibẹẹkọ, ti o ko ba ṣalaye itọka ibẹrẹ fun awọn iwọn mejeeji ti titobi naa ki o kede rẹ bii eyi:
Dim Jan_Sales_Figures (31, 5) Bi Owo
lẹhinna titẹ sii yii yoo ṣe itọju bi titobi onisẹpo meji, iwọn akọkọ eyiti o ni awọn eroja 32 pẹlu awọn atọka lati 0 si 31, ati iwọn keji ti orun naa ni awọn eroja 6 pẹlu awọn atọka lati 0 si 5.
Ìmúdàgba orun
Gbogbo awọn akojọpọ ninu awọn apẹẹrẹ loke ni nọmba ti o wa titi ti awọn iwọn. Bibẹẹkọ, ni ọpọlọpọ awọn ọran a ko mọ tẹlẹ kini iwọn titobi wa yẹ ki o jẹ. A le jade kuro ninu ipo naa nipa sisọ titobi nla kan, iwọn eyiti yoo dajudaju tobi ju pataki lọ fun iṣẹ-ṣiṣe wa. Ṣugbọn iru ojutu kan yoo nilo ọpọlọpọ iranti afikun ati pe o le fa fifalẹ eto naa. Ojutu to dara julọ wa. A le lo orun ti o ni agbara – eyi jẹ apẹrẹ ti iwọn rẹ le ṣeto ati yipada eyikeyi nọmba awọn akoko lakoko ipaniyan Makiro kan.
Atọka ti o ni agbara ni a kede pẹlu awọn akomọ ofo, bii eyi:
Dim Team_Members () Bi Okun
Nigbamii ti, iwọ yoo nilo lati kede iwọn ti titobi lakoko ipaniyan koodu nipa lilo ikosile naa ReDim:
Awọn ọmọ ẹgbẹ Tun Dim (1 Si 20)
Ati pe ti o ba jẹ pe lakoko ipaniyan koodu o nilo lati yi iwọn titobi pada lẹẹkansi, lẹhinna o le lo ikosile ReDim lẹẹkansi:
Ti Ẹgbẹ_Iwọn> 20 Lẹhinna ReDim Team_Members(1 Si Ẹgbẹ_Iwọn) pari Ti
Jeki ni lokan pe iwọntunwọnsi titobi agbara ni ọna yii yoo ja si isonu ti gbogbo awọn iye ti o fipamọ sinu titobi. Lati tọju data tẹlẹ ninu titobi, o nilo lati lo koko-ọrọ naa Ṣetọjubi a ṣe han ni isalẹ:
Ti Ẹgbẹ_Iwọn> 20 lẹhinna ReDim Ṣetọju Ẹgbẹ_Awọn ọmọ ẹgbẹ (1 Lati Ẹgbẹ_Iwọn) pari Ti
Laanu koko Ṣetọju le nikan ṣee lo lati yi awọn oke ala ti ohun orun apa miran. Ilẹ isalẹ ti orun ko le yipada ni ọna yii. Paapaa, ti opo naa ba ni awọn iwọn pupọ, lẹhinna lilo Koko Ṣetọju, nikan awọn ti o kẹhin apa miran ti awọn orun le ti wa ni tun.