2016-10-05 7 views

ответ

0

Надежда это то, что вы ищете

Вставка 3 ActiveX радио кнопки на листе, убедитесь, что вы находитесь в режиме конструктора, щелкните правой кнопкой мыши на одном из радиокнопками, нажмите «OptionButton Object», затем «Изменить».

Оттуда, вставьте следующий код:

Private Sub OptionButton1_Click() 
Range("A1").Value = 1 
End Sub 

Private Sub OptionButton2_Click() 
Range("A1").Value = 2 
End Sub 

Private Sub OptionButton3_Click() 
Range("A1").Value = 3 
End Sub 
+0

Спасибо Томас ... Хорошая идея! :) – Kasra