excel2007 如何判断,例如：假如A1单元格是公历生日,则C1=B1*2；否则C1=B1*3.用如下图的方法选择来

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属性一致