Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как применить макрос ко всем вкладкам - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как применить макрос ко всем вкладкам (Макросы/Sub)
Как применить макрос ко всем вкладкам
Kirito Дата: Воскресенье, 16.05.2021, 17:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Есть макрос скрывающий пустые строки:
[vba]
Код
Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана длЯ ускорениЯ
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем Ячейкам первой строки
If cell.Value = "x" Then cell.EntireColumn.Hidden = True 'если в Ячейке x - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells 'проходим по всем Ячейкам первого столбца
If cell.Value = "x" Then cell.EntireRow.Hidden = True 'если в Ячейке x - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]

Как его применить ко всем листам книги?


Сообщение отредактировал Serge_007 - Понедельник, 17.05.2021, 09:10
 
Ответить
СообщениеЕсть макрос скрывающий пустые строки:
[vba]
Код
Sub Hide()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана длЯ ускорениЯ
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем Ячейкам первой строки
If cell.Value = "x" Then cell.EntireColumn.Hidden = True 'если в Ячейке x - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(1).Cells 'проходим по всем Ячейкам первого столбца
If cell.Value = "x" Then cell.EntireRow.Hidden = True 'если в Ячейке x - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]

Как его применить ко всем листам книги?

Автор - Kirito
Дата добавления - 16.05.2021 в 17:11
Pelena Дата: Воскресенье, 16.05.2021, 19:36 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Kirito, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеKirito, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 16.05.2021 в 19:36
Serega-Sol Дата: Воскресенье, 16.05.2021, 21:37 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.
Вот кусок кода, который перебирает все листы текущей книги:

[vba]
Код
Dim obj As Workbook
Dim sh As Worksheet

Set obj = ThisWorkbook
For Each sh In obj.Worksheets 'перебираем все листы книги "obj"
'ваш код
Next sh
[/vba]

Я так думаю код для одного листа применим и для всех?
 
Ответить
СообщениеДобрый день.
Вот кусок кода, который перебирает все листы текущей книги:

[vba]
Код
Dim obj As Workbook
Dim sh As Worksheet

Set obj = ThisWorkbook
For Each sh In obj.Worksheets 'перебираем все листы книги "obj"
'ваш код
Next sh
[/vba]

Я так думаю код для одного листа применим и для всех?

Автор - Serega-Sol
Дата добавления - 16.05.2021 в 21:37
Kirito Дата: Вторник, 18.05.2021, 20:56 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Serega-Sol, не работает((
 
Ответить
СообщениеSerega-Sol, не работает((

Автор - Kirito
Дата добавления - 18.05.2021 в 20:56
Pelena Дата: Вторник, 18.05.2021, 22:12 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
не работает((
проверить-то не на чем, файла с примером нет :(


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
не работает((
проверить-то не на чем, файла с примером нет :(

Автор - Pelena
Дата добавления - 18.05.2021 в 22:12
Serge_007 Дата: Среда, 19.05.2021, 10:09 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 14170
Репутация: 2344 ±
Замечаний: ±

Excel 2010
кусок кода, который перебирает все листы текущей книги
Макрос для перебора всех листов в книге


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
кусок кода, который перебирает все листы текущей книги
Макрос для перебора всех листов в книге

Автор - Serge_007
Дата добавления - 19.05.2021 в 10:09
Kirito Дата: Среда, 19.05.2021, 14:46 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Pelena,
К сообщению приложен файл: 1751707.xlsm(29.0 Kb)
 
Ответить
СообщениеPelena,

Автор - Kirito
Дата добавления - 19.05.2021 в 14:46
Kirito Дата: Среда, 19.05.2021, 14:47 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Serge_007, Я в макросах не силен, как его можно применить совместно с моим кодом?


Сообщение отредактировал Kirito - Среда, 19.05.2021, 14:47
 
Ответить
СообщениеSerge_007, Я в макросах не силен, как его можно применить совместно с моим кодом?

Автор - Kirito
Дата добавления - 19.05.2021 в 14:47
Kirito Дата: Четверг, 20.05.2021, 20:31 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Кто нибудь знает ответ?
 
Ответить
СообщениеКто нибудь знает ответ?

Автор - Kirito
Дата добавления - 20.05.2021 в 20:31
Pelena Дата: Четверг, 20.05.2021, 21:39 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так подойдёт?
К сообщению приложен файл: 4006133.xlsm(29.7 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак подойдёт?

Автор - Pelena
Дата добавления - 20.05.2021 в 21:39
Kirito Дата: Суббота, 22.05.2021, 20:15 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Pelena, да! Спасибо!!!!
 
Ответить
СообщениеPelena, да! Спасибо!!!!

Автор - Kirito
Дата добавления - 22.05.2021 в 20:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как применить макрос ко всем вкладкам (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!