В VBA не скажу, что новичок, хотя, конечно, знаю не много, но следующий вопрос поставил меня в тупик. Суть вопроса: есть макрос, который выполняет определенные действия. В ходе работы макроса обрабатываются множество разных текстовых строк, которые повторяются. Мне необходимо, чтобы в ходе работы макроса, если макрос, к примеру, встречает определенное наименование, увеличивался бы на 1 еденицу счетчик и значение счетчика выводилось бы в какой-нибудь ячейке. Попробовал сделать так:
[vba]
Код
Sub test()
Dim aa As Integer Dim b Dim item1 Dim item2 Dim irow
'увеличение значения счетчика, если в ходе работы макроса встретился текст item1 If Sheets(1).Range("A2").Value = item1 Then aa = bb + 1 End If Sheets(1).Range("A2").Copy Sheets(2).Range("A" & irow).PasteSpecial Sheets(1).Rows("2:2").Delete
'вывод значения счетчика в ячейку Sheets(1).Range("C2") = aa
Loop
End Sub
[/vba]
Макрос срабатывает, но счетчик не увеличивается. Подскажите, пожалуйста, что сделано не так?
Здравствуйте!
В VBA не скажу, что новичок, хотя, конечно, знаю не много, но следующий вопрос поставил меня в тупик. Суть вопроса: есть макрос, который выполняет определенные действия. В ходе работы макроса обрабатываются множество разных текстовых строк, которые повторяются. Мне необходимо, чтобы в ходе работы макроса, если макрос, к примеру, встречает определенное наименование, увеличивался бы на 1 еденицу счетчик и значение счетчика выводилось бы в какой-нибудь ячейке. Попробовал сделать так:
[vba]
Код
Sub test()
Dim aa As Integer Dim b Dim item1 Dim item2 Dim irow
'увеличение значения счетчика, если в ходе работы макроса встретился текст item1 If Sheets(1).Range("A2").Value = item1 Then aa = bb + 1 End If Sheets(1).Range("A2").Copy Sheets(2).Range("A" & irow).PasteSpecial Sheets(1).Rows("2:2").Delete
'вывод значения счетчика в ячейку Sheets(1).Range("C2") = aa
Loop
End Sub
[/vba]
Макрос срабатывает, но счетчик не увеличивается. Подскажите, пожалуйста, что сделано не так?giovanni
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
