| |
▼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"オプションボタンが１個もありません。"が出ます。
上記コードではオプションボタンを呼び出すのでしょうか？
貼り付ける場所が間違っているのでしょうか？
フォームにオプションボタン１〜５を(「あ、い、う、え、お」）として、日程シートの
シート名に「あ、い、う、え、お」として、コマンドボタン（ CommandButton1_Click）で検索するようにしています。ブックは共にフォルダーに入れています。
この辺がおかしいのでしょうか？
でも、ｗsnに例えば「あ」と入れると･･･シートの「あ」が開けます。
余りにも幼稚な質問ばかりでご迷惑をかけていることと思います。
でも、興味があったこと、それと
一番最初に質問された方から「出来ました」というリアクションが無かったので
私もしてみると、上手く行かなかったので･･･が、質問をしたきっかけに
なっています。
大変ご面倒をかけているかと思いますが、以上が私から伝えられるレベルです。
よろしくお願いします。
|
|
Komo
- 05/10/6(木) 20:49 -
