|
▼Komo さん:
>シートの名前に繋がりません。
>やっぱりwsnが空白「""」になっており、変数の役割を果たしていない
>ように見えます。
えっと、こちら側から状態が見えないので、確認用。
これ実行すると、どんな結果になりますか?
Sub dnmdmm()
Dim obj1 As OLEObject, wsn As String, wb As Workbook
Dim Flg As Boolean
For Each obj1 In ActiveSheet.OLEObjects
If TypeName(obj1.Object) = "OptionButton" Then
Ct = Ct + 1
With obj1.Object
If .Value = True Then
wsn = .Caption
Flg = True
Exit For
End If
End With
End If
Next
If Ct = 0 Then
MsgBox "オプションボタンが1個も有りません。"
ElseIf Flg = False Then
MsgBox "オプションボタンにチェックが入ってません。"
Else
MsgBox "オプションボタン-" & wsn & "-シートが選択されました。"
End If
End Sub
|
|