У вба смо уградили колекције типова података, променљиве функција и друге важне изјаве, али слично овоме имамо листу низова у ВБА у којој корисник може да модификује и стави своје сопствене колекције променљивих и функције које дефинишу корисници у низ, постоје одређене кључне речи за листу низова за његово дизајнирање.
Екцел ВБА АрраиЛист
ВБА АрраиЛист је врста структуре података коју користимо у ВБА за складиштење података. АрраиЛист у програму Екцел ВБА је класа која се користи за стварање низа вредности. То је за разлику од традиционалних низова, где ти низови имају фиксну дужину, али листа низова нема фиксну дужину.
ВАБ АрраиЛист није део ВБА листе; него је то спољна библиотека или објекат којем морамо поставити референцу пре него што приступимо њој.
Низови у ВБА саставни су део било којег језика кодирања. Коришћењем низова у екцелу можемо да складиштимо податке са једним именом променљиве декларишући „доњу и горњу границу“.
Код регуларних низова морамо да одредимо доњу и горњу границу низа. Морамо да се одлучимо унапред у време проглашења променљиве у случају статичких низова, а у случају динамичких низова, морамо да одлучимо о дужини низа након декларације низа помоћу израза „РеДим“ у ВБА.
Међутим, имамо још једну опцију где можемо сачувати „Н“ број вредности без декларисања доње и горње границе. У овом чланку ћемо вам показати о тој опцији, тј. „ВБА АрраиЛист“.
Да бисте поставили референцу на ВБА АрраиЛист објекат, следите кораке у наставку.
Корак 1: Идите на Алатке> Референце.
Корак 2: Референтни прозор библиотеке објеката ће се појавити испред вас. Изаберите опцију „ мсцорлиб.длл. ”
Корак 3: Кликните и на ОК. Сада можемо приступити ВБА АрраиЛист-у.
Примери ВБА АрраиЛист у програму Екцел
Испод су примери Екцел ВБА АрраиЛист.
Пример # 1 - Креирајте инстанцу ВБА АрраиЛист
Будући да је Екцел ВБА АрраиЛист спољни објекат, морамо да креирамо инстанцу да бисмо почели да користимо ово. Да бисте креирали инстанцу, следите кораке у наставку.
Корак 1: Прогласите променљиву као „ АрраиЛист.“
Шифра:
Суб АрраиЛист_Екампле1 () Дим АрраиВалуес Ас АрраиЛист Енд Суб
Корак 2: С обзиром да је Листа низова објекат, морамо да креирамо нову инстанцу.
Шифра:
Суб АрраиЛист_Екампле1 () Дим АрраиВалуес Ас АрраиЛист Сет АрраиВалуес = Нев АрраиЛист Енд Суб
Корак 3: Сада можемо да чувамо вредности у променљивој низа помоћу методе „Додај“. На доњој слици сам додао три вредности.
Шифра:
Суб АрраиЛист_Екампле1 () Дим АрраиВалуес Ас АрраиЛист Сет АрраиВалуес = Нев АрраиЛист АрраиВалуес.Адд "Хелло" 'Фирст Валуе АрраиВалуес.Адд "Гоод"' Сецонд Валуе АрраиВалуес.Адд "Морнинг" 'Тхрее Валуе Енд Суб
Сад смо доделили три вредности, како препознати која је прва и како можемо приказати вредности или их користити према својим потребама.
Ако се сјећате традиционалног типа низа, упутит ћемо прву вриједност низа попут ове „АрраиНаме (0)“
Слично томе, и овде можемо користити исту технику.
АрраиВалуе (0) = „Здраво“
АрраиВалуе (1) = "Добро"
АрраиВалуе (2) = "Јутро"
Покажите ово у оквиру за поруку.
Шифра:
Суб АрраиЛист_Екампле1 () Дим АрраиВалуес Ас АрраиЛист Сет АрраиВалуес = Нев АрраиЛист АрраиВалуес.Адд "Хелло" 'Фирст Валуе АрраиВалуес.Адд "Гоод"' Сецонд Валуе АрраиВалуес.Адд "Морнинг" 'Тхрее Валуе МсгБок АрраиВалуес (0) & вбНВВес (&) 1) & вбНевЛине & АрраиВалуес (2) Крај Суб
Сада покрените код помоћу тастера Ф5 или ручно, па ћемо у оквиру ВБА поруке видети „Здраво“, „Добро“ и „Јутро“.
Like this, we can store any number of values with Array List Object.
Example #2 - Store Values to Cells Using VBA ArrayList
Let’s see the example of storing the assigned values to the cells in the worksheet. Now, look at the below VBA code.
Code:
Sub ArrayList_Example2() Dim MobileNames As ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Names of the mobile MobileNames.Add "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames.Add "VIVO" MobileNames.Add "LG" Set MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 End Sub
With two array lists, I have stored Names of the Mobile and Prices of the Mobile. Now we need to insert these values to the worksheet for this. We need to use loops. The below loop will do the job for me.
Below is the Overall code to store values to the worksheet.
Code:
Суб АрраиЛист_Екампле2 () Дим МобилеНамес Ас АрраиЛист, МобилеПрице Ас АрраиЛист Дим и Ас Интегер Дим к Ас Интегер Сет МобилеНамес = Нев АрраиЛист 'Имена мобилних ИМЕНА. Додајте „ВИВО“ МобилеНамес.Адд „ЛГ“ Сет МобилеПрице = Нев АрраиЛист МобилеПрице.Адд 14500 МобилеПрице.Адд 25000 МобилеПрице.Адд 18500 МобилеПрице.Адд 17500 МобилеПрице.Адд 17800 к = 0 За и = 1 до 5 ћелија (и, 1) .Вредност = МобилеНамес (к) Ћелије (и, 2) .Валуе = МобилеПрице (к) к = к + 1 Следеће и Крај Суб
Када тада код покренемо ручно или помоћу тастера Ф5, добићемо доњи резултат.
