Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перебрать все листы в книге и на каждом листе вставить номера по порядку
 
#1
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. Подскажите как правильно дописать код
 
 
 
#2
11.08.2015 11:49:10
простое решение
Код
Sub ПеребратьВсеЛисты() 
Dim iWS As Worksheet, i As Integer
i = 1
For Each iWS In ThisWorkbook.Worksheets 
   iWS.Range("D1").Value = i: i = i+1
Next iWS 
End Sub
Неизлечимых болезней нет, есть неизлечимые люди.
 
 
 
#3
11.08.2015 12:05:14
Спасибо!
но почему то не работает(. ошибок не выдает, но и не выполняет задачу...то есть ничего не меняется
 
 
 
#4
11.08.2015 12:08:21
У меня макрос TheBestOfTheBest,  отработал как Вы и просили
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
11.08.2015 12:29:24
В 4 строке заменил ThisWorkbook.Worksheets на ActiveWorkbook.Worksheets и заработало.
спасибо огомное!  :)
 
 
 
Страницы: 1
Читают тему
Наверх