Работа с формой VBA

[Игорь Новый]

Здравствуйте, господа ПРОграммисты! Прошу помочь по трем казалось бы легким вопросам, но почему то дядя Гугл не смог найти на них ответ:
1) есть несколько (скажем 4 шт) OptionButton объединенных в Frame. Как перенести в ячейку Excel (определенную командой Cell) Caption активного буттона?
2) Есть CheckBox, который при его активации блокирует определенный TextBox. Как при этом поменять заливку TextBox (типа неактивным его сделать)?
3) Создал кнопку CommandButton c Caption "выключено". Хотелось бы чтобы при нажатии на кнопку изменился Caption и цвет кнопки на "включено" зеленого цвета! Еще читал что может быть третье состояние кнопки. Мне нужно чтобы при нажатии на кнопку, у нее было три состояния - разного цвета и с разными Caption? Возможно такое?
Мозг кипит! Заранее Большое человеческое спасибо!

[IgorGO]

1. в ячейку можно пернести состояния Истина/Ложь (выбран/не выбран) каждого OptionButton персонально. надпись не переносится, поэтому гугль и не знает, как это сделать. а надпись запишите в ячейку сразу -это константа, чего ее переносить
2. если выставить свойство Разрешен в состояние Ложь - он сам станет серым и неактивным
3. возможно три состояния: нажата раз, нажата повторно, нажата и еще не отпущена...

Мозг кипит!

представляю, что испытывал гугль силясь найти ответы на Ваши вопросы...

[doober]

У моей кнопки 4 состояния.
1- я убегаю.

[Игорь Новый]

гугл все таки нашел вот такое:

Если поместить кнопки принадлежащие одной группе на Frame, то можно использовать вот такую функцию для получения заголовка выбранной кнопки:

Private Function GetOption(ByVal group As Frame) As String
Dim i As Integer
For i = 0 To group.Controls.Count - 1
If (group.Controls(i)) Then
GetOption = group.Controls(i).Caption
Exit For
End If
Next
End Function

Помогите расшифровать? какие значение мне надо поменять если у меня несколько Frame

Doober`у, за кнопку спасибо! В Вашем файле TextBox просто блокируется, но заливку не меняет. Хотел чтобы цвет заливки становился к примеру "светло серым" под цвет формы

[IgorGO]

ничего менять не надо, в качестве параметра передайте в функцию GetOption конкретный фрейм.

во вложении еще один вариант с кнопкой (элемент управления не обязательно делать неактивным, его можно сделать неуловимым).
это я про просьбе руководства писал форму для проведения опроса сотрудников по одному деликатному вопросу.

[doober]

[eikhner]

вот для формы Сергея " 4 положения кнопки " вставить

Private Sub CheckBox1_Click()
TextBox1.Enabled = CheckBox1.Value
Dim a As Boolean
a = CheckBox1.Value
If a = False Then
TextBox1.BackColor = &HFFFFFF
Else
TextBox1.BackColor = &H8000000F
End If

End Sub
в зависимости от состояния чекбокса меняется заливка тексбокса

или так

Private Sub CheckBox1_Click()

Dim a As Boolean
a = CheckBox1.Value
TextBox1.Visible = a

End Sub
но тогда при открытии формы для TextBox1.Visible установить фалсе
ещё проще
TextBox1.Visible = CheckBox1.Value


если нужно наоборот труе = фалсе и фалсе = труе
тогда
TextBox1.Visible = Not a
но тогда при открытии формы для TextBox1.Visible = True

ещё проще
TextBox1.Visible = Not CheckBox1.Value