Здравствуйте!
К сожалению, не получилось самому разобраться, прошу помощи.
У меня есть макрос, собрал его из разных источников, так что если кто-то увидит знакомое - спасибо вам!)))
К сожалению, не получилось самому разобраться, прошу помощи.
У меня есть макрос, собрал его из разных источников, так что если кто-то увидит знакомое - спасибо вам!)))
Код |
---|
Sub PereborDiapazonaYacheek() 'Отключаем обновление экрана Application.ScreenUpdating = False 'Шаг 1: Объявить переменные Dim MyRange As Range Dim MyCell As Range 'Шаг 2: Определение целевого диапазона Set MyRange = Range("D5:O943") 'Шаг 3: Запуск цикла через диапазон For Each MyCell In MyRange 'Шаг 4: Какое-либо действие с каждой ячейкой Range("D4").Select Selection.Copy MyCell.Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 'Шаг 5: Перейти к следующей ячейке в диапазоне Next MyCell 'Возвращаем обновление экрана Application.ScreenUpdating = True End Sub |
Смысл его в том, что он копирует формулу из ячейки D4 в каждую отдельную ячейку диапазона D5:O943 и потом копирует только её значение. И так по очереди по каждой ячейке.
Хочу вставить сюда стандартный статус бар (который отображает результат в левом нижнем углу окна), чтобы он вел подсчет по этому диапазону типа: "Обработано 80 ячеек, осталось 12000"
Все ячейки в этом диапазоне имеют какое то значение, пустых нет.