Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Цикл: Вставить скопированный диапозон во все листы, Помогите с телом цикла
 
#1
29.10.2015 11:41:31
Здравствуйте! Помогите, пожалуйтса, с написание тела цикла по вставке скопированного диапазона в листы книги.
Имеется книги с однотипным шаблоном таблиц и вычислений. Задача с первого листа ("ИТОГ") скопировать всю вторую строку 2 (Rows "2:2") и вставить её во все последующие листы сохраняя формулы и форматирование. Заранее спасибо!

Код
'Вот мой шаблон цикла по выделенным страницам.

Sub DoinSelectedSheets()
    Dim sh As Worksheet
    Dim AW As Window
    Set AW = ActiveWindow
    For Each sh In AW.SelectedSheets   
                sh.Select
                sh.Unprotect
 'Начало тела цикла
 
 'Конец тела цикла   
    ActiveWindow.Zoom = 75
               sh.Protect
        
    Next
End Sub
 
 
 
#2
29.10.2015 13:04:06
С работы не могу ничего прикладывать, к сожалению, терминальный доступ в Интернет.  :(
 
 
 
#3
29.10.2015 13:17:21
Код
Sub DoinSelectedSheets()
    Dim sh As Worksheet
    Dim rn As Range
    Dim AW As Window
    Set AW = ActiveWindow
    Set rn = Worksheets("ИТОГ").Range("2:2")
    For Each sh In AW.SelectedSheets
                sh.Select
                sh.Unprotect
 'Начало тела цикла
    rn.Copy Destination:=sh.[a2]
 'Конец тела цикла
    ActiveWindow.Zoom = 75
               sh.Protect
         
    Next
End Sub

только у Вас не во все последующие листы, а в выделенные
 
 
 
#4
29.10.2015 13:22:41
Код
Sub DoinSelectedSheets()
    Dim sh As Worksheet
    Dim AW As Window
    Set AW = ActiveWindow
    For Each sh In ActiveWorkbook.Sheets   
          if sh.Name<>"ИТОГ" then
                sh.Select
                sh.Unprotect
 'Начало тела цикла
  
 'Конец тела цикла   
    ActiveWindow.Zoom = 75
               sh.Protect
         end if
    Next
End Sub
Изменено: JayBhagavan - 29.10.2015 13:24:22

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#5
29.10.2015 14:38:33
yoozhik, JayBhagavan, спасибо вам большое! Всё отлично отработало, сэкономил кучу времени.
 
 
 
Страницы: 1
Наверх