Бесконечное повторение цикла по добавлению строки

@sashaoren · Регистрация: 10.10.2016

Студворк — интернет-сервис помощи студентам

ох и достал я всех тут наверно.. но т.к. учусь, все равно задам вопросик

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
With Sheets("Ëèñò1").Range("b10:b4000")
    Set c = .Find("*", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          c.Activate
          ActiveCell(, 0).Select
          ActiveCell = "1"
If ActiveCell(0) = "" And ActiveCell(0, 6) > "0" Then
ActiveCell = "123"
'    Rows(ActiveCell.Row).Select
'    Selection.Insert Shift:=xlDown
End If
        Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
UserForm1.Hide
End Sub

возникает такая проблема, значение "123" он вставляет, а вот строку не хочет, процесс получается вечным, не вставляет строку и продолжает бегать по строкам (если убрать комент) что тут не так? подскажите пожалуйста

@kalbasiatka · 05.11.2016, 22:40

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

что тут не так? подскажите пожалуйста

Много чего. Название темы - огонь, сразу понятно о чём речь пойдёт. Как догадаться что вообще должен делать макрос.

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

ох и достал я всех тут наверно.. но т.к. учусь

Странное оправдание странно оформленной темы.

@sashaoren · 06.11.2016, 07:09 **[ТС]**

а что тут догадываться? написал же не вставляет строку (Selection.Insert Shift:=xlDown) при условии (If ActiveCell(0) = "" And ActiveCell(0, 6) > "0" Then) и чего там много не так?

@sashaoren · 06.11.2016, 07:52 **[ТС]**

прикладываю пример

kalbasiatka я думал тут решают проблемы, а не критикуют оформление темы...

@Казанский · 06.11.2016, 10:07

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

процесс получается вечным, не вставляет строку и продолжает бегать по строкам (если убрать комент) что тут не так?

Происходит вот что. Первый раз поиск находит непустую ячейку В17 (заметьте, метод .Find ищет ПОСЛЕ указанной ячейки, если ячейка не указана, то ей является первая ячейка диапазона, т.е. В10). Получается
firstAddress = "$B$17"
Потом поиск находит последующие непустые ячейки в диапазоне, после последней находит первую В10, потом по идее должен найти В17 и выйти из цикла. НО если строка была вставлена, то эта ячейка имеет уже другой адрес $B$18, и условие выхода из цикла не выполняется!

@sashaoren · 06.11.2016, 10:16 **[ТС]**

спасибо большое за доходчивый ответ! Даже об этом и не подумал((

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@sashaoren 1 / 1 / 0 Регистрация: 10.10.2016 Сообщений: 23
	06.11.2016, 07:09 [ТС]
	а что тут догадываться? написал же не вставляет строку (Selection.Insert Shift:=xlDown) при условии (If ActiveCell(0) = "" And ActiveCell(0, 6) > "0" Then) и чего там много не так? 0

@sashaoren 1 / 1 / 0 Регистрация: 10.10.2016 Сообщений: 23
	06.11.2016, 10:16 [ТС]
	спасибо большое за доходчивый ответ! Даже об этом и не подумал(( 0

Бесконечное повторение цикла по добавлению строки

Решение