Vba динамические массивы: VBA Excel. Массивы (одномерные, многомерные, динамические)

Билл Джелен. Динамические массивы в Excel

Незаметно для меня Microsoft совершил прорыв, представив в сентябре 2018 новые возможности – динамические массивы. Ниже – перевод книги Bill Jelen. Excel Dynamic Arrays Straight to the Point. Книги серии Straight to the Point предназначены для глубокого освещения одного аспекта Excel.

Билл Джелен – основатель сайта MrExcel.com и автор множества книг о Excel. Сайт бесплатно отвечает на более чем 30 000 вопросов в год. В моем блоге представлены три книги Джелена:

• Сводные таблицы в Microsoft Excel 2013,
• Всё о ВПР: от первого применения до экспертного уровня,
• Гуру Excel расширяют горизонты: делайте невозможное с Microsoft Excel.

Скачать заметку в формате Word или pdf, примеры в формате Excel

Содержание

1. Начало работы
2. Функция СОРТ
3. Функция СОРТПО
4. Функция ФИЛЬТР
5. Функция УНИК
6. Комбинирование функций
7. Функция ПОСЛЕД
8. Функция СЛМАССИВ
9. Почему формулы массива (Ctrl+Shift+Enter) такие жесткие: неявное пересечение
10. Функция ПРОСМОТРX и динамические массивы
11. Обычные функции, использующие динамические массивы
12. Динамические массивы и функции кубов

Введение

Ранее многие люди пытались изучать формулы массива и потерпели неудачу. Майк Гирвин написал отличную книгу, чтобы объяснить, как работают формулы массива. Целые главы той книги здесь будут сведены к коротким предложениям, благодаря новым функциям.

О динамических массивах было объявлено 24 сентября 2018 года, но даже в MS Excel 2019 они пока не представлены. Динамические массивы доступны только в Office 365. Я думаю, что парадигма покупки бессрочной лицензии на Office каждые три или шесть лет устарела, и рекомендую переходить на подписку.

Как организована эта книга. В главе 1 вы узнаете о концепции формулы, распространяющейся на соседние ячейки. Вы увидите, как непустая ячейка может блокировать разлив массива, и как это исправить. Вы услышите о неявном пересечении и о том, как нотация @ может решить эту проблему. Главы 2–8 посвящены каждой из шести новых функций и их комбинациям. Глава 9 основана на превосходном видео Джо Макдэйда. Из этой главы вы узнаете термины, которые использует команда Excel Calc: Подъем, Трансляция, Попарный подъем, Усечение массива и Неявное пересечение. В главе 10 рассматриваются два способа, с помощью которых динамические массивы делают новую функцию ПРОСМОТРX более мощной. В 11-й – приведены 24 примера объединения динамических массивов с рядом обычных функций Excel. В 12-й главе показано, как динамические массивы могут работать с  функциями кубов.

Оригинальные файлы с примерами можно загрузить с сайта автора. К каждой главе я приложу файл, адаптированный к настоящему переводу.

Глава 1. Начало работы

Формулы теперь могу разливаться

В этой главе рассматривается новая формула =A2:A20, ошибка #ПЕРЕНОС! и новый неявный оператор пересечения @.

Начнем с базовой формулы массива. Перейдите в ячейку Е3. Наберите =A2:C10. В более ранних версиях Excel вам пришлось бы включить этот диапазон в качестве аргумента какой-нибудь функции, или использовать формулу массива, одновременно нажав Ctrl+Shift+Enter.

Рис. 1. Формула указывает на диапазон ячеек

Теперь же достаточно нажать Enter. Excel возвращает значения в 27 ячеек, которые выбираются автоматически вправо и вниз. Посмотрите на формулу в строке формул… здесь нет фигурных скобок, а это значит, что никто не нажимал Ctrl+Shift+Enter.

Рис. 2. Одна формула вернула множество значений

Ячейка E4 содержит текст Central, и, хотя строка формул показывает формулу для этой ячейки, она отображается серым цветом. Давайте проверим с помощью VBA, что содержится в ячейках Е3 и Е4?

Рис. 3. VBA подтверждает, что в ячейке Е4 не формула

VBA показывает, что в ячейке Е3 – формула, а в Е4 – нет. Также в Excel можно ввести формулу =ЕФОРМУЛА(E4). Она вернет ЛОЖЬ. И еще одна проверка. Выберете диапазон D1:h30, и пройдите по меню Главная –> Найти и заменить –> Формулы. Будет выделена только ячейка E3.

Один из первых вопросов на YouTube в ответ на мои первые видео с динамическими массивами был: можно ли вы копировать и вставлять значения? Да! Выберите диапазон E3:G11, нажмите Ctrl+C, кликните правой кнопкой мыши на выбранную новую ячейку и выберите Специальная вставка –> Значения.

Что происходит, если формула не может пролиться?

Что произойдет, если ячейка, куда должен разлиться диапазон, будет занята?

Рис. 4. Как Excel справится с занятой ячейкой?

Excel вернет ошибку #ПЕРЕНОС! Excel сообщает, что не может вернуть массив целиком. Поэтому не вернет ни одного результата. Если выбрать контекстное меню слева от ячейки с ошибкой, можно  выделить мешающие ячейки. Возможно, их получится перенести в другое место листа.

Рис. 5. Ошибка #ПЕРЕНОС! и ее контекстное меню

Как только вы очистите ячейки, мешающие размещению массива, он автоматически разольется.

Существует несколько типов ошибки #ПЕРЕНОС! Та, что выше, называется Диапазон для переноса данных не пустой. Другие ошибки:

• Неопределенный размер. Вы не можете использовать волатильные функции, например, СЛУЧМЕЖДУ(), в качестве аргумента функции ПОСЛЕДОВ().
• Выходит за пределы листа. Вы не можете ввести функцию =СОРТ(C:C) в ячейке E2.
• Табличная формула. Вы не можете использовать функции динамического массива внутри Таблицы.
• Не хватает памяти. Вам следует ссылаться на диапазон меньшего размера.
• Разлив в объединенные ячейки. Динамический массив не может разливаться в объединенную ячейку.
• Неопознанная ошибка. Excel не может распознать ошибку.

Если ваша формула указывает на Таблицу, динамический массив будет расширяться при добавлении новых строк в Таблицу

Рис. 6. Динамический массив «отслеживает» Таблицу

Сравните с рис. 2. Вы преобразовали диапазон А1:С19 в Таблицу (Ctrl+T). Формула в ячейке Е3 изменилась на =Таблица1. Теперь, если вы добавите еще одну строку в Таблицу (А11:С11), формула в ячейке Е3 не изменится, а динамический массив автоматически расширится еще одной строкой (Е12:G12).

Хотя формулы динамического массива могут указывать на Таблицу, в самой Таблице использовать формулы динамического массива нельзя.

Использование нового типа ссылок на массив: E3#

Как вы захотите сослаться на массив E3:G12, но не знаете, какого он размера, добавьте оператор разлитого диапазона (#) после ячейки, содержащей формулу массива.

Например, =E3 вернет East, =E3# вернет весь массив, формула которого хранится в E3. Неофициально это называется ссылочной нотацией массива. Такая нотация поддерживается только при ссылке внутри одной книги.

Что такое неявное пересечение

Если вы введете =@C2:C11 в любой ячейке в строках со 2 по 10, формула вернет значение из столбца С той строки, в которой вы ввели формулу. Знак @ известен как неявный оператор пересечения.

Рис. 7. Используйте нотацию @, когда вам нужно неявное пересечение.

НОУ ИНТУИТ | Лекция | Массивы, циклы, принятие решений

< Дополнительный материал  || Лекция 7: 123

Аннотация: Лекция посвящена описанию основных программных конструкций VBA. Здесь будет освещена работа с массивами, циклами, операторами принятия решений. Так же в этой лекции мы поговорим о работе с внешними файлами.

Ключевые слова: программа, массив, размерность, именованные переменные, VBA, динамический массив, нумерация, индекс, полезность, информация, ключевое слово, цикла, переменная, значение, Приращение, счетчик, excel, preservation, список аргументов, имя переменной, размерность массива, команда, память, объект, цикл с предусловием, цикл с постусловием, функция, операторы, пароль, пользователь, логический оператор, имя пользователя, объектная переменная, шаблон, анализ, произвольное, оператор безусловного перехода, место, слово, цикл вывода, файлы, word, поиск, файл, путь, текущая директория, папка, параметр, опреатор принятия решений

7.

1. Массивы

Решим простую задачу: ввести в ответ на вопросы программы фамилии сотрудников. Если фамилий немного — 5 или 10 — использование переменных, с которыми вы уже знакомы, вполне оправдано. Программа будет состоять из нескольких строк такого вида:

a = InputBox("Введите фамилию сотрудника").

Как быть, если нужно работать со списком из 20 фамилий? А если их будет 50, 1000 или их количество должно быть определено в ходе выполнения программы?

Для обработки больших объемов информации использовать переменные неудобно. Что же делать? Ответ прост: использовать массивы.

Массив — это именованный набор индексированных ячеек. Ячейки так же называют элементами или индексированными переменными.

У каждого массива 5 основных характеристик: имя, размерность, число элементов, номер первого элемента и тип элементов.

• Имя — правила именования массивов аналогичны правилам именования переменных.

• Размерность — одномерные массивы напоминают одну строку таблицы, каждая ячейка которой содержит какие-то данные. Многомерные массивы имеют больше измерений. Их можно сравнивать с таблицами, имеющими множество строк и столбцов и с наборами таблиц.

• Нумерация элементов подчиняется следующим правилам:

  • По умолчанию нумерация элементов массива начинается с 0. Первый по счету элемент получит индекс 0, второй — 1 и т.д.
  • В объявлении отдельного массива можно явно указать индекс его первого и последнего элемента, разделив их ключевым словом To.
  • Если вы хотите, чтобы индексы всех массивов начинались с 1, добавьте в раздел объявлений модуля (вне процедур, функций и обработчиков событий) команду Option Base 1.

• Тип — подчиняется тем же правилам, которые мы ранее рассмотрели для переменных. Если пользователь не указал его явно, массив получит тип по умолчанию — Variant. Это требует больше системных ресурсов, но позволяет обрабатывать значения различных типов.

Не всегда количество элементов и размерность массива известны до начала работы программы. VBA умеет работать с динамическими массивами, параметры которых можно менять в ходе выполнения программы. О них мы поговорим ниже.

7.2. Одномерные массивы

07-01-Одномерный массив.docm- пример к п. 7.2.

Для объявления массивов используют оператор Dim. Объявить массив можно двумя способами. Первый заключается в указании общего количества элементов. Например, так:

Dim MyArrayA(30) As Single

intuit.ru/2010/edi»>Объявленный массив MyArrayА содержит 31 элемент (с индексами от 0 до 30) типа Single. Поскольку нумерация явно не задана, элементы получат индексы по обычным правилам.

Можно объявить массив и другим способом:

Dim MyArrayB(1 To 25)

Массив MyArrayB содержит 25 элементов. Границы нумерации заданы явно — первый элемент получит индекс 1, второй — 2 и т.д. Тип не указан — в массиве можно хранить любые данные.

Работа с элементами массива ничем не отличается от работы с переменными. Давайте решим следующую задачу:

1. Объявить одномерный массив на 3 элемента
2. Внести в первый элемент число 5 в программе, во второй — запросив значение с помощью окна ввода
3. Вычислить в третьем элементе массива произведение значений, хранящихся в первом и втором элементах.
4. Вывести полученное значение в окне сообщения.

Решение задачи приведено в листинге 7.1.

Dim A(2)
A(0) = 5
A(1) = InputBox("Введите значение второго элемента")
A(2) = A(0) * A(1)
MsgBox A(2)

Листинг
7.1.
Работа с массивом

В конце работы программы, если на вопрос о вводе числа мы введем число 2, массив A будет иметь такой вид — табл. 7.1.

intuit.ru/2010/edi»>Как видите, серьезное отличие массивов от переменных — использование индексов для работы с различными элементами массива. Однако, можно заметить, что эта задача легко решается с использованием переменных, без массивов.

Возможно, сейчас вы еще не вполне осознаете полезность массивов. Если сейчас вы напишите программу для ручного ввода данных в несколько элементов массива, она получится такой же громоздкой, как раньше. Так чем же массивы лучше? Ответ на этот вопрос кроется в использовании циклов.

7.3. Циклы

Циклы позволяют выполнять одни и те же команды много раз. В табл. 7.2. собрана информация об основных видах циклов.

Таблица
7.2.
Виды циклов

Название цикла	Вид
For — Next	С фиксированным количеством повторов. Выполняется заданное количество раз
While — Wend	С предусловием. Если не верно условие, заданное на входе в цикл, может не выполниться ни разу
Do — Loop	С постусловием. Выполняется по меньшей мере один раз.

7.4. Цикл For — Next

07-02-Цикл For-Next.docm — пример к п. 7.4.

Решим задачу: вывести цифры от 1 до 10 в окнах сообщений. Ее можно решить и без использования циклов, написав 10 строк такого вида: MsgBox («1»). А вот конструкция For — Next позволяет делать то же самое гораздо изящнее. В листинге 7.2. вы можете найти решение задачи.

For i = 1 To 10
        MsgBox (i)
    Next i

Листинг
7.2.
Вывод цифр от 1 до 10 в цикле

intuit.ru/2010/edi»>Ключевое слово For задает начало цикла. После него следует переменная i, которая увеличивается при каждом проходе цикла. В ходе работы конструкции For — Next значение i изменяется от 1 до 10.

Начальное значение счетчика устанавливается при входе в цикл. Мы просто приравниваем i какому-либо числу. Конечное значение переменной задается после ключевого слова To. Переменная i доступна внутри цикла — ведь именно ее мы выводим в окне сообщения.

Ключевое слово Next с указанием переменной, к которой оно относится, закрывает цикл.

В качестве первого и последнего значения счетчика цикла можно использовать какую-нибудь переменную. Она может быть определена в ходе выполнения программы, но до входа в конструкцию For — Next.

Вы могли заметить, что переменная цикла меняется с приращением 1. Это приращение можно задать в явном виде с помощью ключевого слова Step. В листинге 7.3. вы можете видеть пример оператора For — Next, выводящего нечетные числа в диапазоне от 1 до 10.

For i = 1 To 10 Step 2
        MsgBox (i)
    Next i

Листинг
7.3.
Вывод нечетных цифр в диапазоне от 1 до 10 в цикле

С помощью ключевого слова Step можно создать не только возрастающий, но и убывающий счетчик. Для этого в Step надо указать отрицательное число и проследить за тем, чтобы первое значение переменной цикла было больше последнего. Например, так: For i=10 to 1 Step -1. Первое значение переменной в таком цикле будет равняться 10, второе — 9 и т.д. — до 1.

Теперь перейдем к совместному использованию циклов и массивов. Напишем программу, которая предлагает пользователю ввести 10 фамилий, сохраняет их в массиве, а потом выводит в окнах сообщений.

Готовая программа приведена в листинге 7.4.

Dim MyArray(9) 
For i = 0 To 9 
MyArray(i) = InputBox("Введите фамилию №" & i + 1)
Next i 
For i = 0 To 9 'Начало еще одного цикла
MsgBox ("Фамилия №" & (i + 1) & " " & MyArray(i)) 
Next i 'Конец цикла

Листинг
7.4.
Ввод и вывод 10 фамилий

Обсудив цикл типа For-Next, продолжим разговор о массивах. На очереди — многомерные массивы.

7.5. Многомерные массивы

07-03-Многомерные массивы.docm — пример к п. 7.5.

Многомерные массивы имеют несколько измерений. Чаще всего применяются двумерные массивы (матрицы). Матрицу можно представить в виде обычной таблицы с несколькими строками и столбцами.

Для того чтобы объявить двумерный массив, нужно воспользоваться командой Dim с указанием размерности каждого из измерений. Остальные правила объявления таких массивов и работы с ними аналогичны таковым для одномерных массивов. Например, мы можем указать лишь размеры измерения массива:

Dim MyArrayA(10, 1) As Single

Массив MyArrayА содержит 11 строк и 2 столбца типа Single.

Можно в явном виде задать границы размерностей:

Dim MyArrayB(1 To 25, 1 To 5)

Массив MyArrayB содержит 25 строк и 5 столбцов. Границы нумерации заданы явно. Тип не указан — в массиве можно хранить любые данные.

В листинге 7.5. приведен пример программы, которая объявляет двумерный массив 5х2 и предлагает ввести в него фамилии и номера телефонов сотрудников.

Dim MyArray(1 To 5, 1 To 2)
For i = 1 To 5
    MyArray(i, 1) = InputBox("Введите фамилию №" & i)
    MyArray(i, 2) = InputBox("Введите Телефон №" & i)
Next i

Листинг
7. 5.
Работа с массивом размерностью 5х2

В табл. 7.3. вы можете видеть массив MyArray после заполнения его фамилиями и номерами телефонов. В MyArray (1,1) мы внесли фамилию «Иванов», в MyArray (1,2) — телефон Иванова 898989898 и т.д.

intuit.ru/2010/edi»>Эта программа очень похожа на те, которые мы писали для работы с одномерными массивами. В цикле, тело которого повторяется 5 раз, мы поочередно запрашиваем фамилию и номер телефона.

Один цикл неудобно использовать для работы с массивами больших размерностей. Нетрудно представить себе, какой громоздкой получится решение задачи копирования одной матрицы 100х100 в другую такую же. Кстати, при обработке данных в Microsoft Excel вам постоянно придется обращаться с большими двумерными матрицами. К счастью, существует механизм вложенных циклов, который помогает решать подобные задачи.

7.6. Вложенные циклы For-Next

07-04-Вложенные циклы.docm — пример к п. 7.6.

Принцип работы вложенных циклов кроется в их названии. Все очень просто — один цикл вкладывается в другой. Например, для заполнения массива 10х10 случайными целыми числами от 1 до 10 можно написать такую программу (листинг 7. 6.)

Dim MyArray(1 To 10, 1 To 10)
For i = 1 To 10
    For j = 1 To 10
        MyArray(i, j) = Int(Rnd(1) * 10)
    Next j
Next i

Листинг
7.6.
Работа с массивом 10х10

Внешний цикл ( i ) выполняется один раз, после чего внутренний ( j ) — десять раз. За один проход внешнего цикла внутренний выполняет десять — заполняется первая строка массива (с индексами от 1,1 до 1,10) и т.д.

Дальше >>

< Дополнительный материал  || Лекция 7: 123

Заполнение динамических массивов VBA — Stack Overflow

Подход на основе классов с BetterArray
В 2013 году Иоаннис заметил, что вы можете создать класс для управления изменением размера массива по частям. Реализация со многими другими функциями — сортировка, нарезка, фильтрация, преобразование и многие другие — теперь можно найти здесь: https://senipah. github.io/VBA-Better-Array/ (я не подключен к проект). На странице свойства емкости объясняется внутренний процесс удвоения. В общем:

Класс BetterArray, хранящийся в одном файле .cls, можно легко
импортируется в любой новый или существующий проект VBA. Написано чисто
VBA и не использует никаких внешних зависимостей. Соответственно должно работать
в любом приложении, которое поддерживает сценарии VBA как в Windows, так и в
Операционные системы Mac.

Другими словами, вы просто загружаете модуль класса (один файл .cls, ссылка здесь), перетаскиваете его в свой проект ^* , и оттуда он доступен как коллекция или любой другой объект для создания. Здесь я использую его для получения содержимого текущего каталога:

 Sub DemoBetterArray()
    Dim ba As BetterArray, tempDir As String, basicArray As Variant
    Установите ba = новый BetterArray
    временный каталог = каталог ("")
    Делать, пока tempDir <> ""
        ba.Push tempDir 'Я не устанавливаю границ, но добавляю элемент
        временный каталог = каталог()
    Петля
    basicArray = ba. Items 'Просмотр результатов в традиционном массиве
    
Конец сабвуфера
 

В этом примере вы можете сделать то же самое с ArrayList , обычно доступным в Windows через .NET (но, по-видимому, устаревшим в .NET). См. резюме. В любом случае, между этими объектами, которые вы можете исследовать, есть существенные различия. Для сложения 1 000 000 целых чисел я обнаружил, что BetterArray работает в несколько раз быстрее, чем ArrayList.

Совет по использованию документации BetterArray: хотя страница с примерами в настоящее время пуста, страницы с методами (перечисленные здесь) содержат много полезных примеров того, что может делать класс, помимо эффективного расширения.

Расширение посредством обработки ошибок
Еще одна возможность, которая еще не обсуждалась, — использование обработки ошибок. Подход продемонстрирован Брюсом МакКинни в Hardcore Visual Basic, 2-е издание (1997). Функция ниже использует эту идею.

 Sub VectorFill (исходный вектор как вариант, индекс как длинный, значение как вариант)
'Заполняет массив 1d по указанному индексу и при необходимости увеличивает UBound (удваивая его). 
'Обрежьте ненужное пространство отдельно с помощью ReDim Preserve.
    Const resizeMultiplier As Integer = 2
    
    'С этим оператором ошибка выхода за границы вызовет изменение размера
    При ошибке GoTo ErrorHandling
    исходный вектор (индекс) = значение
    Выйти из подпрограммы
    
'ErrorHandling используется для изменения размера массива по частям
Обработка ошибок:
    newBound = (UBound(sourceVector) + 1) * resizeMultiplier '+1 помогает с начальным 0
    ReDim Preserve исходный вектор (newBound)
    Возобновить 'Новое место доступно, поэтому вернитесь и повторите попытку
Конец сабвуфера
 

Приведенную выше функцию можно использовать следующим образом:

 Sub DemoVectorFill()
    Dim dirContents() как вариант, я как длинный
    ReDim dirContents(0)
    dirContent = Каталог("")
    Делать, пока dirContent <> ""
        VectorFill dirContents, i, dirContent
        dirContent = Каталог
        я = я + 1
    Петля
    ReDim Preserve dirContents(i - 1)
Конец сабвуфера
 

При таком подходе вам не нужно проверять емкость на каждой итерации и использовать ошибку при ее возникновении. В моих тестах это не быстрее, чем эта проверка (это немного медленнее), но по мере увеличения размеров в любом случае это намного быстрее, чем ReDim Preserve на каждой итерации.

^{* Если вы попытаетесь скопировать и вставить код BetterArray в модуль класса, это не совсем сработает. Модули класса имеют некоторый код, который скрыт в редакторе VBA и не может быть скопирован с помощью копирования и вставки. Есть два варианта: перетащить файл .cls на панель «Проект» или использовать File —> Import File .}

excel — ошибки VBA с динамическими массивами

Задавать вопрос

спросил
1 год, 2 месяца назад

Изменено
1 год, 2 месяца назад

Просмотрено
118 раз

Я новичок в VBA. Я пытаюсь написать макрос, который проверяет наличие недостающих данных в нескольких файлах. Если данные отсутствуют, он добавит имя файла в массив, а в конце выдаст список файлов с неполными данными.

Мне нужен массив переменных, но что бы я ни делал, чтобы исправить это, я продолжаю получать ошибки. См. код ниже. Любая помощь будет очень высоко ценится!!!

 Подмакрос()
Dim Path2 как строка
Dim Path3 как строка
Dim Path4 как строка
Dim Path5-5-6 как строка
Dim FileName_1 как строка
Dim FileName_2 как строка
Dim FileName_3 как строка
Dim FileName_4 как строка
Dim FileName_5 как строка
Dim FileName_6 как строка
Dim W до тех пор, пока
Dim отсутствует как логическое значение
Dim len_ListMissing As Long
Dim найден как логическое значение
Dim k как вариант
Дим дикт
Установите dict = CreateObject("Scripting.Dictionary")
Dim n как целое число, i как вариант
ReDim ListMissing(n)
Путь2 = "https://_path2_"
Путь3 = "https://_path3_"
Путь4 = "https://_path4_"
Путь5-5-6 = "https://_путь5-5-6_"
FileName_1 = "file1. xlsx"
FileName_2 = "file2.xlsx"
FileName_3 = "file3.xlsx"
FileName_4 = "file4.xlsx"
FileName_5 = "file5.xlsx"
FileName_6 = "file6.xlsx"
W = Workbooks("_currentfile_.xlsm").Sheets("Sheet1").Cells(1, "A").Value
dict.Добавить путь2 и имя_файла_1, имя_файла_1
dict.Добавить путь3 и имя_файла_2, имя_файла_2
dict.Добавить путь4 и имя_файла_3, имя_файла_3
dict.Add Path5-5-6 & FileName_4, FileName_4
dict.Add Path5-5-6 & FileName_5, FileName_5
dict.Add Path5-5-6 & FileName_6, FileName_6
СписокОтсутствует(0) = "тест"
Для каждого k In dict.keys
Рабочие тетради.Открыть (k)
    Если Workbooks(dict(k)).Sheets("Sheet2").Cells(W + 20, "X").Value = "" Or Workbooks(dict(k)).Sheets("Sheet2").Cells(W + 20, «X»). Значение = «0» Или Рабочие книги (dict (k)). Листы («Лист2»). Ячейки (W + 20, «Y»). Значение = «» Или Workbooks (dict (k)). )).Листы("Лист2").Ячейки(W + 20, "Y").Значение = "0" Или Рабочие книги(dict(k)).Листы("Лист2").Ячейки(W + 20, "Z ").Value = "" Или Workbooks(dict(k)).Sheets("Sheet2").Cells(W + 20, "Z"). Value = "0" Тогда
        Отсутствует = Верно
    Еще
        Отсутствует = Ложь
    Конец, если
    
    п = 0
    Если Отсутствует = Верно Тогда
        Для каждого i в ListMissing
            Если i = dict(k), то
                Найдено = Верно
            Еще
                Найдено = Ложь
            Конец, если
                
            Если Найдено = Ложь Тогда
                п = п + 1
                ReDim Preserve ListMissing (от 1 до n)
                СписокОтсутствует(n) = дикт(k)
            Еще
            Конец, если
        Далее я
    Конец, если
Книги (dict (k)). Закрыть SaveChanges: = False
Следующий
len_ListMissing = UBound(ListMissing) - LBound(ListMissing) + 1
Если len_ListMissing = 1 Тогда
    MsgBox «Данные завершены».
Еще
    MsgBox "Данные неполные в следующих файлах:" & vbCrLf & vbCrLf & ListMissing(i)
Конец, если
Конец сабвуфера
 

• массивы
• excel
• vba
• arraylist
• динамические массивы

5

Вот пример использования словаря для хранения отсутствующего статуса (код не тестируется)

 dict. Add sFullPath2, true
dict.Add sFullPath3, правда
для каждого k в словаре
   установить wbToCheck = Workbooks.Open(k)
   если wbToCheck.Sheets("Лист2").Cells(W + 20, "X").Value = "" then 'только одно условие в этом примере
     дикт (к) = истина
   еще
     дикт (к) = ложь
   конец, если
   wbToCheck.Close SaveChanges:=False
следующий
 

, поэтому вам не понадобится этот дополнительный массив.

5

Зарегистрируйтесь или войдите в систему

Зарегистрируйтесь с помощью Google

Зарегистрироваться через Facebook

Зарегистрируйтесь, используя адрес электронной почты и пароль

Опубликовать как гость

Электронная почта

Обязательно, но не отображается

Опубликовать как гость

Электронная почта

Требуется, но не отображается

Нажимая «Опубликовать свой ответ», вы соглашаетесь с нашими условиями обслуживания и подтверждаете, что прочитали и поняли нашу политику конфиденциальности и кодекс поведения.