【Excel VBA】ユーザーフォームのテキストボックス有効無効設定について

前へ 次へ
このQ&Aのポイント
  • Excel2003を使用している場合、ユーザーフォームに11個のテキストボックスと2個のコマンドボタンを配置しています。特定の条件下で、一部のテキストボックスを有効または無効に設定する方法について詳しく知りたいです。
  • 具体的には、TextBox9に入力された値が「0000」の場合、TextBox10を有効にし、それ以外の場合は無効にしたいです。TextBox10の有効/無効の設定には、EnabledプロパティとLockedプロパティを使用します。
  • 現在、質問者さんが掲示したコードはうまくいかないようで、どこが間違っているのか気になっています。正しいコードの書き方や間違っている部分について教えていただけると助かります。
回答を見る
  • ベストアンサー

【Excel VBA】ユーザーフォーム　テキストボックスの有効・無効について

Excel2003を使用しています。 ユーザーフォームにテキストボックスを11個とコマンドボタンを2個配置しています。 TextBox9に“0000”(文字列です)が入力されたら、TextBox10を有効に、それ以外は無効に設定したく、TextBox10のEnabledプロパティをFalse、LockedプロパティをTrueにして、コードを下記のように書いたのですが、うまくいきません。どこか、間違っているでしょうか？ コードは該当部分だけ、載せています。よろしくお願いします。 -------------------------------------------------- If TextBox9.Text = "0000" Then TextBox10.Enabled = True TextBox10.Locked = False TextBox10.BackStyle = fmBackStyleOpaque Else TextBox10.Enabled = False TextBox10.Locked = True TextBox10.BackStyle = fmBackStyleTransparent End If

質問者が選んだベストアンサー

  • ベストアンサー
  • fujillin
  • ベストアンサー率61% (1594/2576)
回答No.2

上記のコードはどこに書かれていますか？ もし、入力後のルーチンに書かれているとすると、入力中に反映されないのでうまく行かないということが起こり得ます。 TextBox9の値が変更されたら、イベントを発生させて同時に処理をすればOKだと思いますが。（トグルボタンの表示処理と同様です） Sub TextBox9_Change()　の中にコードを表記すればうまく行くのでは？ 違ったら失礼！

rx-z5815
質問者

お礼

回答ありがとうございます。 >TextBox9の値が変更されたら、イベントを発生させて同時に処理をすればOKだと思いますが。 ↑アドバイスいただいたおかげで、無事、処理できました。 ありがとうございました。

その他の回答 (1)

  • Masa2072
  • ベストアンサー率51% (94/182)
回答No.1

ただ漠然とうまくいかないと言われても・・・ どの様にうまくいかなかったのかを書いていただかないと。 とりあえずこちらで試したぶんには、うまくいっているように見えるのですが。

rx-z5815
質問者

お礼

説明不足で申し訳ありません。 今回は、ANo.2さんからのアドバイスで、無事、解決できました。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルVBAでユーザーフォームのテキストボックス

    ユーザーフォーム上にテキストボックスを8個設置しました。 そこに数値が入力された場合は自動的にカンマ区切りが表示されるように以下のコードを書きました。 これで希望の動きはしてくれるのですが、このやりかたは正しいでしょうか？ また、テキストボックスは8個あるので、それぞれに下記のように8通りコードをかかなければいけないのでしょうか？ご教示ください。 Private Sub TextBox1_Change() 　　If IsNumeric(TextBox1.Value) Then Application.EnableEvents=False 　　　　TextBox1.Text = Format(TextBox1.Value, "#,##0") Application.EnableEvents=True 　　End If End Sub 途中（2～7）略 Private Sub TextBox8_Change() 　　If IsNumeric(TextBox8.Value) Then Application.EnableEvents=False 　　　　TextBox8.Text = Format(TextBox8.Value, "#,##0") Application.EnableEvents=True 　　End If End Sub

  • EXCEL VBA ユーザーフォーム内のテキストボックスを一括処理する方法について

    EXCEL　VBAのユーザーフォームについて質問があります。 ユーザーフォームを作り、その中にコンボボックスを１個、テキストボックスを１００個設置する。 コンボボックスの値が１のときはテキストボックス１～テキストボックス５０までのEnabledをFalseに設定し、 コンボボックスの値が２のときはテキストボックス１～テキストボックス１００までのEnabled をFalseに設定する。 このとき、TextBox1.Enabled = False、TextBox2.Enabled = False・・・と一つ一つ書いていくのではなく、 セルを処理するときと同様に、テキストボックスの番号を変数にして処理することは可能でしょうか。 Private Sub ComboBox1_Change() 　Dim i As Integer 　　If ComboBox1.Value = 1 Then 　　For i = 1 To 50 　　TextBox(i).Enabled = False 　　Next i 　　ElseIf ComboBox1.Value = 2 Then 　　For i = 1 To 100 　　TextBox(i).Enabled = False 　　Next i 　　End If End Sub というような処理をイメージしているのですが、うまくいきません。どうぞよろしくお願いいたします。

  • コンボボックスの変更に応じてテキストボックスの有効を切り替える(ExcelVBA2007)

    お世話になります。 Excel VBA 2007で質問です。 今、 　Label1　ComboBox1　TextBox1 　Label2　ComboBox2　TextBox2 ・・・ 　Label100　ComboBox100　TextBox100 のようなフォームがあるとします。 ComboBox1～100は「Any」「is」「is not」のいずれかの値が取れ、初期値はAnyとします。 TextBox の Enabled プロパティの初期値は False とします。 やりたいことは、 ComboBox が「Any」でない場合（is または is not のいずれかの場合）にのみその右隣の TextBox の Enabled プロパティを True にしたいのです。 いま、ComboBox30 を Any から is に切り替えたとします。 すると、TextBox30.Enabled を False から True にしたいのです。 ここで、ComboBox30 を is から is not に切り替えたとします。 TextBox30.Enabled は True のままです。 ここで、ComboBox30 を is not から Any に切り替えたとします。 すると、TextBox30.Enabled を True から False にしたいのです。 ComboBox のイベントハンドラで Sub ComboBox30_Change () 　If ComboBox30.Value = "Any" Then 　　TextBox30.Enabled = "False" 　Else 　　TextBox30.Enabled = "True" 　End If End Sub のように書けばいいことは分かっているのですが、その場合は数字だけ変えたイベントハンドラを100個書かなければなりません。 このイベントハンドラを１個にすることはできるでしょうか。 （コンボボックス100個のうちどれかが変更されたら、変更されたコンボボックスの番号を知りながら呼び出されるハンドラ） 次善の策として、 Sub ComboBox30_Change () 　userSubroutine End Sub のように書くこともできるかと思いますが、この場合、どのコンボボックスが変更されたか（どのイベントハンドラが起動されたか）を知って、userSubroutine に渡さなければなりません。 よろしくお願いします！

  • エクセル VBAのチェックボックスについて

    お読みくださり、ありがとうございます。 エクセル初心者でございます。 エクセルのマクロなのですが、 お詳しい方、是非教えて欲しいです！汗 調子に乗って入力フォームなるものを作りました。 入力フォームの中にて、チェックボックスで「ある」「なし」の項目を入れてみたのですが、チェックしていないのに、値が入る現象が起きています汗 以下、素人が書いたコードを恥を承知で記載させていただきます。 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then OK = "○" End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then NO = "×" End If End Sub Private Sub UserForm_Click() End Sub '以下のコードは、登録ボタンがクリックされたときの処理！ Private Sub 登録ボタン_Click() If TextBox1.Text = "" Then MsgBox "グッズ名を入力してください。" Exit Sub End If If TextBox2.Text = "" Then MsgBox "アプローチ先を入力してください。" Exit Sub End If With Worksheets("協賛グッズ") With Cells(Rows.Count, 2).End(xlUp) .Offset(1, 0).Value = TextBox1.Text .Offset(1, 1).Value = mori .Offset(1, 2).Value = mori2 .Offset(1, 3).Value = TextBox2.Text .Offset(1, 5).Value = TextBox3.Text .Offset(1, 6).Value = TextBox4.Text .Offset(1, 7).Value = TextBox5.Text .Offset(1, 8).Value = TextBox6.Text End With End With TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" CheckBox1.Value = False CheckBox2.Value = False End Sub 以上です。 おかしなところ満載かと思いますが、 チェックを入れた項目だけ値を入れたいと考えております。 おわかりになるかたおりましたら何卒お助けください汗 よろしくお願いいたします。

  • ユーザーフォームのテキストボックスでVLOOK

    ユーザーフォームのテキストボックスで、ご教示お願いいたします。 現在、以下のようなコードこちらで教えていただきセルに入力をしております。 上から順番に入力した際、テキストボックス5に値を入たら、 listのシートから該当するもの（項目は20個）をテキストボックス6に表示させたいと思っております。 ■現在のコード '// Private Sub CommandButton1_Click() Dim LastRow As Long 'ここはキャメル形式やパスカル形式にします/大文字は定数です。 Dim i As Long '/テキストボックスに値があるか調べる For i = 1 To 7 Next i '/セルに書き込み With Worksheets("Sheet1") LastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To 7 .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value Next End With '/TextBox1-7をクリア If MsgBox("テキストボックスを空にしてよろしいですか？", vbQuestion + vbYesNo) = vbYes Then For i = 1 To 7 Me.Controls("TextBox" & i).Value = "" Next i End If 'TextBox1にフォーカスを移動 Me.TextBox1.SetFocus End Sub ■付け足したいコード Private Sub textbox5_change() Dim temp, x temp = Me.textBox5.Value If IsNumeric(temp) Then temp = Val(temp) x = Application.VLookUp(temp, Sheets("list").Range("a1:b20"), 2, False) If Not IsError(x) Then Me.TextBox6.Value = x Else MsgBox Me.TextBox5.Value & " はリストにありません" End If End Sub 【質問内容】 付け足したいコードは上記の通りですが、どのように付け足せばいいのかが分からず、 困っております。 度々で申し訳ありませんが、テキストボックス5の値を見て、 テキストボックス6に表示させるやり方をご教示お願いいたします。

  • ユーザーフォームのデータ

    ユーザーファームを２つ作成しました。 そのユーザーフォームのデータを表の最終行に追加をしたいのです。 Range("A65536").End(xlUp).Offset(1,0).select を使おうと思っていますが、うまくいきません。 どなたか教えてください。 ＜ユーザーフォーム１＞ Private Sub CommandButton1_Click() Sheet2.Range("H7") = TextBox1 Sheet2.Range("I7") = TextBox2 Sheet2.Range("J7") = TextBox3 Sheet2.Range("K7") = TextBox4 Sheet2.Range("L7") = TextBox5 Sheet2.Range("P7") = TextBox6 If CheckBox1.Value = True Then Worksheets(2).Range("M7") = "0:30" Else Worksheets(2).Range("M7") = "0:00" End If If CheckBox2.Value = True Then Worksheets(2).Range("R7") = "1000" Else Worksheets(2).Range("R7") = "0" End If If CheckBox3.Value = True Then Worksheets(2).Range("S7") = "3000" Else Worksheets(2).Range("S7") = "0" End If If CheckBox4.Value = True Then Worksheets(2).Range("T7") = "1500" Else Worksheets(2).Range("T7") = "0" End If Unload Me End Sub ＜ユーザーフォーム２＞ Private Sub CommandButton1_Click() Sheet2.Range("V7") = TextBox1 Sheet2.Range("W7") = TextBox2 Sheet2.Range("X7") = TextBox3 Unload Me End Sub

  • ユーザーフォーム上にある「テキストボックス」に小数が入力できない

    以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記（サンプル１）のようにお教えいただいたのですが、下記のようにマクロを組むとテキストボックスに小数が入力できなくなってしまいます。 どのようにしたら、テキストボックスに小数が入力できるようになるのでしょうか？ お教えください。 事例）「1.234」とテキストボックスに打ち込むと「1」 　　　「0.856」とテキストボックスに打ち込むと「0」と 　　　なってしまいます。 （サンプル１） 'A1のデータを反映するとした場合 'OptionButton1のコード Private Sub OptionButton1_Click() TextBox1 = Sheets("Sheet1").Range("a1") End Sub 'B1に反映するとして 'OptionButton2のコード Private Sub OptionButton2_Click() TextBox1 = "" End Sub 'TextBox1のコード Private Sub TextBox1_Change() If OptionButton2 = True Then Sheets("Sheet1").Range("B1") = TextBox1.Value End If End Sub

  • 条件判断について教えて下さい。

    VB2008を使用している初心者です。 現在、RichTextBoxとCheckBoxとそれに対応したTextBoxを準備し、CheckBoxがTrueのTextBox.TextをRichTextBoxに代入するプログラムを作成しています。RichTextBoxにはCheckBoxをTrueにした分だけ複数のTextBox.Textを代入させています。ここまでのプログラムは下記コードで問題なく作動しています。 Button1を押す。 RichTextBox1.Clear() If Me.CheckBox1.Checked = True Then RichTextBox1.Text = TextBox1.Text End If If Me.CheckBox2.Checked = True Then If RichTextBox1.Text <> "" Then RichTextBox1.Text = RichTextBox1.Text & "・" End If RichTextBox1.Text = RichTextBox1.Text & TextBox2.Text End If ・ ・ ・ If Me.CheckBox20.Checked = True Then If RichTextBox1.Text <> "" Then RichTextBox1.Text = RichTextBox1.Text & "・" End If RichTextBox1.Text = RichTextBox1.Text & TextBox20.Text End If ここで問題なのですが、RichTextBox1への代入完了後、FalseにしたCheckBoxを再度True（代入時に選択したもののみ）にするコードをButton2に作成したいのですが上手くいきません。例えば下記のコードですと、RichTextBoxに1つだけTextBoxが入っている場合しかCheckBoxのTrueが戻りません。 If Me.CheckBox1.Checked = False Then If RichTextBox1.Text = TextBox1.Text Then Me.CheckBox1.Checked = True End If End If ・ ・ ・ If Me.CheckBox20.Checked = False Then If RichTextBox1.Text = TextBox20.Text Then Me.CheckBox2.Checked = True End If End If これはIf RichTextBox1.Text = TextBox1.Text Thenにしてしまっているためだと思いますが、これをどう修正したら良いかわかりません。もしお時間がある方みえましたらご教授お願いいたします。

  • ユーザーフォーム上でFor Each～Next？

    Excelユーザーフォームでマルチページを使用しているのですが テキストボックスに文字（パスワード的なもの）を入力したら マルチページ内の特定ページのコントロールをenabled=trueにしたいのです（通常はenebledがtrue・falseの混合ページです） 先日よりFor Each～Next構文を使い始めたのですが勉強不足『オブジェクト・コレクション』の概念がいまいち理解できません。よろしくお願いします。 ネット上で調べてコピペしたのですがこのままだと他のページ、ページ外のコントロールまで影響するので良い方法をアドバイスしていただけますか？やはりコントロール個別にコードを書くしかないのでしょうか？ Private Sub TextPASS_Change() If TextPASS.Value = "aaaa" Then For Each Control In Controls 省略（enabled=true） Next Else For Each Control In Controls 省略（enabled=false） Next End If End Sub

  • Excel2000VBA 複数のテキストボックスに連続して同一処理をしたい

    Excel2000のVBAでユーザーフォームを使って簡単なインターフェースを作っています。 今まではほとんど IF～Then 文のみでどうにかなるよう処理をしてきましたが、今回はさすがにコードが長くなってしまうので何とかしたいと思い質問させていただきました。 現在 TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" … TextBox50.Value = "" のような処理になっています。 こういった処理が複数回あり、コードが長くなってしまっています。 これを簡素化する方法はないでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する