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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие и показ столбцов макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие и показ столбцов макросом (Макросы/Sub)
Скрытие и показ столбцов макросом
micholap_denis Дата: Четверг, 26.03.2020, 15:37 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
в макросах не разбираюсь, нашел на форуме вот этот макрос что в примере ,применил к своему файлу-все ГУТ
подскажите как подправить его чтоб можно было выборочно столбцы скрывать открывать. пример прилагаю
К сообщению приложен файл: 6729305.xlsm(16.6 Kb)
 
Ответить
Сообщениев макросах не разбираюсь, нашел на форуме вот этот макрос что в примере ,применил к своему файлу-все ГУТ
подскажите как подправить его чтоб можно было выборочно столбцы скрывать открывать. пример прилагаю

Автор - micholap_denis
Дата добавления - 26.03.2020 в 15:37
micholap_denis Дата: Четверг, 26.03.2020, 15:37 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
спасибо заранее
 
Ответить
Сообщениеспасибо заранее

Автор - micholap_denis
Дата добавления - 26.03.2020 в 15:37
Kuzmich Дата: Четверг, 26.03.2020, 21:11 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
Цитата
чтоб можно было выборочно столбцы скрывать открывать

Привяжите кнопку к макросу
[vba]
Код
Sub iCol()
  Range("C1,E1,F1").EntireColumn.Hidden = Not Columns("C").Hidden
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
чтоб можно было выборочно столбцы скрывать открывать

Привяжите кнопку к макросу
[vba]
Код
Sub iCol()
  Range("C1,E1,F1").EntireColumn.Hidden = Not Columns("C").Hidden
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 26.03.2020 в 21:11
micholap_denis Дата: Четверг, 26.03.2020, 21:31 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, спасибо.
все ок
 
Ответить
СообщениеKuzmich, спасибо.
все ок

Автор - micholap_denis
Дата добавления - 26.03.2020 в 21:31
micholap_denis Дата: Четверг, 26.03.2020, 23:56 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, подскажите пожалуйста на будущее
макрос скрытия отображения строк по имени(отметке в столбце)...т.е в таблице есть определенные строки в некотором столбце (А-допустим) помеченные как то (1-допустим)
и второй макрос
скрытия отображения строк за исключением отмеченных выше указанным методом
спасибо за помощ
 
Ответить
СообщениеKuzmich, подскажите пожалуйста на будущее
макрос скрытия отображения строк по имени(отметке в столбце)...т.е в таблице есть определенные строки в некотором столбце (А-допустим) помеченные как то (1-допустим)
и второй макрос
скрытия отображения строк за исключением отмеченных выше указанным методом
спасибо за помощ

Автор - micholap_denis
Дата добавления - 26.03.2020 в 23:56
Kuzmich Дата: Пятница, 27.03.2020, 00:12 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
Цитата
макрос скрытия отображения строк по имени(отметке в столбце)

Цикл по столбцу А
и условие [vba]
Код
if Cells(i,1)=1 Then Rows(i).Hidden=True
[/vba]
 
Ответить
Сообщение
Цитата
макрос скрытия отображения строк по имени(отметке в столбце)

Цикл по столбцу А
и условие [vba]
Код
if Cells(i,1)=1 Then Rows(i).Hidden=True
[/vba]

Автор - Kuzmich
Дата добавления - 27.03.2020 в 00:12
micholap_denis Дата: Пятница, 27.03.2020, 11:33 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich,
а это как "припилить" к файлу что в сообщ 1? что б кнопкой скрыть открыть строки которые в столбце помечены 1
и другой кнопкой что бы скрывались открывались все строки которые не помечены 1
 
Ответить
СообщениеKuzmich,
а это как "припилить" к файлу что в сообщ 1? что б кнопкой скрыть открыть строки которые в столбце помечены 1
и другой кнопкой что бы скрывались открывались все строки которые не помечены 1

Автор - micholap_denis
Дата добавления - 27.03.2020 в 11:33
micholap_denis Дата: Пятница, 27.03.2020, 11:34 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
в столбце А допустим
 
Ответить
Сообщениев столбце А допустим

Автор - micholap_denis
Дата добавления - 27.03.2020 в 11:34
Kuzmich Дата: Пятница, 27.03.2020, 15:15 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub iRowsHidden()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iLastRow
    If Cells(i, 1) = 1 Then Rows(i).Hidden = True
  Next
End Sub
Sub iRowsVisible()
  Rows("1:1000").Hidden = False
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub iRowsHidden()
Dim i As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iLastRow
    If Cells(i, 1) = 1 Then Rows(i).Hidden = True
  Next
End Sub
Sub iRowsVisible()
  Rows("1:1000").Hidden = False
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 27.03.2020 в 15:15
micholap_denis Дата: Среда, 01.04.2020, 19:22 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, СПАСИБО
макрос работает, но когда в таблице десятки тысяч строк...очень долго выполняется.
 
Ответить
СообщениеKuzmich, СПАСИБО
макрос работает, но когда в таблице десятки тысяч строк...очень долго выполняется.

Автор - micholap_denis
Дата добавления - 01.04.2020 в 19:22
Kuzmich Дата: Среда, 01.04.2020, 20:20 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 106 ±
Замечаний: 0% ±

Excel 2003
Цитата
очень долго выполняется

Добавьте в начало макроса
[vba]
Код
Application.ScreenUpdating = False
[/vba]
и в конце
[vba]
Код
Application.ScreenUpdating = True  
[/vba]
 
Ответить
Сообщение
Цитата
очень долго выполняется

Добавьте в начало макроса
[vba]
Код
Application.ScreenUpdating = False
[/vba]
и в конце
[vba]
Код
Application.ScreenUpdating = True  
[/vba]

Автор - Kuzmich
Дата добавления - 01.04.2020 в 20:20
micholap_denis Дата: Среда, 01.04.2020, 20:27 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
спасибо.попробую
 
Ответить
Сообщениеспасибо.попробую

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

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