Как написать макрос для скрытия столбцов

Дата: Воскресенье, 04.06.2023, 16:56 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 5

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

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

2020

Всем добрый вечер

Уже весь день ковыряюсь и не могу понять как написать макрос, голова кругом

Смысл такой

Автоматическое скрытие столбцов если в ячейке A1:AVG1 = 5 и если пустая или другое значение то показать столбец

Например в ячейке A1 = 5 тогда Столбец A:A скрывается, как только удалется 5 или ставится другая цыфра, то показывается

Pelena

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

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

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

Сообщений: 19392

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Не стесняйтесь пользоваться поиском по форуму. Запрос "Скрыть столбцы" дал 584 ссылки.
Например,
http://www.excelworld.ru/forum/10-30867-1
http://www.excelworld.ru/forum/10-43637-1

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

Дата: Воскресенье, 04.06.2023, 18:47 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 5

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

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

2020

Pelena, так в том то и дело, что все пролазил и никак не дойдет.

Все примеры или выкидным списком или на разных листах или со сдвигами и т.д.

Переделать в мою версию не получается.(

Дата: Воскресенье, 04.06.2023, 19:10 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 457

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

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

Excel 1997

p9675346933, в модуль листа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("A1:AVG1")) Is Nothing Then Exit Sub
Target.EntireColumn.Hidden = Target = 5
End Sub

[/vba]

Дата: Воскресенье, 04.06.2023, 19:20 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 5

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

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

2020

Апострофф, Да, этот вариант я тоже по-моему смотрел.

С одной стороны да, при цифре 5 в 1 строке столбец скрывается, но при удалении этой цифры он должен опять быть видимым.

Например

A1 = N5
В N5 пишешь "5" и столбец A:A скрывается

Потом в N5удаляешь все или ставишь другую цифру и столбец должен опять быть видимым, а сейчас он не появляется(

WowGun

Дата: Воскресенье, 04.06.2023, 20:27 | Сообщение № 6

Группа: Проверенные

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

Сообщений: 45

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

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

Excel 2016

Если 10 ячейкам диапазона A1:AVG1 присвоить ссылку на ячейку N5 и ввести в нее 5, то как Excel должен себя повести?
По мне так поиск по диапазону (в значениях и/или в формулах) и сокрытие столбцов с найденными значениями ...

УЧИТЕСЬ ... спрашивать.

Дата: Воскресенье, 04.06.2023, 20:31 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 457

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

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

Excel 1997

Добавьте туда же. Только на тормоза не жалуйтесь потом.
[vba]

Код

Private Sub Worksheet_Calculate()
dim cl as range
for each cl in Range("A1:AVG1")
cl.EntireColumn.Hidden = cl= 5
next
End Sub

[/vba]

Дата: Воскресенье, 04.06.2023, 21:18 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 5

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

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

2020

Апострофф, мне кажется это не много не то, может я что то не так объясняю.
Вот у меня есть на строки:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i&
For i = 4 To 300
If Range("A" & i).Value = "777" Then
Rows(i).EntireRow.Hidden = True
Else: Rows(i).EntireRow.Hidden = False '
End If
Next i
End Sub

Нужно так же но на столбцы

Дата: Воскресенье, 04.06.2023, 21:22 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 457

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

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

Excel 1997

p9675346933, вам виднее, что нужно -
пересчитывать изменение выделения или изменения ячеек?

Дата: Воскресенье, 04.06.2023, 21:26 | Сообщение № 10

Группа: Проверенные

Ранг: Обитатель

Сообщений: 457

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

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

Excel 1997

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i&
For i = 1To 1255
If cells(1,i) = 5 Then
columns(i).Entirecolumn.Hidden = True
Else: columns(i).Entirecolumn.Hidden = False '
End If
Next i
End Sub

[/vba]

Дата: Воскресенье, 04.06.2023, 22:27 | Сообщение № 11

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

Ранг: Прохожий

Сообщений: 5

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

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

2020

Апострофф, ОТЛИЧНО!!!!

То что надо! Целый день убил))) Вам респект!

Не пойму, тоже был один из вариантов такой...не работал(( ладно, спасибо еще раз!