Log работы макроса

[valerij]

Как создать Log работы макроса в котором было бы видно "цепочку" выполнения, я знаю, что мона через Ф8, но если цикл от 0 до 1700, замучаешься щелкать. Как такое обходить, не знаю.

Может еще есть какой то способ для отладки макроса?

[EducatedFool]

А куда тебе надо выводить информацию?
На лист, в текстовый файл, в окно отладки?

Попробуй такой вариант:

Sub МойОгромныйМакросСБольшимиЦиклами()
    ДобавитьЗаписьВЛог "Только что запустился МойОгромныйМакросСБольшимиЦиклами"
    For i = 1 To 1700
        ' здесь мы что-то делаем
        If i Mod 30 = 1 Then ДобавитьЗаписьВЛог "Выполняется цикл - обрабатывается строка " & i
    Next
    ДобавитьЗаписьВЛог "МойОгромныйМакросСБольшимиЦиклами успешно завершил свою работу"
End Sub

Sub ДобавитьЗаписьВЛог(ByVal TXT As String)
    Worksheets("Лист1").Cells(Rows.Count, "A").End(xlUp).Offset(1) = TXT
End Sub

Запусти первый макрос, предварительно заменив во втором имя листа (создай в файле ещё один лист специально для логов, и имя этого листа пропиши в макрос)

В первом столбце листа будут записи типа:

Только что запустился МойОгромныйМакросСБольшимиЦиклами
Выполняется цикл - обрабатывается строка 1
Выполняется цикл - обрабатывается строка 31
Выполняется цикл - обрабатывается строка 61
...

Можно выводить информацию в окно Immediate:
(отображается после нажатия Ctrl + G)

Sub МойОгромныйМакросСБольшимиЦиклами2()
    Debug.Print "Только что запустился МойОгромныйМакросСБольшимиЦиклами"
    For i = 1 To 1700
        ' здесь мы что-то делаем
        If i Mod 30 = 1 Then Debug.Print "Выполняется цикл - обрабатывается строка " & i
    Next
    Debug.Print "МойОгромныйМакросСБольшимиЦиклами успешно завершил свою работу"
End Sub

В макросе сделан вывод только каждой 30-й строки.
Если надо все строки, убери из макроса If i Mod 30 = 1 Then

[valerij]

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

А куда тебе надо выводить информацию?
На лист, в текстовый файл, в окно отладки?

Затрудняюсь, сказать, наверное в текстовый файл.
А де это окно отладки, понял, тока как им пользоваться?

[IgorGO]

Может еще есть какой то способ для отладки макроса?

Добавляем в окно просмотра переменную,
В открывшемся диалоге "Add Watch" в группе "Watch type" ставим "Break When Value Is True"(остановить, когда значение истина) или "Break When Value Changes" (Остановить, когда значение изменилось). Если в цикле не на что реагировать, необходимо добавить такую строку, вычислить специальную переменную...