Овај водич ће расправљати о 2-д и вишедимензионалним низовима у ВБА.
Вишедимензионални низ (2Д низови)
Вишедимензионални низови су низови који садрже више димензија, обично две или три димензије, али низови могу имати до 32 димензије.
Прогласите 2Д низ
Да бисте креирали низ са више димензија, помоћу зареза дефинишите сваку засебну димензију:
| 1 | Затамните интАрр (2,3) као цео број |
Попуњавање 2Д низа
Доњи код ће попунити 2Д низ, а затим попунити редове и колоне радног листа вредностима у низу.
| 1234567891011121314151617181920212223242526 | Суб Популате2Д ()'декларишите 2Д низДим интА (2, 3) Као цео број'декларишите променљивеДим рв Ас ИнтегерДим цол Ас Интегер'попуни низинтА (0, 0) = 45интА (0, 1) = 50интА (0, 2) = 55интА (0, 3) = 60интА (1, 0) = 65интА (1, 1) = 70интА (1, 2) = 75интА (1, 3) = 80интА (2, 0) = 85интА (2, 1) = 90интА (2, 2) = 95интА (2, 3) = 100'прођите кроз низ и попуните ЕкцелЗа рв = 0 до 2За цол = 0 до 3Ћелије (рв + 1, цол + 1). Вредност = интА (рв, цол)Нект цолНект рвЕнд Суб |
Вашу Екцел табелу треба попунити на следећи начин.
Попуњавање 2Д низа из Екцел података
Доњи код ће попунити 2Д низ са Екцел радног листа, а затим попунити податке другим подацима.
| 1234567891011121314151617181920212223242526 | Суб Популате2Д ()'Прогласите радне листовеЗатамните вс_Соурце као радни листЗатамните вс_Дестинатион Ас Ворксхеет'Прогласи низЗатамни всДата (10, 2) као варијанту'Прогласите променљивеДим рв као ИнтегерДим цол Ас Интегер'погледајте изворни листСет вс_Соурце = Радни листови ("Лист 1")'добити информације са изворног листа и попунити низЗа рв = ЛБоунд (всДата, 1) За УБоунд (всДата, 1)За цол = ЛБоунд (всДата, 2) За УБоунд (всДата, 2)всДата (рв, цол) = вс_Соурце.Ранге ("А2"). Помак (рв, цол) .ВредностНект цолНект рв'погледајте лист за дестацијуСет вс_Дестинатион = Радни листови ("Лист 2")'попуните одредишни лист из низаЗа рв = ЛБоунд (всДата, 1) За УБоунд (всДата, 1)За цол = ЛБоунд (всДата, 2) За УБоунд (всДата, 2)вс_Дестинатион.Ранге ("А1"). Одступање (рв, цол) .Вредност = всДата (рв, цол)Нект цолНект рвЕнд Суб |
Промена величине помоћу РеДим-а и Ре-Дим Пресерве-а
Можете променити величину низа помоћу РеДим.
| 1234567891011121314151617 | Суб Ресизе2Д ()'декларишите низДим варАрраи () као Вариант'декларишите величину низаРеДим варАрраи (1, 2)варАрраи (0, 0) = "Мел Смитх"варАрраи (0, 1) = "Фред Буцкле"варАрраи (0, 2) = "Јане Еире"варАрраи (1, 0) = "Рачуновођа"варАрраи (1, 1) = "Секретар"варАрраи (1, 2) = "Доктор"'поново декларирајте величину низаРеДим варАрраи (0, 1)'поново напунити низварАрраи (0, 0) = "Мел Смитх"варАрраи (0, 1) = "Фред Буцкле"Енд Суб |
Када поново декларишете низ, изгубићете све податке који су претходно били у низу, осим ако не користите Изјава о очувању РеДим -а.
| 12345678910111213141516 | Суб Ресизе2Д ()'прогласити низ Дим варАрраи () као Вариант'декларишите величину низаРеДим варАрраи (1, 2)варАрраи (0, 0) = "Мел Смитх"варАрраи (0, 1) = "Фред Буцкле"варАрраи (0, 2) = "Јане Еире"варАрраи (1, 0) = "Рачуновођа"варАрраи (1, 1) = "Секретар"варАрраи (1, 2) = "Доктор"'поново декларирајте величину низаРеДим Преверве варАрраи (1, 3)'попуните низ додатним вредностимаварАрраи (0, 3) = "Роб Барнес"варАрраи (1, 3) = "Водоинсталатер"Енд Суб |
Можете променити величину последње димензије низа само ако желите да задржите изворне податке у низу са Пре-Дим Пресерве.
Када кликнете на отклањање грешака, грешка ће бити истакнута што показује да прва димензија у низу није иста као прва димензија када је величина низа првобитно декларисана.
