Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
ограничение цикла VBA
 
#1
11.05.2022 16:43:28
Добрый день!

Просьба помочь реализовать следующую логику цикла VBA - перебор, пока (столбец A непустой) И (перебор пока счетчик не достигнет максимума от 10000 или значения строке 1, столбце АА).

Пробую так, но ругается на "iRowNo = iRowNo + 1"

Do Until .Cells(iRowNo, 1) = ""And iRowNo <= WorksheetFunction.Max(10001, .Cells(1, 27) + 1)
 
 
 
#2
11.05.2022 16:52:03
iRowNo объявлена? Есть в коде строка
Код
Dim iRowNo As Long
Если не объявлена, чему равно её значение на момент ошибки?
В коде должна быть строка с присваиванием
Код
iRowNo = ...
 
 
 
#3
11.05.2022 16:53:28
Код
  Dim r
  r = 1
  Do While Not IsEmpty(Cells(r, 1))
    r = r + 1
    If r > 10000 Or r > [aa1] Then Exit Do
  Loop
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#4
11.05.2022 17:02:10
Цитата
написал:
iRowNo объявлена? Есть в коде строка  
Код
    [URL=#]?[/URL]       1      Dim   iRowNo   As   Long  
  Если не объявлена, чему равно её значение на момент ошибки?
В коде должна быть строка с присваиванием
Код
    [URL=#]?[/URL]       1      iRowNo = ...  
 
Объявлена, но как Integer
Dim iRowNo As Integer
 
 
 
#5
11.05.2022 17:11:19
Цитата
написал:
Объявлена, но как Integer
Ошибка возникает при превышении 32 767.
целочисленный тип данных | Microsoft Docs
 
 
 
Страницы: 1
Наверх