|
▼Jaka さん:
色々とご配慮ありがとうございます。
>えっと、こちら側から状態が見えないので、確認用。
>これ実行すると、どんな結果になりますか?
>
>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
また大変ご迷惑をかけています。
標準のモジュールに貼り付けるのでしょうか?
MsgBox"オプションボタンが1個もありません。"が出ます。
上記コードではオプションボタンを呼び出すのでしょうか?
貼り付ける場所が間違っているのでしょうか?
フォームにオプションボタン1〜5を(「あ、い、う、え、お」)として、日程シートの
シート名に「あ、い、う、え、お」として、コマンドボタン( CommandButton1_Click)で検索するようにしています。ブックは共にフォルダーに入れています。
この辺がおかしいのでしょうか?
でも、wsnに例えば「あ」と入れると・・・シートの「あ」が開けます。
余りにも幼稚な質問ばかりでご迷惑をかけていることと思います。
でも、興味があったこと、それと
一番最初に質問された方から「出来ました」というリアクションが無かったので
私もしてみると、上手く行かなかったので・・・が、質問をしたきっかけに
なっています。
大変ご面倒をかけているかと思いますが、以上が私から伝えられるレベルです。
よろしくお願いします。
|
|