Как проверить что массив полностью заполнен?

[ofenod]

Как проверить что массив полностью заполнен?

[IgorGO]

СЧЕТЗ = Ширина_Диапазона*Высота_Диапазона

[ofenod]

Сообщение от IgorGO

СЧЕТЗ = Ширина_Диапазона*Высота_Диапазона

не в Excel, а в VBA...

[IgorGO]

if WorksheetFunction.CountBlank([a1:c3]) > 0 then 'есть пустые в диапазоне a1:c3

[ofenod]

извиняюсь за неясное объяснение.
кароче..

Dim A(1 to 5) as integer
'заполнение A(i)
Если в массиве есть пустые элементы -> MsgBox('Массив не заполнен')

p.s. К листу Excel не нужно обращаться

[IgorGO]

)))
и последнее уточнение перед ответом: "в массиве есть пустые элементы " - пустые это элементы равные 0?

[SAS888]

Если объявлять массив как Dim A(1 to 5) as Integer, то все незаполненные элементы такого массива будут нулями. Поэтому, задача сводится к тому, чтобы определить, содержит ли массив хотя бы один 0.
Как ни странно Вам покажется, но самый эффективный способ - это перебрать в цикле все элементы массива, и при определении нуля осуществить выход из цикла.
Соответственно, если определять массив As Variant, то в цикле искать нужно пустое значение.
Возможны и другие методы, без использования цикла (например, используя Instr(Join(...))), но быстрее это не будет.

[ofenod]

Спасибо IgorGo за терпение (+ не могу поставить - форум не разрешает ) и SAS888 за точное решение.
Просто никак не мог разобраться в том, что находится в "незатронутых" элементах массива.

[Hugo121]

что находится в "незатронутых" элементах массива - отлично видно в окне "Locals"