Izmantojot VBA vārdnīcu
VBA vārdnīca darbojas līdzīgi kā kolekcijas objekts, taču tai ir vairāk īpašību un metožu, kā arī lielāka elastība
Vārdnīca saglabā datus atmiņā un ar tiem var viegli manipulēt. Nav nepieciešams automātisks aprēķins, fona dublēšana un ekrāna atsvaidzināšana, tāpēc jūsu kods darbosies ievērojami ātrāk.
Vārdnīcas objekts darbojas līdzīgi parastajai vārdnīcai, kuru izmantotu, ja vēlaties noskaidrot vārda nozīmi. Katram vārdnīcas objekta ierakstam ir “atslēgas” un “vienuma” vērtība. Jūs izmantojat atslēgas vērtību “atslēga”, lai meklētu vienuma vērtību vārdnīcas objektā, līdzīgi kā jūs izmantotu parasto vārdnīcu.
Tā kā vārdnīcas objekts darbojas, visām galvenajām vērtībām ir jābūt unikālām, tāpat kā parastajā vārdnīcā. Iedomājieties, ja jūs atvērtu savu parasto vārdnīcu, lai meklētu vārda nozīmi, un atrastu vārdu vairāk nekā vienu reizi ar divām pilnīgi atšķirīgām definīcijām. Tu būtu ļoti apjukusi!
Galvenās vērtības parasti ir teksts vai cipari, vai abi. Lietotājiem bieži vien ir vieglāk atcerēties taustiņu nosaukumus kā tekstu, nevis tikai ciparus.
Salīdzinot ar kolekcijas objektu, kolekcijas objekts ir tikai lasāms. Tam ir tikai divas metodes (pievienot un noņemt) un divi rekvizīti (skaits un vienums). Kad vienums ir pievienots kolekcijas objektam, to var noņemt tikai, bet ne rediģēt, kas ir apgrūtinoša procedūra, ja vienuma vērtība ir jāmaina.
Vārdnīcas objekta izmērs automātiski mainīsies, lai tas atbilstu tajā esošo vienumu skaitam. Tas nav jādefinē pēc lieluma, piemēram, parastajam masīvam
Vārdnīcas objekts ir viendimensiju un datu tips ir ‘Variant’, tāpēc tajā var ievadīt jebkuru datu tipu, piem. cipars, teksts, datums
VBA vārdnīca nav Excel dzimtā, un tai ir jāpiekļūst, izmantojot agrīnu vai vēlu saistīšanu, definējot vārdnīcas objektu
| 123 | Sub EarlyBindingExample ()Dim MyDictionary kā jauns skripts. VārdnīcaBeigu apakš |
| 1234 | Sub LateBindingExample ()Dim MyDictionary kā objektsIestatīt MyDictionary = CreateObject ("Scripting.Dictionary")Beigu apakš |
Ja izmantojat agrīno iesiešanu, jāpievieno atsauce uz bibliotēku “Microsoft Scripting Runtime”
Lai to izdarītu, atlasiet “Rīki | Atsauces ”Visual Basic Editor (VBE) loga izvēlņu joslā un uznirstošais logs parādīsies ar pieejamo bibliotēku sarakstu.
Ritiniet uz leju līdz “Microsoft skriptu izpildlaiks” un atzīmējiet izvēles rūtiņu blakus tai. Noklikšķiniet uz Labi, un šī bibliotēka tagad ir daļa no jūsu VBA projekta, un uz to var atsaukties, izmantojot agrīno iesiešanu. Visi koda piemēri šajā rakstā izmantos agrīnu iesiešanu.
Ar agrīnu saistīšanu jūsu kods darbosies ievērojami ātrāk, jo tas viss ir apkopots iepriekš. Ar novēlotu saistīšanu objekts ir jāapkopo, kad kods darbojas
Skriptu izpildlaika bibliotēkā ir “Intellisense”. Rakstot kodu, jūs redzēsit pieejamo metožu un rekvizītu sarakstus, kas palīdz novērst pareizrakstības kļūdas, kas radīs kļūdas jūsu programmā
Turklāt, nospiežot F2 VBE un atlasot bibliotēku “Skripti”, jūs redzēsit visas pieejamās metodes un rekvizītus, kā arī parametrus, kas nepieciešami katrai.
Excel lietojumprogrammas, kas satur vārdnīcu, izplatīšana
Kā jau tika norādīts, skriptu izpildlaika bibliotēka nav daļa no Excel VBA, tāpēc, ja izplatāt savu lietojumprogrammu citiem lietotājiem, viņiem ir jābūt pieejamai datorā esošajai skriptu izpildlaika bibliotēkai. Ja tie nav, tad radīsies kļūda.
Ieteicams iekļaut kādu VBA kodu, lai pārbaudītu, vai šī bibliotēka ir pieejama, kad tiek ielādēta jūsu Excel lietojumprogramma. Lai to paveiktu pasākumā “Darbgrāmatas atvēršana”, varat izmantot komandu “Dir”
Faila atrašanās vieta ir C: \ Windows \ SysWOW64 \ scrrun.dll
Vārdnīcas objekta darbības joma
Vārdnīcas objekts ir pieejams tikai tad, kad ir atvērta Excel darbgrāmata. Saglabājot darbgrāmatu, tā netiek saglabāta.
Ja jūsu vārdnīcai ir jābūt pieejamai visām jūsu moduļa kārtībām, tā ir jāpaziņo (Dim) sadaļā Deklarēšana moduļa pašā augšpusē
Jūs definējat to kā globālu objektu, ja vēlaties, lai jūsu vārdnīca tiktu izmantota visā kodā.
| 1 | Globālā MyDictionary kā jauna vārdnīca |
Aizpildīšana un lasīšana no jūsu vārdnīcas
Lai sāktu, jums ir jāizveido vārdnīca, jāaizpilda daži dati un pēc tam iterējiet, lai pierādītu, ka dati pastāv
| 1234567891011 | Sub PopulateReadDictionary ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.Pievienot "MyItem1", 10MyDictionary.Pievienot "MyItem2", 20MyDictionary.Pievienot "MyItem3", 30Ja n = 0 uz MyDictionary.Count - 1MsgBox MyDictionary.Keys (n) & "" & MyDictionary.It items (n)Nākamais nBeigu apakš |
Šis kods izveido jaunu vārdnīcas objektu ar nosaukumu “MyDictionary” un pēc tam aizpilda to ar trim vienumiem. Pievienošanas metodei ir divi parametri - atslēga un vienums, un tie abi ir obligāti
Atslēgas un vienuma datu veidi ir dažādi, tāpēc tie pieņems jebkura veida datus - skaitlisku, teksta, datuma utt
Vārdnīcas pirmo vienumu var pievienot šādi:
| 1 | MyDictionary.Add 10, "MyItem1" |
Atslēgas un vienuma vērtības ir mainītas, taču tas joprojām darbosies, lai gan meklēšanas atslēga tagad kļūs par 10.
Tomēr ir svarīgi saprast, ka galvenā vērtība ir uzmeklēšanas vērtība vārdnīcā. Tas darbojas ļoti līdzīgi kā funkcija VLOOKUP programmā Excel. Tā kā visām atslēgām ir jābūt unikālām vērtībām, varat norādīt atslēgas vērtību un uzreiz atgriezt šīs atslēgas vienuma vērtību.
Ņemiet vērā, ka vārdnīcas indekss sākas ar 0, tāpēc jums ir jāatņem 1 no vārdnīcu skaita, kas izmantots cilnē For… Next
Varat arī izmantot For … Katru cilpu, lai lasītu vārdnīcas vērtības:
| 1234567891011 | Sub PopulateReadDictionary ()Dim MyDictionary kā jauns skripts. Vārdnīca, es kā variantsMyDictionary.Pievienot "MyItem1", 10MyDictionary.Pievienot "MyItem2", 20MyDictionary.Pievienot "MyItem3", 30Katram I MyDictionary.AtslēgasMsgBox I & "" & MyDictionary (I)Tālāk esBeigu apakš |
Šis kods atkārtos katru vienumu un parādīs vienuma atslēgu un vienuma vērtību
Preces indeksa numura izmantošana
Lai lasītu vērtību, varat izmantot atslēgas vai vienuma indeksa numuru
| 123456789101112 | Apakšindeksa numuri ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.CompareMode = Teksta salīdzinājumsMyDictionary.Add "1. vienums", 10MyDictionary.Add "ITEM2", 20MyDictionary.Pievienot "Item3", 30MsgBox MyDictionary. Atslēgas (2)MsgBox MyDictionary.Items (1)Beigu apakš |
Šis kods atgriezīs atslēgu “item3”, jo indekss sākas ar 0, un vienības vērtību 20
Jūs varat atsaukties uz atsevišķām atslēgu vai vienumu vērtībām kolekcijās Atslēgas vai vienumi, izmantojot indeksa numurus.
Vārdnīcas filtrēšana
Nav tiešas metodes, kā to izdarīt, taču ir diezgan vienkārši uzrakstīt kodu, lai to izdarītu:
| 1234567891011 | ApakšfiltrsDictionary ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.Pievienot "AAItem1", 10MyDictionary.Pievienot "BBItem2", 20MyDictionary.Pievienot "BBItem3", 30Par katru I filtrā (MyDictionary.Keys, "BB")MsgBox MyDictionary.Item (I)Tālāk esBeigu apakš |
Filtra vērtība darbojas tikai no atslēgas vērtības sākuma. Filtrā nevar izmantot aizstājējzīmes. Šis kods atgriezīs abas vienumu vērtības ar atslēgu nosaukumiem, kas sākas ar “BB”
Tādējādi tiks iegūta vārdnīcas apakškopa, pamatojoties uz jūsu filtra vērtību, kuru pēc tam varēsit pārsūtīt uz citu vārdnīcu vai darblapu. Rūpīgi plānojot atslēgu nosaukumus un pārliecinoties, ka katram no tiem ir nozīmīgs priedēklis, jūs viegli varēsit sadalīt vārdnīcu dažādās sastāvdaļās.
Atslēgas vienuma vērtības maiņa
Vārdnīcas objektam ir liela priekšrocība salīdzinājumā ar kolekciju, jo vienības vērtību var mainīt, piem.
| 1 | MyDictionary ("MyItem4") = "40" |
Kolekcijā šis ieraksts ir jāizdzēš un pēc tam jāizveido no jauna.
Šeit ir koda piemērs:
| 12345678910111213 | Sub PopulateReadDictionary ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.Pievienot "MyItem1", 10MyDictionary.Pievienot "MyItem2", 20MyDictionary.Pievienot "MyItem3", 30MyDictionary ("MyItem2") = "25"MyDictionary ("MyItem4") = "40"Ja n = 0 uz MyDictionary.Count - 1MsgBox MyDictionary.Keys (n) & "" & MyDictionary.It items (n)Nākamais nBeigu apakš |
Iepriekš minētais kods vārdnīcā izveido trīs vienumus un pēc tam maina “MyItem2” vērtību no 20 uz 25.
Tas arī maina “MyItem4” vērtību uz 40. Ņemiet vērā, ka koda pievienošanas paziņojumos netika pievienots neviens “MyItem4”. Mainot neeksistējošas atslēgas vērtību, tā tiek automātiski izveidota. Tas ir ārkārtīgi ērti, jo netiek izraisīta kļūda, taču tas nozīmē, ka jums jābūt uzmanīgam ar atslēgu nosaukumiem. Nejauša pareizrakstības kļūda atslēgas nosaukumā nozīmētu, ka tiek izveidota jauna atslēga, un sākotnējam atslēgas nosaukumam joprojām būtu vecā vērtība.
Tas varētu viegli radīt integritātes problēmas vārdnīcas objektā.
Pārbaudiet, vai atslēga pastāv
Jūs varat pārbaudīt, ja galvenais vērtība pastāv ietvaros vārdnīcas
| 123456789 | Sub CheckExistsDictionary ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.Pievienot "MyItem1", 10MyDictionary.Pievienot "MyItem2", 20MyDictionary.Pievienot "MyItem3", 30MsgBox MyDictionary.Exists ("MyItem8")Beigu apakš |
Kods jaunam vārdnīcas objektam pievieno trīs vienumus un pēc tam pārbauda atslēgu (“MyItem8”), kuras vārdnīcā nav. Tas atgriež False, bet, ja tiktu izmantota viena no esošajām atslēgām, tā atgrieztos True
Aizstājējzīmes netiek pieņemtas. Meklēšanas teksts pēc noklusējuma arī ir reģistrjutīgs, taču to var mainīt (skatiet vēlāk rakstā)
Vairāku vērtību izmantošana vārdnīcā
Atšķirībā no masīva, vārdnīcas objekts ir tikai vienas dimensijas. Tas var radīt problēmas, ja jums ir vairākas vērtības, kuras vēlaties salīdzināt ar atslēgu.
Viens veids, kā to izdarīt, ir katras preces vērtības sasaistīšana, izmantojot atdalītāja rakstzīmi starp katru vērtību, piem. ‘|’
| 12345678910111213141516171819202122232425262728293031323334 | Sub MultipleValues ()"Izveidojiet vārdnīcas objektu un mainīgosDim MyDictionary kā jauns skripts. Vārdnīca, V1 kā vesels skaitlis, V2 kā virkneDim V3 kā datums, temp kā virkne, N kā vesels skaitlis“Aizpildiet 3 mainīgos, lai parādītu vairākas vērtībasV1 = 5V2 = "Vairāku vērtību piemērs"V3 = "2020. gada 22. jūlijs"Pievienojiet vārdnīcai salikto vērtību, izmantojot "|" norobežotājsMyDictionary.Pievienot "MyMultipleItem", V1 & "|" & V2 & "|" & V3 & "|"'Iekļaujiet savienoto vārdnīcas vērtību no vārdnīcas mainīgajāTemp = MyDictionary ("MyMultipleItem")“Atkārtojiet apvienoto virkni, lai atdalītu atsevišķās vērtībasVai'Atrodiet norobežotāja pozīcijuN = InStr (temp, "|")"Ja nav vairāk norobežojošās izeja Do cilpaJa N = 0, tad izejiet Do'Parādīt tekstu attiecībā pret atrastā norobežotāja pozīcijuMsgBox kreisi (Temp, N - 1)'Pēc atdalītā atdalītāja saīsiniet savienoto virkni ar nākamo rakstzīmiTemperatūra = vidēja (temp, N + 1)CilpaBeigu apakš |
Vēl viens veids, kā apiet šo problēmu, ir izveidot savu pakārtoto skriptu sistēmu atslēgu nosaukumiem. Nav iemesla, kāpēc atslēgu nosaukumos nevajadzētu izmantot iekavas un ciparus
| 1234567891011 | Sub MultipleValues ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary. Pievienot "Vairāki (1)", 5MyDictionary.Add "Vairāki (2)", "Vairāku vērtību piemērs"MyDictionary.Pievienot "Vairāki (3)", "2020. gada 22. jūlijs"N = 1 līdz 3MsgBox MyDictionary ("Vairāki (" & N & ")")Nākamais N.Beigu apakš |
Šis kods pievieno vārdnīcai trīs atslēgas, bet katra atslēgas nosaukuma iekavās ir apakšskripta numurs. Pēc tam varat atsaukties uz atslēgas nosaukumu, bet izmantojot apakšskripta numuru, kas ir savienots. Tas ir ļoti līdzīgi masīva objekta izmantošanai
Vienumu dzēšana
Atsevišķus vienumus var noņemt, atsaucoties uz atslēgas vērtību
| 1 | MyDictionary.Remove (“MyItem2”) |
Ņemiet vērā: tā kā atslēgu nosaukumi ir unikāli, tas noņem tikai vienu konkrētu atslēgas un vienuma vērtību
Vārdnīcu var arī pilnībā notīrīt
| 1 | MyDictionary.RemoveAll |
Šeit ir piemērs “Noņemt” izmantošanai VBA:
| 12345678910111213141516 | Sub RemoveValues ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.Pievienot "Item1", 10MyDictionary.Pievienot "Item2", 20MyDictionary.Pievienot "Item3", 30MyDictionary.Remove ("2. vienums")N = 0 uz MyDictionary.Count - 1MsgBox MyDictionary.Keys (N) & "" & MyDictionary.It items (N)Nākamais N.MyDictionary.RemoveAllMsgBox MyDictionary.CountBeigu apakš |
Kods pievieno vārdnīcai trīs vienumus un pēc tam noņem vienumu “Item2”. Pēc tam tas atkārtojas vārdnīcā, lai pierādītu, ka “2. punkts” vairs nepastāv
Visbeidzot, kods noņem visus vārdnīcas vienumus un parāda vārdnīcu skaitu, kas tagad ir nulle.
Mainot reģistrjutību meklēšanas vaicājumos
Ja meklējat atslēgu, pēc noklusējuma reģistrjutība ir reģistrjutīga. Tomēr, lai to mainītu, varat izmantot rekvizītu CompareMode.
Ņemiet vērā, ka tas ir jādara uzreiz kodā pēc vārdnīcas objekta izveides, bet pirms datu pievienošanas vārdnīcai. Kad salīdzināšanas režīms ir iestatīts, to nevar mainīt šajā vārdnīcā.
| 12345678910 | Sub ChangeCaseSensitivity ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.CompareMode = Teksta salīdzinājumsMyDictionary.Pievienot "Item1", 10MyDictionary.Pievienot "Item2", 20MyDictionary.Pievienot "Item3", 30MsgBox MyDictionary.Exists ("item2")Beigu apakš |
Šajā piemērā salīdzināšanas režīms ir iestatīts uz “TextCompare”, kas nozīmē, ka tas nav reģistrjutīgs. Piemērs beigās esošais paziņojums “Pastāv” atgriezīsies True, neskatoties uz to, ka viss meklēšanas teksts ir ar mazajiem burtiem.
Programmā Excel salīdzināšanas režīmam var izmantot tikai divas vērtības. Binārā salīdzināšana ir reģistrjutīga, bet teksta salīdzināšana - ne
Ja salīdzināšanas režīms ir iestatīts uz Binārais salīdzinājums, jums jābūt uzmanīgam, nosaucot atslēgas. Ja iestatāt vārda lielo burtu kā pirmo rakstzīmi, tad, mainot vērtību, jums jāpārliecinās, ka joprojām rakstāt pirmo rakstzīmi. Ja sākat ar mazajiem burtiem, tas tiks interpretēts kā jauna atslēga un var viegli radīt neskaidrības un kļūdas jūsu vārdnīcā
Atcerieties - ja maināt atslēgas vērtību un bināro salīdzinājumu dēļ atslēgas nosaukums nepastāv, vārdnīca tiks pievienota jauna atslēga un vērtība.
Ja tā vietā izmantojat teksta salīdzināšanu, visas vērtību izmaiņas tiks atslēgtas neatkarīgi no reģistra. Ja mēģināsit pievienot vienu un to pašu vienumu, bet uzrakstīts ar citu burtu rakstzīmi, tiks parādīta kļūda, jo tā jau pastāv.
Vārdnīcas kārtošana
Tāpat kā kolekcijas objekta gadījumā, nav paredzēta metode vārdnīcas sakārtošanai, izmantojot atslēgas vai vienumu vērtības.
Tomēr, tā kā VBA kods atrodas Excel darbgrāmatā, vārdnīcas datus tabulā var pārsūtīt uz programmu Excel un pēc tam var piemērot Excel kārtošanas iespēju. Pēc tam vārdnīcu var notīrīt, izmantojot “RemoveAll”, un no darblapas pievienot kārtotās vērtības.
Šis kods sakārtos gan atslēgas, gan vienumu vērtības
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 | Sub SortMyDictionary ()Dim MyDictionary kā jauna vārdnīcaDim skaitītājs tik ilgi'Veidojiet vārdnīcu ar nejaušas secības vienumiemMyDictionary.Pievienot "Item5", 5MyDictionary.Add "ITEM2", 15MyDictionary.Pievienot "Item4", 11MyDictionary.Pievienot "Item1", 2MyDictionary.Add "ITEM3", 19"Uzņemiet vienumu skaitu vārdnīcā turpmākai lietošanaiSkaitītājs = MyDictionary.Count“Atkārtojiet, izmantojot vārdnīcu, kopējot katru atslēgu un vienumu secīgā šūnā“ 1. lapā ”(A sleja)N = 0 uz MyDictionary.Count - 1Izklājlapas ("Sheet1"). Šūnas (N + 1, 1) = MyDictionary.Atslēgas (N)Izklājlapas ("1. lapa"). Šūnas (N + 1, 2) = Mana vārdnīca. Vienumi (N)Nākamais N.'Aktivizējiet lapu1 un izmantojiet Excel kārtošanas kārtību, lai sakārtotu datus augošā secībāIzklājlapas ("Sheet1"). AktivizētDiapazons ("A1: B" un MyDictionary.Count). AtlasietActiveWorkbook.Worksheets ("Sheet1"). Sort.SortFields.ClearActiveWorkbook.Worksheets ("Sheet1"). Sort.SortFields.Add2 Key: = Diapazons (_"A1: A5"), SortOn: = xlSortOnValues, secība: = xlAscending, DataOption: = _xlSortNormalAr ActiveWorkbook.Worksheets ("Sheet1"). Kārtot.SetRange diapazons ("A1: A5").Galva = xlGuess.MatchCase = Nepareizi.Orientation = xlTopToBottom.SortMethod = xlPinYin.PiesakiesBeigt ar'Notīriet visus vārdnīcas vienumusMyDictionary.RemoveAllKopējiet šūnu vērtības atpakaļ tukšajā vārdnīcas objektā, izmantojot cilpas saglabāto vērtību (skaitītāju)N = 1 uz skaitītājuMyDictionary.Add Sheets ("Sheet1"). Šūnas (N, 1). Vērtība, Sheets ("Sheet1"). Šūnas (N, 2). ValueNākamais N."Atkārtojiet vārdnīcu, lai pierādītu vienumu secībuPar N = 0 Lai MyDictionary.Count - 1MsgBox MyDictionary.Keys (N) & "" & MyDictionary.It items (N)Nākamais N.'Notīriet darblapu (1. lapa) - ja nepieciešams, izdzēsiet arī toIzklājlapas ("1. lapa"). Diapazons (šūnas (1, 1), šūnas (skaitītājs, 2)). SkaidrsBeigu apakš |
Šis kods izveido vārdnīcu ar piecām nejaušas secības vērtībām. Tas fiksē vienumu skaitu mainīgā un pēc tam atkārto vārdnīcā, pārsūtot atslēgu un vienumu vērtības atsevišķās darblapas kolonnās.
Pēc tam tas kārto lejupielādēto diapazonu, kā kārtošanas lauku izmantojot kolonnu A. Vārdnīca tiek pilnībā notīrīta, izmantojot metodi “RemoveAll”, un pēc tam kods atkārto darblapas šūnu vērtības, pievienojot tās atpakaļ vārdnīcai.
Visbeidzot, kods atkārtojas vārdnīcā, parādot atslēgu un vienumu vērtības, kas ir savienotas, lai pierādītu, ka kārtošana ir darbojusies.
Mainot kārtošanas koda parametrus, datus varētu kārtot pēc vienumu vērtībām.
Atslēgu saraksta kopēšana darblapā
Varat nokopēt visu galveno vērtību sarakstu darblapā, izmantojot šādu kodu:
| 12345678910 | Sub CopyKeyList ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.CompareMode = Teksta salīdzinājumsMyDictionary.Pievienot "Item1", 10MyDictionary.Add "ITEM2", 20MyDictionary.Pievienot "Item3", 30Izklājlapas ("Sheet1"). Diapazons ("A1"). Vērtība = Pievienoties (MyDictionary.Keys, vbLf)Beigu apakš |
Rezultāts tiks parādīts jūsu darblapā:
Jūs varat kopēt visu vārdnīcu darblapā, izmantojot šo kodu:
| 12345678910 | Sub CopyIntoWorksheet ()Dim MyDictionary kā jauns skripts. VārdnīcaMyDictionary.Pievienot "Item1", 10MyDictionary.Pievienot "Item2", 20MyDictionary.Pievienot "Item3", 30Diapazons ("A1"). Mainīt izmērus (MyDictionary.Count, 1) = WorksheetFunction.Transpose (MyDictionary.Keys)Diapazons ("B1"). Mainīt izmērus (MyDictionary.Count, 1) = WorksheetFunction.Transpose (MyDictionary.Items)Beigu apakš |
Jūsu darblapa izskatīsies šādi:
Vārdnīcas salīdzināšana ar kolekciju
Vārdnīca ir ātrāka nekā kolekcija.
Kolekcija jau atrodas VBA. Vārdnīcai ir nepieciešama atsauce uz Microsoft skriptu vārdnīcu vai objekts, kas izveidots, izmantojot novēlotu iesiešanu
Kolekcijas priekšmetu var uzrakstīt tikai vienu reizi un izlasīt daudzas reizes. Vārdnīcā vienuma vērtību var mainīt. Izmantojot kolekciju, vienums ir jānoņem un pēc tam jāpievieno mainītais vienums.
Kolekcija darbojas ar indeksa vērtībām, un var būt grūti noteikt, kura indeksa vērtība kur atrodas. Vārdnīca strādā ar unikālām galvenajām vērtībām, kuras tiek izmantotas, lai atrastu vienumu
Atsevišķa vienuma izgūšana lielā kolekcijā ir lēnāka nekā vārdnīcā
Kolekcijā atslēgas tiek izmantotas tikai datu meklēšanai un nav izgūstamas. Vārdnīcā var pārbaudīt taustiņu esamību, un tos var izmantot, lai atrastu konkrētu vienumu.
Kolekcijas ir reģistrjutīgas, un to nevar mainīt. Vārdnīcā salīdzināšanas režīmu var iestatīt tā, lai piešķirtu reģistrjutību vai reģistrjutību
Kolekcijā galvenajām vērtībām ir jābūt virknēm. Vārdnīcā tie var būt jebkura veida dati, piem. skaitlis, datums utt
Visu kolekcijas vienumu noņemšana ietver kolekcijas objekta atkārtotu definēšanu. Vārdnīcā šim nolūkam ir metode “RemoveAll”.
