金額を入力して計算するルーチンを作成しています。
以下のコードで、数字以外は入力不可にしたのですが・・・・
数値を訂正するためのBack Spaceも入力できなくて困っています。
0~9までしか受け付けないコードなのはわかっていますが、それに加えてBack Spaceも受け付けられるようにするにはどんなコードを書けばよいでしょうか。
Private Sub genkin_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub
No.2ベストアンサー
- 回答日時:
どもども田吾作7です
>If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then Exit Sub
ここの意味を理解されてますでしょうか?
これはパラメータのKeyAsciiの入力制限を行っております。
Asc(0)は48です。Asc("9")は57です。
まずそれはそれでおいといて、、、
プレスイベントのコードをコメントして、
Debug.Print KeyAscii
と書いて文字入力してみてください。
イミディエイトウィンドウに、入力された文字コードが出力されます。
同時に[BackSpace]が8という値が得ることもわかると思います。
ですのでプレスイベントは、次のようになります。
If KeyAscii >= Asc(0) And KeyAscii <= Asc(9) Then Exit Sub
If KeyAscii = 8 Then Exit Sub
KeyAscii = 0
Beep
これは参考までなのですが・・・
Microsoft Masked Edit Controlというのをご存知ですか?
メニューバーの[プロジェクト][コンポーネント]の中に存在しています。
これを使用すると、数値、日付など、入力制限を行うことの出来ます。
でわでわ
ありがとうございます。 もう初心者には何が何だか・・・ の世界で本当に助かります。 Microsoft Masked Edit Control を早速フォームに乗せてみました。 こんな便利なコントロールがあるなんて、「そんなん知ら~ん!」って感じでした。
No.1
- 回答日時:
手元にVisual Basicがないので、確認はしていませんが
以下のコードではダメなのでしょうか?
Private Sub genkin_KeyPress(KeyAscii As Integer)
If(KeyAscii >= Asc("0") And (KeyAscii <= Asc("1")) _
Or KeyAscii <> Asc(バックスペースの番号) Then
Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub
これではだめなのでしょうか?
ではでは☆
この回答への補足
or でつなぐとなぜかどんなキーでも受け付けてしまいます。
なぜでしょうか・・・ 何度試してもだめなんですよね。
どこかコードがまちがっているのかなぁ・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windowsのアプリ開発ってなんの...
-
テキストボックスの番号を使っ...
-
教えて!全角文字「μ」の半角
-
エクセルVBA テキストボックス...
-
VBAの質問になります メッセー...
-
入力フォームの値をQRコードで...
-
DataGridView 列ごとの入力制限
-
VBA エクセル 条件の設定
-
DataGridViewの桁数制限に関して
-
エディットボックスの入力制限...
-
携帯サイト作成 半角数字(半角...
-
VBA R1C1形式で変数の入力について
-
TextBoxから数字が文字...
-
EXCEL VBA のユーザーフォーム...
-
ExcelVBAのユーザーフォームで...
-
登録フォームで入力制限(コピペ...
-
VS2019を利用したC#プログラミ...
-
TEXTAREA に入力時の位置
-
TextBoxに特定の文字のみ入力を...
-
入力フォームに入力した情報を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
Excel-VBAでInputBox+Pulldown...
-
入力フォームの値をQRコードで...
-
VBAの質問になります メッセー...
-
c#でTextBoxの入力制限
-
VBAで質問があります
-
教えて!全角文字「μ」の半角
-
VBAでInputBoxの再入力をさせる...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
DataGridViewの桁数制限に関して
-
VBA R1C1形式で変数の入力について
-
「イ分」・・・フンという文字...
-
Windowsのアプリ開発ってなんの...
おすすめ情報