Private Sub OptionButton1_Change()
OptionButton1.Caption="公历生日"
OptionButton1.Caption="农历生日"
If OptionButton1 = True Then
ActiveSheet.Range("C1").Value = Range("B1").Value * 2
Else
ActiveSheet.Range("C1").Value = Range("B1").Value * 3
End If
End Sub
OptionButton控件共2 个:OptionButton1、OptionButton2,二者group属性一致