第19回.数値専用のテキストボックス
ユーザーフォーム入門として基礎から解説します。
数値専用のテキストボックスの作成です。
数字以外は入力出来ないテキストボックスを作成します。
数値専用のテキストボックスの追加
KeyDownイベントで数値のみに限定
Private Sub txt金額_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyReturn, vbKeyBack, vbKeyDelete, vbKeyTab
Case vbKey0, vbKey1, vbKey2, vbKey3, vbKey4, vbKey5, vbKey6, vbKey7,
vbKey8, vbKey9
Case vbKeyNumpad0, vbKeyNumpad1, vbKeyNumpad2, vbKeyNumpad3, vbKeyNumpad4,
vbKeyNumpad5, vbKeyNumpad6, vbKeyNumpad7, vbKeyNumpad8, vbKeyNumpad9
Case vbKeyLeft, vbKeyUp, vbKeyRight, vbKeyDown
Case 188 '「,」カンマ
Case Else
KeyCode = 0
End Select
End Sub
数字のみ入力可能なテキストボックスになります。
数字以外では、EnterキーやBackSpaceキー、そしてカンマ等々を入力できるようにしておきます。
vbKey0～vbKey9と、vbKeyNumpad0～vbKeyNumpad9
この両方を入れるのを忘れないようにして下さい。
vbKeyNumpadは、テンキーからの入力になります。
Keycode 定数 一覧
数値専用テキストボックスをカンマ編集
テキストボックスを抜けた時にカンマ編集してみましょう。
Private Sub txt金額_Enter()
Call setColor(Me.txt金額)
If IsNumeric(Me.txt金額.Text) Then
Me.txt金額.Text = Format(Me.txt金額.Text, "0")
End If
End Sub
Private Sub txt金額_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.txt金額.Text = "" Then
Exit Sub
End If
If IsNumeric(Me.txt金額.Text) Then
Me.txt金額.Text = Format(Me.txt金額.Text, "#,##0")
Else
MsgBox "数値を入力して下さい。"
Cancel = True
End If
End Sub
Exitイベントでは、数値以外の場合は、抜けないようにしています。
Cancel = True
これで、テキストボックスを抜けないようにしています。
Exit Sub
End If
これが無いと、何も入力していない状態でもテキストボックスを出られなくなってしまいます。
入力必須項目であっても、ここは一旦は、未入力を許可しておい方が使い勝手が良いでしょう。
必須入力のチェックは、OKボタンが押された時点でチェックするようにしたほうが良いです。
Changeイベントで電卓風に
電卓の数値入力のような感じになります。
Private Sub txt金額_Change()
If IsNumeric(Me.txt金額.Text) Then
Me.txt金額.Text = Format(Me.txt金額.Text, "#,##0")
End If
End Sub
これで、数値を入力していくと、３桁ごとに自動でカンマが付くようになります。
ここは、好みで使い分ければ良いと思います。
イベントの使い方によって、いろいろな表現方法ができますので、工夫していろいろ試してみてください。
同じテーマ「ユーザーフォーム入門」の記事
第16回.アクティブコントロールに色を付ける
第17回.Enterキーで次のコントロールに移動する
第18回.２段階のコンボボックス
第19回.数値専用のテキストボックス
第20回.テキストボックスの各種イベント
第21回.ユーザーフォームの各種イベント
第22回.コントロールの動的作成
第23回.イベントプロシージャーの共通化
第24回.イベントプロシージャーの共通化（Enter,Exit）
第25回.簡易音楽プレーヤーの作成
第26回.プログレスバーを自作する
新着記事NEW ・・・新着記事一覧を見る
第5章：AI×VBAでつまづかない！トラブルシューティングとAIとの付き合い方
｜生成AI活用研究(2025-05-20)
第4章：【事例で学ぶ】AIとVBAでExcel作業を劇的に効率化する！
｜生成AI活用研究(2025-05-20)
第3章：AIを「自分だけのVBA先生」にする！質問・相談の超実践テクニック｜生成AI活用研究(2025-05-19)
第2章 VBAって怖くない！Excelを「言葉で動かす」（超入門）｜生成AI活用研究(2025-05-18)
第1章：AIって一体何？あなたのExcel作業をどう変える？（AI超基本）｜生成AI活用研究(2025-05-18)
AI時代のExcel革命：AI×VBAで“書かない自動化”超入門｜生成AI活用研究(2025-05-17)
Geminiと100本ノック 23本目：シート構成の一致確認｜生成AI活用研究（5月16日）
AIが問う出版の未来は淘汰か進化か：AIと書籍の共存の道とは｜生成AI活用研究(2025-05-16)
Geminiと100本ノック 22本目：FizzBuzz発展問題｜生成AI活用研究（5月15日）
すぐに使える！生成AI プロンプト作成 実践ガイド｜生成AI活用研究(2025-05-15)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門
- ホーム
- マクロVBA応用編
- ユーザーフォーム入門
- 数値専用のテキストボックス
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。