VBAでのフォームのテキストボックス内を数字のみ入力させるようにしたい

前提・実現したいこと```ここに言語を入力

コード

初めて質問します。

フォーム内で年月を入力するために、テキストボックスを2つ設定しているのですが、数字のみを入力させるようにしたいです。
また、年月がそれぞれ入力されてない場合はメッセージを表示させ、再度入力を促すように命令を記述したいです。

以下のように記述したのですが、1つにまとめて上の処理をすることは可能でしょうか？
何卒ご教授をお願いします。

Private Sub UserForm_Initialize()
'ユーザーフォームが読み込まれた時点でTextBoxのIMEModeを指定
textNen.IMEMode = 3
textTuki.IMEMode = 3
End Sub
 
Private Sub textNen_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 'キーが押されたときに発生するイベントKeyPressを使用
     'Chr関数で押されたキーを判定
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
    End If
   
End Sub
Private Sub textTuki_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 'キーが押されたときに発生するイベントKeyPressを使用
     'Chr関数で押されたキーを判定
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
    End If
   
End Sub
 
Private Sub textNen_Change()
'ペーストなどで文字列が入力された場合はTextBoxの値を空欄にする
If IsNumeric(textNen.Text) = False Then
textNen.Text = ""
Exit Sub
End If
 
End Sub
Private Sub textTuki_Change()
'ペーストなどで文字列が入力された場合はTextBoxの値を空欄にする
If IsNumeric(textTuki.Text) = False Then
textTuki.Text = ""
Exit Sub
End If
 
End Sub

エラーメッセージ


エラーは出ていませんが、再入力を促すための命令がわかりません。




### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

seastar3

2019/03/19 08:19

Excel のVBAだと推測しますが、Accessかもしれません。どちらでしょうか。どちらか質問のタグにも加えておきましょう。

satton0021

2019/03/19 08:42

タグを設定しておらず申し訳ありません。 ExcelのVBAで会っています。

行動規範の内容に同意します

回答3件

VBA
1Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
2    Dim m As String
3    Dim v As Variant
4    
5    m = Me.TextBox1.Text
6    If Len(m) = 0 Then Exit Sub
7    If IsNumeric(m) Then
8        Select Case CLng(m)
9            Case 1 To 12: Exit Sub
10        End Select
11    End If
12    
13    Me.TextBox1.Text = ""
14    Cancel = True
15End Sub

こんな感じでいかがでしょうか？
だいたいこういうのは、次のテキストボックスに移動する前にチェックすると思います。
なので、BeforeUpdateイベント発生時か、
Exitイベント発生時に期待された文字が入力されたかチェックしたらいいと思います。
そして、既定の入力値以外なら、
Cancel = True
としてフォーカスの移動をキャンセルします。

あとは、好みで挙動を制御してやってください。
（コマンドボタン押下時に再度空白欄がないかチェックするとか。）

あと、個人的好みですが、いちいちメッセージボックスが出てくるのは、
うるさく感じますし、OKボタンを押させられるのも億劫なので、
必要ならラベルで、情報を表示するくらいでいいかなと思います。

最近はWebサイトでいろいろ入力すると思いますので、
そちらの挙動を参考に「どのタイミングで、こうしたら、入力しやすいな。」と
いうイメージを掴んでみたらいいと思います。

投稿2019/03/22 07:12

mattuwan

総合スコア2136

いつ、どのタイミングで再入力を促したいのでしょうか。

例えば登録コマンドボタンのクリック時とするなら、下記のような感じで。

vba
1Private Sub CommandButton1_Click()
2    If Me.TextBox1.Text = "" Then
3        MsgBox "年を入力してください。"
4        Me.TextBox1.SetFocus
5    ElseIf Me.TextBox2.Text = "" Then
6        MsgBox "月を入力してください。"
7        Me.TextBox2.SetFocus
8    ElseIf Val(Me.TextBox2.Text) < 1 Or Val(Me.TextBox2.Text) > 12 Then
9        MsgBox "正しい月を入力してください。"
10        Me.TextBox2.SetFocus
11    ElseIf Not IsDate(Me.TextBox1.Text & "年" & Me.TextBox2.Text & "月") Then
12        MsgBox "正しい年を入力してください。"
13        Me.TextBox1.SetFocus
14    End If
15End Sub