1150907496

2022/5/17 10:36

33回答

テキストボックスの一括処理について。 現在、ユーザーフォームにテキストボックスが50個設置されています。 フォームを読み込んだ時は、テキストボックス1以外は非表示設定です。

テキストボックスの一括処理について。 現在、ユーザーフォームにテキストボックスが50個設置されています。 フォームを読み込んだ時は、テキストボックス1以外は非表示設定です。 テキストボックス1に値が入力されたらテキストボックス2を表示、テキストボックス2に値が入力されたらテキストボックス3を表示としています。 Private Sub TextBox1_change() TextBox2.visible = True End Sub このコードをテキストボックスごとに50個書くのは大変なので、一括処理する方法などないでしょうか？

Visual Basic | Excel・114閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

1
kky********

2022/5/17 19:10

ちょっと敷居が高いと思いますが、クラスモジュールを使わないと簡略化出来ないと思います。 クラスモジュールに Private WithEvents tbox As MSForms.TextBox Public Sub SetCtrl(new_ctrl As MSForms.TextBox) Set tbox = new_ctrl End Sub Private Sub tbox_Change() Dim no As Integer If tbox.Value <> "" Then no = Replace(tbox.Name, "TextBox", "") * 1 + 1 UserForm1.Controls("TextBox" & no).Visible = True End If End Sub ユーザーフォームのコードは Private ctrl(1 To 50) As New Class1 Private Sub UserForm_Initialize() Dim i As Integer For i = LBound(ctrl) To UBound(ctrl) ctrl(i).SetCtrl Me("TextBox" & i) Next For i = 2 To UBound(ctrl) Controls("TextBox" & i).Visible = False Next End Sub

1人がナイス！しています

ThanksImg質問者からのお礼コメント

ありがとうございました。 コンボボックスにも適用できそうなので、今後の勉強に役立ちました。

お礼日時：5/17 20:07

その他の回答（2件）

0
sih********

2022/5/17 10:54

最も単純な考え方としては、テキストボックスを順番に配列に入れて置き、配列の先頭から処理するようにしていくことでしょう。 例えば… ---- 'テキストボックス配列 Private tbArray as TextBox() {TextBox1,TextBox2,...} Private Sub TextBox_Changed(...) '事前にイベントハンドラに登録しておく Dim tb as TextBox = (TextBox)sender 'イベント発生元 'テキストボックス配列をループ For i As Integer = 0 To tbArray.Length -1 'イベント送信元判別 If tb = tbArray(i) Then 'イベント送信元と同じテキストボックスが見つかったら、次のテキストボックスを表示 tbArray(i+1).Visible = True End If End For End Sub ---- のようにすれば、テキストボックスの数に関係なく処理できると思います。 ※コードはイメージです。 テキストボックスの配列を作るのが面倒という場合は、テキストボックスが乗っているフォーム配下のコントロール全てを対象に行うという方法もあります。 ただこの場合、制御対象とするコントロールとその順番をきちんと制御する（制御できるように画面を作る）必要があるでしょうから、かなりややこしくなると思います。

0
*

2022/5/17 10:45

TextBox1を５０個作ってIndexで管理すれば良い Text1(0).Visible=True; Text1(1).Visible=True; Text1(2).Visible=True; まあこんな感じ Private Sub TextBox1_Change(Index as Integer) { TextBox1(Index+1).Visible=True }

1150907496

質問者2022/5/17 10:59

返信ありがとうございます。 テキストボックスの値をシートに反映させるコードをすでに書いているので、その修正が必要になってしまいます。 もし、他に方法があれば宜しくお願いします。