Как написать макрос для скрытия столбцов
p9675346933
Дата: Воскресенье, 04.06.2023, 16:56 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
20% ±
2020
Всем добрый вечер Уже весь день ковыряюсь и не могу понять как написать макрос, голова кругом Смысл такой Автоматическое скрытие столбцов если в ячейке A1:AVG1 = 5 и если пустая или другое значение то показать столбец Например в ячейке A1 = 5 тогда Столбец A:A скрывается, как только удалется 5 или ставится другая цыфра, то показывается
Всем добрый вечер Уже весь день ковыряюсь и не могу понять как написать макрос, голова кругом Смысл такой Автоматическое скрытие столбцов если в ячейке A1:AVG1 = 5 и если пустая или другое значение то показать столбец Например в ячейке A1 = 5 тогда Столбец A:A скрывается, как только удалется 5 или ставится другая цыфра, то показывается p9675346933
Ответить
Сообщение Всем добрый вечер Уже весь день ковыряюсь и не могу понять как написать макрос, голова кругом Смысл такой Автоматическое скрытие столбцов если в ячейке A1:AVG1 = 5 и если пустая или другое значение то показать столбец Например в ячейке A1 = 5 тогда Столбец A:A скрывается, как только удалется 5 или ставится другая цыфра, то показывается Автор - p9675346933 Дата добавления - 04.06.2023 в 16:56
Pelena
Дата: Воскресенье, 04.06.2023, 18:36 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
p9675346933
Дата: Воскресенье, 04.06.2023, 18:47 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
20% ±
2020
Pelena, так в том то и дело, что все пролазил и никак не дойдет. Все примеры или выкидным списком или на разных листах или со сдвигами и т.д. Переделать в мою версию не получается.(
Pelena, так в том то и дело, что все пролазил и никак не дойдет. Все примеры или выкидным списком или на разных листах или со сдвигами и т.д. Переделать в мою версию не получается.( p9675346933
Ответить
Сообщение Pelena, так в том то и дело, что все пролазил и никак не дойдет. Все примеры или выкидным списком или на разных листах или со сдвигами и т.д. Переделать в мою версию не получается.( Автор - p9675346933 Дата добавления - 04.06.2023 в 18:47
Апострофф
Дата: Воскресенье, 04.06.2023, 19:10 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация:
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]
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]Апострофф
Ответить
Сообщение 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:10
p9675346933
Дата: Воскресенье, 04.06.2023, 19:20 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
20% ±
2020
Апострофф, Да, этот вариант я тоже по-моему смотрел. С одной стороны да, при цифре 5 в 1 строке столбец скрывается, но при удалении этой цифры он должен опять быть видимым. Например A1 = N5 В N5 пишешь "5" и столбец A:A скрывается Потом в N5удаляешь все или ставишь другую цифру и столбец должен опять быть видимым, а сейчас он не появляется(
Апострофф, Да, этот вариант я тоже по-моему смотрел. С одной стороны да, при цифре 5 в 1 строке столбец скрывается, но при удалении этой цифры он должен опять быть видимым. Например A1 = N5 В N5 пишешь "5" и столбец A:A скрывается Потом в N5удаляешь все или ставишь другую цифру и столбец должен опять быть видимым, а сейчас он не появляется( p9675346933
Ответить
Сообщение Апострофф, Да, этот вариант я тоже по-моему смотрел. С одной стороны да, при цифре 5 в 1 строке столбец скрывается, но при удалении этой цифры он должен опять быть видимым. Например A1 = N5 В N5 пишешь "5" и столбец A:A скрывается Потом в N5удаляешь все или ставишь другую цифру и столбец должен опять быть видимым, а сейчас он не появляется( Автор - p9675346933 Дата добавления - 04.06.2023 в 19:20
WowGun
Дата: Воскресенье, 04.06.2023, 20:27 |
Сообщение № 6
Группа: Проверенные
Ранг: Новичок
Сообщений: 45
Репутация:
19
±
Замечаний:
0% ±
Excel 2016
Если 10 ячейкам диапазона A1:AVG1 присвоить ссылку на ячейку N5 и ввести в нее 5, то как Excel должен себя повести? По мне так поиск по диапазону (в значениях и/или в формулах) и сокрытие столбцов с найденными значениями ...
Если 10 ячейкам диапазона A1:AVG1 присвоить ссылку на ячейку N5 и ввести в нее 5, то как Excel должен себя повести? По мне так поиск по диапазону (в значениях и/или в формулах) и сокрытие столбцов с найденными значениями ... WowGun
УЧИТЕСЬ ... спрашивать.
Ответить
Сообщение Если 10 ячейкам диапазона A1:AVG1 присвоить ссылку на ячейку N5 и ввести в нее 5, то как Excel должен себя повести? По мне так поиск по диапазону (в значениях и/или в формулах) и сокрытие столбцов с найденными значениями ... Автор - WowGun Дата добавления - 04.06.2023 в 20:27
Апострофф
Дата: Воскресенье, 04.06.2023, 20:31 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация:
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]
Добавьте туда же. Только на тормоза не жалуйтесь потом. [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] Апострофф
Ответить
Сообщение Добавьте туда же. Только на тормоза не жалуйтесь потом. [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 в 20:31
p9675346933
Дата: Воскресенье, 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 Нужно так же но на столбцы
Апострофф, мне кажется это не много не то, может я что то не так объясняю. Вот у меня есть на строки: 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 Нужно так же но на столбцы p9675346933
Ответить
Сообщение Апострофф, мне кажется это не много не то, может я что то не так объясняю. Вот у меня есть на строки: 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 Нужно так же но на столбцы Автор - p9675346933 Дата добавления - 04.06.2023 в 21:18
Апострофф
Дата: Воскресенье, 04.06.2023, 21:22 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация:
126
±
Замечаний:
0% ±
Excel 1997
p9675346933 , вам виднее, что нужно - пересчитывать изменение выделения или изменения ячеек?
p9675346933 , вам виднее, что нужно - пересчитывать изменение выделения или изменения ячеек?Апострофф
Ответить
Сообщение p9675346933 , вам виднее, что нужно - пересчитывать изменение выделения или изменения ячеек?Автор - Апострофф Дата добавления - 04.06.2023 в 21:22
Апострофф
Дата: Воскресенье, 04.06.2023, 21:26 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 458
Репутация:
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]
[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] Апострофф
Ответить
Сообщение [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 в 21:26
p9675346933
Дата: Воскресенье, 04.06.2023, 22:27 |
Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация:
0
±
Замечаний:
20% ±
2020
Апострофф, ОТЛИЧНО!!!! То что надо! Целый день убил))) Вам респект! Не пойму, тоже был один из вариантов такой...не работал(( ладно, спасибо еще раз!
Апострофф, ОТЛИЧНО!!!! То что надо! Целый день убил))) Вам респект! Не пойму, тоже был один из вариантов такой...не работал(( ладно, спасибо еще раз! p9675346933
Ответить
Сообщение Апострофф, ОТЛИЧНО!!!! То что надо! Целый день убил))) Вам респект! Не пойму, тоже был один из вариантов такой...не работал(( ладно, спасибо еще раз! Автор - p9675346933 Дата добавления - 04.06.2023 в 22:27