エクセルの学校：全文検索：Hyper Estraier：平均平日

Results of 1 - 1 of about 28 for 平均平日 (0.001 sec.)

平均 (1366), 平日 (459)

[[20100518233844]]: #score: 10343; @digest: 3a07353331dcce964ed4d6031ca29d41; @id: 49505; @mdate: 2010-05-20T01:47:38Z; @size: 2856; @type: text/plain; #keywords: 半透 (19238), optionbutton1 (16141), inlastrow (15497), optionbutton2 (13889), 見" (11983), 透明 (6574), 内デ (5920), ザフ (4325), ム内 (4212), caption (3042), 発見 (2627), て?? (1898), visible (1812), 近道 (1724), ンボ (1657), ichinose (1652), 力" (1536), グレ (1272), 期化 (1261), doevents (1200), enabled (1173), はボ (1151), ボタ (1144), タン (1028), 毎度 (962), が半 (898), ドボ (833), userform (805), commandbutton1 (791), オプ (782), レー (776), プシ (774); 『オプションボタンの初期化』（はせぴぃ）
初歩的すぎる質問ですいません。ユーザフォーム内のフレーム内にオプションボタンを2つ設定しています。うち1つをコマンドボタンにてデータ（結果）をシートに転記しています。その（転記）コマンドボタンにユーザフォーム内データをクリアして連続で記入したいのですが 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 ---- 「ユーザフォーム内データをクリア」という事の意味を説明されるのが近道かと・・・（momo） ---- .OptionButton1.Caption = "" の書き込みを実行してみると、オプションボタンのcaptionが消えてしまいます。先ほど、ichinoseさんのおっしゃる OptionButton1.Value = False で試したところ、うまくいきました。ありがとうございます。しかしなぜ、あの半透明（グレー）が出てきたのでしょうかね・・・(笑)。（はせぴぃ） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201005/20100518233844.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ