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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как применить макрос ко всем вкладкам (Макросы/Sub)

Kirito

Дата: Воскресенье, 16.05.2021, 17:11 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 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

Ответить

Pelena

Дата: Воскресенье, 16.05.2021, 19:36 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Serega-Sol

Дата: Воскресенье, 16.05.2021, 21:37 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

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

[vba]

Код

Dim obj As Workbook
Dim sh As Worksheet

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

[/vba]

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

Ответить

Kirito

Дата: Вторник, 18.05.2021, 20:56 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Serega-Sol, не работает((

Ответить

Pelena

Дата: Вторник, 18.05.2021, 22:12 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Kirito, 18.05.2021 в 20:56, в сообщении № 4 (

)

не работает((

проверить-то не на чем, файла с примером нет

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Serge_007

Дата: Среда, 19.05.2021, 10:09 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата Serega-Sol, 16.05.2021 в 21:37, в сообщении № 3 (

)

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

Макрос для перебора всех листов в книге

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Kirito

Дата: Среда, 19.05.2021, 14:46 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Pelena,

К сообщению приложен файл: 1751707.xlsm (29.0 Kb)

Ответить

Kirito

Дата: Среда, 19.05.2021, 14:47 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

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

Сообщение отредактировал Kirito - Среда, 19.05.2021, 14:47

Ответить

Kirito

Дата: Четверг, 20.05.2021, 20:31 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Кто нибудь знает ответ?

Ответить

Pelena

Дата: Четверг, 20.05.2021, 21:39 | Сообщение № 10

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Так подойдёт?

К сообщению приложен файл: 4006133.xlsm (29.7 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Kirito

Дата: Суббота, 22.05.2021, 20:15 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Pelena, да! Спасибо!!!!

Ответить

Как применить макрос ко всем вкладкам (Макросы/Sub)

Страница 1 из 1
1