【Excel VBA】ユーザーフォームの入力漏れ防止について
データベースを作成するにあたり、入力漏れは大敵です。
今回は、ACCESSではなく、Excelのユーザーフォームについて2つの考えたでアプローチしたいと思います。
ユーザーフォームの入力漏れ防止について
こんにちは。伊川(@naonaoke)です。
ユーザーフォームで入力漏れを防止するには、様々は方法があります。
テキストボックス1個毎に設定するのは、結構大変です。
テキストボックスが、100個あったら、100個の処理を書く必要があります。
以前の私は、このようなことをしていました。
しかし、とてつもなく、非効率です。
そして、Functionを利用して、一括で、入力漏れを防止していました。
この考え方は、For～Eachを利用して、一括管理します。
しかし、発想を変えると、もっと便利になるかもしれません。
このブログは、こんな人にお勧め
- Excelのユーザーフォームで入力漏れを防止したい人
- Functionを勉強している人
- クラスモジュールを勉強している人
このブログを読み終わるころには・・・・・
書籍では、クラスモジュールを利用して記載はされていません。
しかし、クラスモジュールを利用すると、すごく、コードが短くなります。
入力漏れの考え方
今まで、私は、Functionを利用して入力漏れを、防止していました。
しかし、その入力漏れを、すり抜けてくる輩がいます。
現時点では、これが最強と思っていました。
しかし、入門レベルでは決して足りない実務に必須のスキルとは ExcelVBAの11章で
私が感銘する内容でしたので、紹介しようと思います。
入力漏れ防止 作業手順 その1 Functionで入力漏れ防止
ACCESSで紹介しましたが、今回はExcelで実行します。
コードは、ほとんど変わりません。
名前、年齢、電話番号に、入力漏れがあったら、登録させないというモノです。
このようにエラーがでます。
しかし、どんなに、入力漏れ防止をしても、すり抜けてくる輩がいます。
Functionのコードは下記の通りです。
標準モジュールに下記のコードを記載します。
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
フォームモジュールに下記のコードを記載します。
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
下記のコードに関しては、ユーザーフォームでを、×閉じさせないコードです。
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とします。
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
標準モジュールに下記のコードを記載します。
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
フォームモジュールに下記のコードを記載します。
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なんか嫌い！
- ネットで調べても情報がない！
必ず作動するコードが、ここにあります。
