GhostProgram
For Each ws In Worksheets
ws.Range("C3").Value = "Напечатать"
1) еще варианты:
1.
2.
For Each ws In Workbooks("исходные данные").Worksheets
ws.Range("C3").Value = "Напечатать"
Next
1.
2.
For i = 1 To wb.Worksheets.Count
Worksheets(i).Range("C3").Value = "Напечатать"
Next i
GhostProgramCells(1.1).CurrentRegion.Select ' а для cells ws впереди ставлю и не выделяет диапазон ошибка?!
2) Это потому что для использования метода Select в отношении диапазона ячеек, сначала нужно необходимо, чтобы лист содержащий данный диапазон был активным, попробуй:
1.
2.
3.
4.
For Each ws In Workbooks("исходные данные").Worksheets
ws.Activate 'если есть скрытые листы, то будет ошибка
ws.Range("C3").Value = "Напечатать"
ws.Cells( 1 , 1 ).Select
Next
В 99.9% случаев диапазоны выбирать (Select) нет необходимости, к тому же Select сильно замедляет код даже с использованием Application.ScreenUpdating=False
GhostProgramа если без ws, то выделяет диапазон на первом листе...
4) Это потому, что в процедуре находящейся в стандартном или другом модуле класса (кроме модуля Листа), диапазоны с неуказанным листом по-умолчанию принадлежат активному листу. Если же процедура находится в модуле Листа, то по-умолчанию диапазоны с неуказанным листом по-умолчанию принадлежат листу, в чьем модуле находится данная процедура.
GhostProgramИ еще вопрос можно? Если я автоматический макрос написал, то как его запустить в цикле, чтобы он на всех листах выполнился?
5) Ничего не понял. А можно увидеть код "автоматического макроса"?
KL
[MVP - Microsoft Excel]
