Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос прохода по всем листам книги и выполнения одной и тойже процедуры(макроса)
 
#1
10.02.2012 10:54:52
Добрый день.  
Есть книга с кучей листов (названия листов разное). Необходим макрос который проходил бы по всем листам книги и выполнял один и тот же макрос. Макрос который будет выполняться (если это важно) обычная замена одного текста или символа на другой.  
 
Заранее благодарю за внимание.
 
 
 
#2
10.02.2012 10:58:58
Sub test()  
   Dim sh As Worksheet  
   For Each sh In ThisWorkbook.Worksheets ' перебираем все листы  
       sh.UsedRange.Replace "a", "b" ' замена на очередном листе  
   Next sh  
End Sub
 
 
 
#3
10.02.2012 11:02:44
Спасибо. Сейчас посмотрим.
 
 
 
#4
10.02.2012 11:13:03
чет не получается.  
мой макрос вида  
Sub Макрос1()  
'  
' Макрос1 Удаление лишнего после импорта  
'  
Application.ScreenUpdating = False 'отключаем обновление экрана  
Cells.Replace What:= _  
       "'C:\Program Files\Microsoft Office\OFFICE11\xlstart\Супер_Спецификация.xla'!" _  
       , Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _  
       False, SearchFormat:=False, ReplaceFormat:=False  
   Cells.Replace What:= _  
       "'C:\Program Files\Microsoft Office\OFFICE11\xlstart\Blank-RZ.xla'!", _  
       Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _  
       False, SearchFormat:=False, ReplaceFormat:=False  
Application.ScreenUpdating = True 'включаем обновление экрана  
End Sub  
как к нему прицепить.
 
 
 
#5
10.02.2012 11:21:37
Замените свой макрос этим:  
 
Sub Макрос1()  
   Application.ScreenUpdating = False  
   Dim sh As Worksheet  
   For Each sh In ActiveWorkbook.Worksheets    ' перебираем все листы  
       sh.UsedRange.Replace "'C:\Program Files\Microsoft Office\OFFICE11\xlstart\Супер_Спецификация.xla'!", ""  
       sh.UsedRange.Replace "'C:\Program Files\Microsoft Office\OOFFICE11\xlstart\Blank-RZ.xla'!", ""  
   Next sh  
End Sub
 
 
 
#6
10.02.2012 11:51:10
Все получилось. Большое спасибо.
 
 
 
#7
10.02.2012 12:06:15
тему можно считать закрытой
 
 
 
Страницы: 1
Наверх