Ако се величина вашег низа повећава и не желите да поправите величину низа, можете користити РеДим кључна реч. Екцел ВБА затим аутоматски мења величину низа.
Додајте неке бројеве у колону А.
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, декларишемо низ под називом бројеви. Такође декларишите две променљиве типа Интегер. Једна именована величина и једна по имену и.
Затамњивање бројева () Као цео број, величина као цео број, и као цео број
Напомена: низ још нема величину. бројеви, величина и ја су насумично изабрани овде, можете користити било која имена. Не заборавите да се у остатку кода позивате на та имена.
2. Затим одређујемо величину низа и смештамо га у променљиву величину. За то можете користити функцију радног листа ЦоунтА. Додајте следећу линију кода:
сизе = ВорксхеетФунцтион.ЦоунтА (Ворксхеетс (1) .Цолумнс (1))
3. Сада знамо величину низа и можемо га поново димензионирати. Додајте следећу линију кода:
РеДим бројеви (величина)
4. Затим иницијализујемо сваки елемент низа. Користимо петљу.
За и = 1 Према величини
бројеви (и) = Ћелије (и, 1) .Вредност
Затим сам
5. Приказујемо последњи елемент низа помоћу МсгБок -а.
МсгБок бројеви (величина)
6. Изађите из програма Висуал Басиц Едитор и кликните на командно дугме на листу.
Резултат:
7. Сада да бисте јасно видели зашто се ово зове динамички низ, додајте број у колону А.
8. Поново кликните на командно дугме.
Закључак: Екцел ВБА је аутоматски променио величину овог динамичког низа.
9. Када користите кључну реч РеДим, бришете све постојеће податке који су тренутно ускладиштени у низу. На пример, претходно креираном коду додајте следеће линије кода:
РеДим бројеви (3)
МсгБок бројеви (1)
Резултат:
Низ је празан.
10. Када желите да сачувате податке у постојећем низу када их поново димензионишете, користите кључну реч Пресерве.
РеДим Пресерве бројеви (3)
МсгБок бројеви (1)
Резултат: