Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » ChernAlex
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Перебрать все листы в книге и на каждом листе вставить номера по порядку
 
#
11.08.2015 12:29:24
В 4 строке заменил ThisWorkbook.Worksheets на ActiveWorkbook.Worksheets и заработало.
спасибо огомное!  :)
 
Перейти    
Перебрать все листы в книге и на каждом листе вставить номера по порядку
 
#
11.08.2015 12:05:14
Спасибо!
но почему то не работает(. ошибок не выдает, но и не выполняет задачу...то есть ничего не меняется
 
Перейти    
Перебрать все листы в книге и на каждом листе вставить номера по порядку
 
#
11.08.2015 11:42:28
Добрый день!
только начал использование макросов и изучение vba, требуется помощь.
Задача: Есть книга со 100 листами. Требуется на каждом листе в ячейку D1 ввести значения от 1 до 100. (на первом листе в ячейку D1 ввести значение 1, на втором листе в ячейку D1 ввести значение 2, ...)
Код
Sub ПеребратьВсеЛисты()
Dim iWS As Worksheet
For Each iWS In ThisWorkbook.Worksheets
Range("D1").Value = 1 
Next iWS
End Sub

Этим макросом получается только в активном листе  изменить ячейку D1. Подскажите как правильно дописать код
 
Перейти    
Страницы: 1
Наверх