код для 3 значений CheckBox

Гость

20.11.2012 20:18:13

Доброе время суток! подскажите пожалуйста, как прописать код для трех значений CheckBox (пустой квадратик, квадратик с черным флажком, квадратик с серым флажком). Пока получилось только с двумя (пустой и черный)серый флажок выставляется, но не производит никаких действий

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 20.11.2012 20:37:18 А что должен делать этот код? PS: Серый флажок, это когда значение чекбокса равно Null (не задано) Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest

Гость

20.11.2012 21:24:38

А что должен делать этот код?

Спасибо за скорость отклика, не ожидал)...
сейчас поясню на примере

Private Sub CheckBox1_Click()
If CheckBox1 Then
Sheets("Лист1").Range("A1").Value = "какое-то слово №1"
Else
Sheets("Лист1").Range("A1").Value = ""
End If
End Sub
- это рабочий код для двух значений (пусто и черный)
нужно как-то дописать код на серый флажок, что-бы он выполнял
Sheets("Лист1").Range("A1").Value = "какое-то слово №2"
....по отдельности получается, а объединить их все вместе в один код - нет

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

20.11.2012 21:56:25

Я, конечно, могу дописать код и для серого флажка:
(что-то типа такого, в реальности, возможно, код будет посложнее, т.к. такая проверка на Null может не пройти)

Private Sub CheckBox1_Click()
Select Case CheckBox1
Case True: [a1] = "флажок установлен"
Case False: [a1] = "флажок снят"
Case Else: [a1] = "флажок серый"
End Select
End Sub

Но... третья строка в коде никогда не сработает,
т.к. после щелчка на чекбоксе (событие Click) он не может остаться серым (в промежуточном состоянии) - там либо будет галочка, либо будет пусто.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Гость

21.11.2012 12:14:02

в принципе через событие Change работает этот код

CheckBox1 = Null
Sheets("Лист1").Range("A1").Value = "флажок серый"

но он препятствует включению следующего кода

Select Case CheckBox1
Case True: [a1] = "флажок установлен"
Case False: [a1] = "флажок снят"
End Select

Guest Гость	#6 23.11.2012 20:56:40 все робит отлично, дописал одну строчку, и немного изменил твой код, спасибо тебе за участие и за помощь

Читают тему