Създаване на обобщаваща таблица с двумерен динамичен масив.

VBA за Excel Visual Basic for Microsoft Excel има за цел да се придобият функционални умения за работа с макроси. Предоставя възможност да се автоматизират често повтарящи се задачи и намалява вероятността от грешка.

Безплатни 20 урока
регистрирай се и научи

Ако сте вече потребител - Регистриран съм
Видео
Назад Алтернативен видео плеър
Напред

Тест за преминаване към следващия урок

 
Методът GetOpenFilename присвоява референцията на файла, който се отваря, на променлива.
Вярно
Не вярно
 
Динамичният многомерен масив променя многократно измерението си
Не вярно
Вярно

Въпроси и отговори

  • Защо се предименсира ar_week няколко пъти?

    Румен Драганов:

    Защо е необходимо цикълът arr_weekда се предименсира в процедурата Fill_ArrayWeekняколко пъти, вместо да се направи само веднъж предицикъла в процедурата Fill_Table, веднага следпреброяването на листовете в променливата sht_nu.

    Димитринка Вълкова:

    Здравейте, Румен. Процедурата Fill_Table попълва колони Процент и Комисионна за всеки лист от файла "Седмична справка" и изчислява сумите за тези колони. След това с процедурата Fill_ArrayWeek се попълват елементите на двумерния масив arr_week, които съхраняват изчислените суми за всеки лист. За да се запазят попълнените вече суми (елементи на масива), използвам Redim Preserve. Накрая елементите на масива arr_week попълват обобщаващата таблица на лист Седмица. "Предименсирането" в процедурата Fill_ArrayWeek има за цел да запази записаните в масива стойности и да добави следващите.
    Разбира се, това е едно решение, но винаги могат да се намерят и други решения! 

    Румен Драганов:

    Имах предвид, че размерът на масива става ясен и не се променя след като се определи броят на листовете във файла и по време на изпълнението не се променя. Процедурата Redim се извиква неколкократно с едни и същи параметри.

    Димитринка Вълкова:

    Така е, размерът на динамичния масив не се променя след като се определи броя на листовете. Но следващата задача е да се попълни масива със сумите от всеки лист. За да се запазят въведените стойности (елементи на масива), използвам Redim Preserve и се добавя новия елемент. Вижте урок 11 от модул 4 и ще стане по-ясно. 

    Румен Драганов:
    Разбира се, че кодът, който предлагате работи. 

    Масивът е дефиниран на модулно ниво и би трябвало да не се загуби, освен ако не се използва Redim без нужда.

    Бих предложил следния код  в процедурата Fill_Table(), вместо това да отпадне
    ReDim Preserve arr_week... в процедурата Fill_ArrayWeek.
    Димитринка Вълкова:

    Румене, благодаря за подробното описание.
    Попълвам елементите на масива в процедурата Fill_ArrayWeek като използвам ReDim Preserve, а Вашето решение попълва елементите във Fill_Table. На практика няма разлика във времето на изпълнение. 
    Всяка една задача на VBA има повече от едно решение, а Вие сте отделили време и сте намерили различно и много добро решение, поздравления!

  • Как се попълва(научава) динамичен двумерен масив?

    Надежда Попниколова:

    Здравейте, досега в уроците масив се попълва с посочването на колоните:

    'попълва масива For i = 0 To 4

    Arr1(i, 0) = wks.Range("A" & i + 2) Arr1(i, 1) = wks.Range("B" & i + 2) Arr1(i, 2) = wks.Range("C" & i + 2) Arr1(i, 3) = wks.Range("D" & i + 2) Arr1(i, 4) = wks.Range("E" & i + 2) Arr1(i, 5) = wks.Range("F" & i + 2) Next i

    Има ли начин това да стане без да се упоменават колоните?

    Опитах нещо такова:

    Но, очевидно масива не се попълва, защото функцията Sum връща стойност 0. Благодаря предварително!

    Надежда Попниколова:

    Качвам ново изображение, защото процедурата не се вижда.

    Надежда Попниколова:

    С помощта на Google открих функцията, която търсех :)

    Димитринка Вълкова:

    Супер е, че сама сте намерила решението!

Напред