[[20100518233844]]　『オプションボタンの初期化』（はせぴぃ）　ページの最後に飛ぶ

『オプションボタンの初期化』（はせぴぃ）

 初歩的すぎる質問ですいません。

ユーザフォーム内のフレーム内に
オプションボタンを２つ設定しています。

 うち１つをコマンドボタンにてデータ（結果）を
シートに転記しています。

 その（転記）コマンドボタンにユーザフォーム内データをクリアして
連続で記入したいのですが

        If OptionButton1.Value = True Then
            .Cells(InLastRow, 1).Value = OptionButton1.Caption
        ElseIf OptionButton2.Value = True Then
            .Cells(InLastRow, 1).Value = OptionButton2.Caption
        Else
            MsgBox "未入力"
        End If

    With userform
        .OptionButton1.Value = ""
        .OptionButton2.Value = ""
    End With

上記のwith文ではボタンが半透明になってしまいます。
何を入れればよいのでしょうか？

 >with文ではボタンが半透明になってしまいます
 こっちの方が発見ではないですか？

   With userform1
        .OptionButton1.Value = false
        .OptionButton2.Value = false
   End With

 ichinose

 ichinoseさん、毎度ありがとうございます。

 おっしゃられた通り、falseを入れたら半透明（グレー）で
変わりがありませんでした･･･。

 あと"発見"って？？？

　　　　　　　　　　　　　　　　　　　　　　　（はせぴぃ）

 違っていたらスルーして下さい。

 .OptionButton1.Caption = ""
 .OptionButton2.Caption = ""

 Excel2002及び、Excel2000で試しましたが、

 Private Sub CommandButton1_Click()
    OptionButton1.Value = False
    OptionButton2.Value = False
 End Sub

 このコードでオプションボタンの初期化がキチンと出来ていますけどね！！
 Excelのバージョンの問題でしょうかね？？

 >あと"発見"って？？？
 いえ、
 >With userform
 >       .OptionButton1.Value = ""
 >       .OptionButton2.Value = ""
 >End With
 >ボタンが半透明になってしまいます
 これが発見です。Excel2002でもExcel2000でも
 .OptionButton1.Value = ""
 とすれば、確かに半透明というでしょうかねえ、Enabled=Falseのような表示になります！！

 バージョンの違いだとすると、色々試してみるしかないかなあ・・・。

 例えば、

 Private Sub CommandButton1_Click()
    With Me.OptionButton1
       .Visible = False
       .Value = False
       DoEvents
       .Visible = True
    End With
    With Me.OptionButton2
       .Visible = False
       .Value = False
       DoEvents
       .Visible = True
    End With
 End Sub

 このようにしてみるとか・・・。

 ichinose

 「ユーザフォーム内データをクリア」という事の意味を説明されるのが近道かと・・・
 （ｍｏｍｏ）

 .OptionButton1.Caption = ""

の書き込みを実行してみると、
オプションボタンのcaptionが消えてしまいます。

 先ほど、ichinoseさんのおっしゃる

OptionButton1.Value = False

で試したところ、うまくいきました。
ありがとうございます。

 しかしなぜ、あの半透明（グレー）が
出てきたのでしょうかね･･･(笑)。

　　　　　　　　　　　　　　　　　　　　　　　（はせぴぃ）

コメント返信：

[ 一覧(最新更新順) ]

[[20100518233844]] 『オプションボタンの初期化』（はせぴぃ） ページの最後に飛ぶ

[[20100518233844]]　『オプションボタンの初期化』（はせぴぃ）　ページの最後に飛ぶ