【VBA】テキストボックスをフォーカスする【SetFocusでできます】

目次から見たい項目へ移動すると便利ですよ。

Excel VBAでテキストボックスにフォーカスする方法についてご紹介します。

特定のテキストボックスに入力を促すときに使えます。

テキストボックスにフォーカスするVBAコードです。

『ユーザーフォームの中のコード』に記載します。

テキストボックスへのフォーカスは『TextBox1.SetFocus』でできます。

ユーザーフォームを開いてアクティブになった際に実行するコードを使用しています『Private Sub UserForm_Activate()』。

UserForm_Initialではフォーカスできませんのでユーザフォームを開いた際にフォーカスするには『UserForm_Activate』が必要になります。

テキストボックスにフォーカスした結果です。

このVBAコードではTextBox2にフォーカスしています。

ユーザーにTextBox2から入力してくださいねという意味でフォーカスすると入力がスムーズになります。

テキストボックスでフォーカスの活用例について3つご紹介します。

フォーカスはテキストボックスへの入力をスムーズにするために使えます。

テキストボックスに入力した値を連続的にセルへ入力していきたいといった場合にフォーカスが使えます。

『ユーザーフォームの中のコード』に記載します。

VBAコードを実行した結果をみてみます。

まずテキストボックスに値を入力します。

ボタンをクリックしてセルへ値を出力します。

セルへ出力したら再度テキストボックスがフォーカスされます。

テキストボックスがフォーカスされています。

追加でデータを入力するためテキストボックスの値は空白になるようにしています。

これでわざわざテキストボックスをクリックしなくてもテキストボックスに新しい値を入力していくことができます。

操作の手間を省くことができて効率的ですね。

ボタンをクリックした際に実行するコード『Private Sub CommandButton1_Click()』を使用しています。

ワークシートの最終行にテキストボックスの値を出力します『ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = TextBox1.Text』。

次に新しく値を入力するため『TextBox1.Text = ""』でテキストボックスを空白としています。

テキストボックスをフォーカスします『TextBox1.SetFocus』。

これでテキストボックスからセルへの出力をちょっと効率化できて、入力のストレスを少しだけ減らすことができます。

次はテキストボックスに指定以外の値が入力された場合にテキストボックスをフォーカスするVBAコードをご紹介します。

このVBAコードでは入力形式が『20200101』ではない数字8文字以外の値が入力された場合にテキストボックスをフォーカスします。

『ユーザーフォームの中のコード』に記載します。

今回の指定の形式は8文字の数字で『20200101』のような形です。

テキストボックスに指定の形式以外の値『あいうえお』を入力してみます。

ボタンをクリックしてセルへ出力しようとしてみます。

誤入力なのでエラーメッセージを出しています。OKをクリックします。

指定の文字以外の値を入力したのでテキストボックスの値がフォーカスされています。

テキストボックスに入力した値が選択されています。

入力した値が指定した形式の場合はテキストボックスの値がセルへ出力されます。

セルへ『20201212』が出力されています。

フォーカスをうまく使えばテキストボックスに入力された値が指定した形式以外だった場合に再入力をしやすくすることができます。

ちょっとした心遣いですね。

ボタンをクリックした際に実行するコード『Private Sub CommandButton1_Click()』を使います。

入力が8文字以外の場合にフラグを立てます『If Len(TextBox1.Text) <> 8 Then』。

入力した値が数字以外の場合にもフラグを立てます『If IsNumeric(Mid(TextBox1.Text, i, 1)) = False Then』。

フラグが立っている場合『If flag = 1 Then』に、テキストボックスをフォーカスします『TextBox1.SetFocus』。

テキストボックスで選択開始する文字番号『TextBox1.SelStart = 0』と値の長さ『TextBox1.SelLength = Len(TextBox1.Text)』を指定して選択します。

これで入力した値が指定した形式以外の場合にテキストボックスをフォーカスして値を選択することができます。

テキストボックスに入力した値が指定した形式だった場合はフラグが立たない『Else』となるので、セルへ出力します『ActiveSheet.Cells(1, 1) = TextBox1.Text』。

最後にオプションボタンのクリック後にフォーカスする活用例についてご紹介します。

オプションボタンで『その他』などの項目を選択した際にその他の内容を記載してもらうためテキストボックスにフォーカスする。という使い方です。

『ユーザーフォームの中のコード』に記載します。

ユーザーフォームを開いてみます。

オプションボタンの『その他』を選択してみます。

オプションボタンを選択するとテキストボックスがフォーカスされました。

フォーカスを使うとテキストボックスへの入力がスムーズになります。

オプションボタンの値が変更された場合に実行するVBAコード『Private Sub OptionButton3_Change()』を使用します。

『その他』のオプションボタンが選択されていた場合に『If OptionButton3.Value = True Then』、テキストボックスをフォーカスします『TextBox1.SetFocus』。

これでオプションボタンを選択した際にテキストボックスをフォーカスすることができます。

この記事ではテキストボックスをSetFocusでフォーカスする方法とその活用例についてご紹介しました。

テキストボックスへのフォーカスを効果的に活用すると入力がスムーズになります。

フォーカスが活用できそうな例として3つの活用例をご紹介しました。フォーカスの応用次第で使い勝手のいいユーザーフォームが作れるかと思います。

ご参考になればと思います。最後までご覧くださいましてありがとうございました。