| Цитата |
|---|
| написал: берете прекрасный пример, меняете слово Rows на Columns и готово |
| Код |
|---|
Sub Hide1() Dim cell As Range Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки If cell.Value = "*" Then cell.EntireColumn.Hidden = True 'если в ячейке x - скрываем столбец Next Application.ScreenUpdating = True End Sub Sub Show() Columns.Hidden = False 'отменяем все скрытия строк и столбцов Rows.Hidden = False End Sub |
Но не работает. Помогите исправить пожалуйста
Изменено: - 19.11.2022 13:38:43