oobird

­Y¥u¦³³o´X­Ó¿ï¶µ¡A´N¤À§O¼gClick¨Æ¥ó
Private Sub OptionButton1_Click()
Dim r As Range
With ActiveSheet
Set r = IIf(.[a1] = "", .[a1], .[a65536].End(3)(2, 1))
r = OptionButton1.Caption
End With
End Sub
----------------------------------------
Private Sub OptionButton2_Click()
Dim r As Range
With ActiveSheet
Set r = IIf(.[a1] = "", .[a1], .[a65536].End(3)(2, 1))
r = OptionButton2.Caption
End With
End Sub
¦hªº¸Ü´N¥Îª«¥óÃþ§O¼Ò²Õ§@­Ó¶°¦X¡A«ü©wClick¨Æ¥ó
³o¼Ë§A¶·­nªþÀɮפW¨Ó