Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 05.02.2019
Сообщений: 11
1

VBA, использование флажка для управления столбцами

05.02.2019, 15:06. Просмотров 1358. Ответов 5

Всем привет! Помогите с кодом, суть в том, что нужно, чтобы при выборе флажка скрывались столбцы, но эксель выдает ошибку и не могу понять где она находится((((
потребность возникла на работе, прошу отнестись с пониманием
Код:

Private Sub CheckBox1_Click() - ошибка в этой строчке
Columns("I").EntireColumn.Hidden = Not CheckBox1
End Sub

подразумевается что столбец "I" должен скрыться
помогите!
так же нужно еще 24 таких флажка (((
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.02.2019, 15:06
Ответы с готовыми решениями:

VBA, использование флажка для управления столбцами, создание универсального фильтра для листа
Всем привет! Возникла проблема, я не искушенный пользователь Excel, поэтому прошу помощи. У меня...

Установка флажка (элемент управления формы) кодом vba
Здравствуйте, уважаемые знатоки! Ситуация такая: есть анкета, реализованная в excel с помощью...

Использование флажка для создания условия при отправке сообщения
Добрый день, В общем цель такая - необходимо отправлять сообщения, которые будут отличаться в...

Использование флажка
Добрый вечер. Есть форма в виде таблицы, в которой указаны Мероприятие, ФИО и отметка о выполнении...

5
4106 / 2213 / 938
Регистрация: 01.12.2010
Сообщений: 4,625
05.02.2019, 15:19 2
Лучший ответ Сообщение было отмечено Siskin_Domik как решение

Решение

Siskin_Domik, Не может ошибка возникать на первой строке, за исключением случаев, когда в одном модуле будет несколько событий с одним и тем же именем. И тавталогия необязательна, т.е.

Visual Basic
1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
    Columns("I").Hidden = Not CheckBox1
End Sub
 
Private Sub CheckBox2_Click()
    Columns("H").Hidden = Not CheckBox2
End Sub
А вот на второй строке, ошибку получить можно, например, если рабочий лист защищён.
0
0 / 0 / 0
Регистрация: 05.02.2019
Сообщений: 11
05.02.2019, 15:22  [ТС] 3
а вы случайно не знаете как их переименовывать из CheckBox1 в другое наименование?
0
4106 / 2213 / 938
Регистрация: 01.12.2010
Сообщений: 4,625
05.02.2019, 15:28 4
Вы когда создадите новый CheckBox у него уже будет своё имя, отличное от существующего. Если нужно быстро создать для нового флажка событие, достаточно не выходя из режима редактирования, дважды кликнуть нужный флажок.

Добавлено через 2 минуты
И если говорить абстрактно, то иногда проще создать один ListBox, где можно отметить нужную строку, также с помощью флажка.
0
0 / 0 / 0
Регистрация: 05.02.2019
Сообщений: 11
05.02.2019, 15:30  [ТС] 5
не получается (((
0
4106 / 2213 / 938
Регистрация: 01.12.2010
Сообщений: 4,625
05.02.2019, 15:47 6
Если не получается, можно просто вручную изменить имя флажка или скинуть сюда свой файл(не картинку), убрав из него все конфиденциальные данные.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2019, 15:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Word VBA - интервал между столбцами в таблице
Подскажите пожалуйста, как с помощью Word VBA задать интервал между столбцами в таблице. Руками в...

Использование МК для управления лифтом (учебное задание)
Собственно тему я так назвал не зря. До сего дня с микроконтроллерами практически не сталкивался,...

Использование BTS716G для управления эл-магнитными клапанами
Здравствуйте. Возникла потребность сделать управление клапанами (в нагрузке будет 4...

Использование статус-бара для управления приложением
Доброго времени суток! Необходимо вынести некоторые простые функции управления приложением...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.