【Excel VBA】ユーザーフォームの入力漏れ防止について
データベースを作成するにあたり、入力漏れは大敵です。
今回は、ACCESSではなく、Excelのユーザーフォームについて2つの考えたでアプローチしたいと思います。
目次
ユーザーフォームの入力漏れ防止について
こんにちは。伊川(@naonaoke)です。
ユーザーフォームで入力漏れを防止するには、様々は方法があります。
テキストボックス1個毎に設定するのは、結構大変です。
テキストボックスが、100個あったら、100個の処理を書く必要があります。
以前の私は、このようなことをしていました。
しかし、とてつもなく、非効率です。
そして、Functionを利用して、一括で、入力漏れを防止していました。
この考え方は、For～Eachを利用して、一括管理します。
しかし、発想を変えると、もっと便利になるかもしれません。
このブログは、こんな人にお勧め
- Excelのユーザーフォームで入力漏れを防止したい人
- Functionを勉強している人
- クラスモジュールを勉強している人
このブログを読み終わるころには・・・・・
書籍では、クラスモジュールを利用して記載はされていません。
しかし、クラスモジュールを利用すると、すごく、コードが短くなります。
入力漏れの考え方
今まで、私は、Functionを利用して入力漏れを、防止していました。
しかし、その入力漏れを、すり抜けてくる輩がいます。
現時点では、これが最強と思っていました。
しかし、入門レベルでは決して足りない実務に必須のスキルとは ExcelVBAの11章で
私が感銘する内容でしたので、紹介しようと思います。
入力漏れ防止 作業手順 その1 Functionで入力漏れ防止
ACCESSで紹介しましたが、今回はExcelで実行します。
コードは、ほとんど変わりません。
名前、年齢、電話番号に、入力漏れがあったら、登録させないというモノです。
このようにエラーがでます。
しかし、どんなに、入力漏れ防止をしても、すり抜けてくる輩がいます。
Functionのコードは下記の通りです。
標準モジュールに下記のコードを記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Public Function 入力漏れ() As Boolean Dim myCtrl As Control For Each myCtrl In UserForm2.Controls If myCtrl.Name Like "txt*" Then If IsNull(myCtrl.Value) Or (myCtrl.Value = "") Then MsgBox "入力必須項目に入力漏れがあります" 入力漏れ = True Exit Function End If End If Next 入力漏れ = False End Function |
フォームモジュールに下記のコードを記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Sub CommandButton1_Click() If Module1.入力漏れ Then Exit Sub maxrow = Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 3 Cells(maxrow, i) = UserForm2.Controls("txtTextBox" & i).Value Next i Unload UserForm2 End Sub |
下記のコードに関しては、ユーザーフォームでを、×閉じさせないコードです。
|
1 2 3 4 5 6 |
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then MsgBox "［登録］ボタンを使用してください" Cancel = True End If End Sub |
入力漏れ防止 作業手順 その2 クラスモジュールで入力漏れ防止
ユーザーフォームを起動すると、登録ボタンが、グレーアウトになっています。
テキストボックスに、全て、値が埋まったら、グレーアウトが解除され、登録ボタンを、押せるようになります。
この考え方は素晴らしいです。
しかし、Functionで実行するよりも、各段に難しく、3日考えても分かりませんでした。
入力漏れ防止 作業手順 その3 クラスモジュールの考え方
ユーザーフォームには、Changeというイベントがあります。
テキストボックスの値が、変わったら、何かのイベントを発生させるというモノです。
つまり、テキストボックスの内容が変わり、かつ、テキストボックスの内容が、Nullまたは、空ではなかったら、
登録ボタンを有効にさせるという事です。
このテキストボックスが、Changeした時に、毎回、判定をすることになります。
しかし、今回は、テキストボックスが、3つしかないので、問題はありません。
もし、テキストボックスが、100個あった場合、100個の処理を書くのかという問題に直面します。
その時に、利用するのが、クラスモジュールです。
テキストボックスのChangeイベントが発生するという、このイベントを、クラスモジュールで一括管理します。
ここが、分かりませんでした。
テキストボックス毎に処理をするのがイヤだったので、3日考えましたがダメでした。
なので、某掲示板で教えていただきました。
クラスモジュールは、ネットで探しても、サンプルが少ないので、皆さまのお役に立てれば幸いです。
入力漏れ防止 作業手順 その4 クラスモジュールのコード
クラスモジュールに下記のコードを記載します。
クラスは、Class1とします。
|
1 2 3 4 5 6 7 8 9 10 11 |
Option Explicit '複数イベントを１つにまとめる Private WithEvents TextEv As MSForms.TextBox Public Sub NewClass(ByVal Tbox As MSForms.TextBox) 'コンストラクタ処理 Set TextEv = Tbox End Sub Private Sub TextEv_Change() Call CB1Enable End Sub |
標準モジュールに下記のコードを記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public Sub CB1Enable() UserForm1.CB1.Enabled = 入力漏れ無 End Sub Public Function 入力漏れ無() As Boolean Dim myCtrl As Control 入力漏れ無 = True For Each myCtrl In UserForm1.Controls If myCtrl.Name Like "txt*" Then If Len(myCtrl.Value) = 0 Then 入力漏れ無 = False Exit Function End If End If Next End Function |
フォームモジュールに下記のコードを記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
Private NumText(1 To 3) As New Class1 Private Sub UserForm_Initialize() CB1.Enabled = False 'インスタンスの生成 Dim i As Long For i = 1 To 3 NumText(i).NewClass Controls("txtTextBox" & i) Next End Sub Private Sub CB1_Click() If Module1.入力漏れ Then Exit Sub maxrow = Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 1 To 3 Cells(maxrow, i) = UserForm1.Controls("txtTextBox" & i).Value Next i Unload UserForm1 End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then MsgBox "［登録］ボタンを使用してください" Cancel = True End If End Sub |
入力漏れ防止 作業手順 その5 所感
入門レベルでは決して足りない実務に必須のスキルとは ExcelVBAでは、テキストボックス毎に処理を記載しています。
この、素晴らしい回答をしてくれた方も、テキストボックス3つ位では、ありがたみが無いと仰っていました。
しかし、私は、テキストボックス3つでも、クラスモジュールを利用したいと思っています。
それは、汎用性があるからです。
勉強不足を痛感した瞬間でした。
ここがポイント
このコードは、クラスモジュールが、たとえ100個になっても、全然、平気なのです。
なぜ、クラスモジュールに関する書籍が無いのか不思議です。
少しの細工は、テキストボックスの冠に、txtをつけるようにして、Functionとクラスモジュールを利用することで、
メンテナンスも、コードの可読性も、向上します。
もっと、クラスモジュールを勉強したいと思いました。
まとめ
今回は、自分で正解には、たどりついていないので、コードは公開します。
是非とも、コードを眺めて、クラスモジュールを、何となくでもいいので、勉強してほしいと思います。
この処理を覚えると本当に便利です。
今回も最後まで読んでいただき、ありがとうございました。
今回のサンプルファイルは、No288です。
わからない事を延々と考えるのは、無駄です。
- なんで作動かないの？
- もうやだ！VBAなんか嫌い！
- ネットで調べても情報がない！
必ず作動するコードが、ここにあります。
