Excel2013vbaで、ワークシート上にActiveXコントロールのテキストボックスを配置しています。
それに、入力制限をかけて、半角数字の3~200までを入力範囲とし、それ以外は入力不可としたいのですが、うまくできません。
とりあえず、現状数値のみの入力制限をかけることと、0入力不可(2文字目以降は可能)、200以上の入力不可という所まではできていますが、1と2の入力制限がかかりません。
1と2に入力制限をかけると、11や21などの2桁以上の入力も制限されてしまいます。
なにか方法は、あるでしょうか?
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
KeyAscii = 0
End If
End Sub
Private Sub TextBox1_Change()
If TextBox1.Value > 200 Or TextBox1.Value = 0 Then
TextBox1.Value = ""
End If
End Sub
また、ワークシート上のテキストボックスのプロパティのIME MODEで3-fmIMEModeDisableを選択してもIMEモードが無効になりません。これは、仕方ないのでしょうか?できなかったので、IME -fmIMEModeOffに設定しています。
No.1ベストアンサー
- 回答日時:
このActiveX コントロールをシート上には、UserForm上の AterUpdate イベントがありません。
Changeイベントだと、Change のたびにチェックしてしまうので、うまくいきません。今のところ、私の案ではこのぐらいです。もっと良い方法があるかもしれません。
'//シートモジュール
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii.Value
Case 48 To 57
Case Else
KeyAscii.Value = 0
End Select
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'AfterUpdate の代わり
Dim n As Variant
Select Case KeyCode.Value
Case 8 To 13 'Tab, Enter を入れたとき
n = Val(TextBox1.Value)
If (n < 3 Or n > 200) Then TextBox1.Value = ""
End Select
End Sub
Private Sub TextBox1_LostFocus()
'貼り付け防止
Dim n As Variant
n = Val(TextBox1.Text)
If (n < 3 Or n > 200) Then TextBox1.Value = ""
End Sub
テキストボックスを離れないとダメですが、やりたいことは実現できました。
シート上ではAterUpdate イベントがない以上、これが限界ですかね。
どうもありがとうございました。
No.2
- 回答日時:
>テキストボックスを離れないとダメですが、やりたいことは実現できました。
>シート上ではAterUpdate イベントがない以上、これが限界ですかね。
自力で考えたものですから、もう少し他の回答があるかもしれません。私は、ワークシート上のActiveX コントロールは、Windows 10になったときに、こちらでは、もう見限ってしまっているので、あまり研究していません。
TextBoxを離れなくてもできたと思いますが、
Private Sub TextBox1_LostFocus()
これは、テキストボックスに貼り付けされると、そのまま残るから付け加えました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) ユーザーフォームで銀行に対応した支店コードの入力ができません Sheet1のA列に銀行名、B列に銀行 5 2022/07/28 17:50
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
EXCEL VBAについて、ワークシート上に置いたTextBoxに値を入れる方法について
Excel(エクセル)
-
エクセルVBAでテキストボックスの値の取得と変更について
Visual Basic(VBA)
-
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
-
4
テキストボックス(VBA)でEnterを押したときに作動するマクロ
Access(アクセス)
-
5
コマンドボタンやイメージにマウスをのせるとボタン名を表示したい
Excel(エクセル)
-
6
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
7
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
8
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
9
Excelの入力規則で2列表示したい
Excel(エクセル)
-
10
Excel VBA の印刷後の判定
Excel(エクセル)
-
11
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
12
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
13
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
14
VBA(エクセル)のユーザーフォームの固定
Visual Basic(VBA)
-
15
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
16
コマンドボタンを押すたびに大きくなってしまう
Excel(エクセル)
-
17
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
18
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
19
エクセルでテキストボックス内のカーソルが動かないのですが、対処法ありますか?ネットでは、Ctl lo
ノートパソコン
-
20
excelのInitializeイベントとActivateイベントについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UWSCで全角(ひらがな、カタカ...
-
Accessのデータ型の日付/時刻型...
-
フォトショプ でテキストを改行...
-
セブンnowは駅前とかでも配達し...
-
宀や广など、部首だけを入力す...
-
VBAでエクセルシートを更新...
-
「24日の0時」って・・・
-
エクセルのチェックボックスを...
-
パソコンで購入したデーターが...
-
エクセルで最高値、最低値の日...
-
日付の大小の表現
-
回覧板の日付について質問です...
-
差し込み印刷に当日の日付が入...
-
「時間」、「期日」、「日付」...
-
エクセルの列が左右逆に・・・・
-
エクセルで日付別にシートを分...
-
エクセルで数字から名前に変...
-
Excel関数 「日付を入力...
-
日付を差し込み印刷で表示した...
-
履歴書の日付間違いで落ちますか。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セブンnowは駅前とかでも配達し...
-
DIORのオンラインショップの購...
-
Accessで、定型入力を使って年...
-
宀や广など、部首だけを入力す...
-
Accessで24時間を超える時間の...
-
Accessのデータ型の日付/時刻型...
-
Accessの定型入力(000\\-0000;0;_)
-
Excelのワークシート上に配置し...
-
ATOKのポップアップを消したい
-
フォトショプ でテキストを改行...
-
PCやスマホで文字入力をする際...
-
日またぎにも対応した勤務時間...
-
サクラエディタの入力補完機能...
-
UWSCで全角(ひらがな、カタカ...
-
graphvizの日本語文字化け対策
-
○○の何乗はどう入力?
-
PDF応募ハガキの入力について
-
DaVinci Resolve
-
ジャニーズショップでログイン...
-
Amazonの配送先住所入力の自動...
おすすめ情報