No.3ベストアンサー
- 回答日時:
ふたたびnekです。
補足に回答いたします。
>文字を入力した際に半角のローマ字や全角のスペースを
>禁止文字にしたいのですが、できれば禁止文字を増やしたり
>減らしたり出来るようにしたいのです。
先ほど、回答したInStrを使用すればこれもできます。
先ほどとは、検索する方とされる方が逆になります。
下記のIf InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Mid(txtbox名, I, 1)) <> 0 Thenを見てください。
この文のダブルコーテーション内の文字があれば、メッセージボックスが表示されます。
言い換えれば、このダブルコーテーション内の文字を増やしたり減らしたりすれば
hirochan2001さんの意図する事はできます。
尚、スペースは ' ←シングルコーテーションで囲んでくださいね。
ただし、この方法では半角全角の区別はできません。
半角全角はテキストボックスのプロパティ「IME入力モード」等で規制しましょう。
サンプルプログラム
Dim I As Integer
Dim MsgFlg As Boolean '禁止文字有無フラグ
MsgFlg = True
For I = 1 To Len(txtbox名)
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Mid(txtbox名, I, 1)) <> 0 Then
MsgFlg = False
Exit For
End If
Next I
If MsgFlg = False Then
MsgBox "禁止文字"
End If
遅くなりました。
何度もありがとうございました。
おかげさまで何とか出来ました。また何かわからない
ことがありましたらお願いします。 では!
No.4
- 回答日時:
下記のURL
「textボックスに全角のみ入力にする方法」
のスレッドが参考になりませんか?
参考URL:http://dev.sfdata.ne.jp/VB/htdocs/msg09789.html
No.2
- 回答日時:
そのテキストボックスのKeyPressイベントで
入力された文字のアスキーコードが取れますので
そのコードで確認して下さい。
下記の例では AからFと0から9以外の文字が入力された時
音をだして入力をキャンセルするものです。
Private Sub txtMsgId_KeyPress(KeyAscii As Integer)
KeyAscii = ifHexChar(KeyAscii)
End Sub
Public Function ifHexChar(KeyAscii As Integer) As Integer
ifHexChar = KeyAscii
Select Case KeyAscii
Case 3, 22: Exit Function ' Ctrl C Ctrl V
Case Asc(vbCr), Asc(vbBack): Exit Function
Case Asc("a") To Asc("f"):
ifHexChar = KeyAscii - &H20: Exit Function
Case Asc("A") To Asc("F"): Exit Function
Case Asc("0") To Asc("9"): Exit Function
Case Else: ifHexChar = 0: Beep
End Select
End Function
この回答への補足
遅くなってごめんなさい!
↑すごいですね私もっと勉強しなきゃって気にさせられました。
↑早速使わせて頂きました。nakashiさんはどの位勉強してここまで
↑プログラム出来るようになったのですか?教えて下さい。(^O^)/
それと私の説明の仕方が悪かったみたいです。ゴメンナサイ!
TBLはメモ型で作っています。
文字を入力した際に半角のローマ字や全角のスペースを
禁止文字にしたいのですが、できれば禁止文字を増やしたり
減らしたり出来るようにしたいのです。
ぜひもう一度教えて下さい。お願いします。
No.1
- 回答日時:
初めましてhirochan2001さん
ちょっと質問の意味が理解できませんが
テキストBOXに入力された文字すべてが対象になるなら
if txtbox名="a" Then
MsgBox "禁止文字です"
End If
でいいと思いますが、テキストBOXに入力された文字のスペルの中で
禁止文字があったらエラーを出すという事であれば、InStrを使えばできます。
下記の様なプログラムを、テキストBOXのAfterUpdateか
コマンドボタンのClickイベントに入れてみてください。
If InStr(txtbox名, "a") <> 0 Then
MsgBox "禁止文字です"
End If
動作確認はしてませんので、あしからず。
わからなかったら補足願います。
この回答への補足
遅くなってごめんなさい!
↑とてもわかり易い説明で助かりました。
私の説明の仕方が悪かったみたいです。
TBLはメモ型で作っています。
文字を入力した際に半角のローマ字や全角のスペースを
禁止文字にしたいのですが、できれば禁止文字を増やしたり
減らしたり出来るようにしたいのです。
もう一度教えて下さい。お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAのコードについて 2 2022/08/10 21:49
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) エクセルのマイナス表示 3 2022/03/28 16:35
- Excel(エクセル) Excelシートのある番地の文字が一致したすべての行を別シートに転記する方法 11 2022/10/25 08:43
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
- Excel(エクセル) VBAで、㉑という数値が、正しく、入力できない 2 2022/07/26 20:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba SelStart、SelLen教えてく...
-
javascript 文字列の最後から1...
-
VC#でテキストボックスに変数の...
-
正整数の半角数字かどうか判定する
-
JavaScriptでの全角カナ英数字...
-
エクセル 半角英数6文字以上 ...
-
C#でTextBoxに数値のみ入力可能...
-
gas 全角数字を半角数字に変換
-
Excel VBA にて JavaScript の...
-
ラベルの色がかわってくれない
-
JavaScriptで ブラウザの閉じる...
-
時間稼ぎの命令文とは?
-
JavascriptでのExcel起動について
-
JSPの処理の途中で、JavaScript...
-
クロスドメインでクッキーの取得
-
Webページ中の javascript をVB...
-
JavaScriptで、表を絞り込み&ソ...
-
タブブラウザで focus() を実...
-
C#の質問です。
-
表示ページによって、aタグ内の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba SelStart、SelLen教えてく...
-
VB.NET2003 テキストボックスに...
-
gas 全角数字を半角数字に変換
-
「終了していない文字列型の定...
-
正整数の半角数字かどうか判定する
-
VBAによる第3、4水準文字の判定...
-
ハイフンだけ置換したい。
-
VC#でテキストボックスに変数の...
-
C#でTextBoxに数値のみ入力可能...
-
エクセル 半角英数6文字以上 ...
-
漢字などを正規表現でパターン...
-
JavaScriptに関する質問です。 ...
-
正規表現について
-
javascript 文字列の最後から1...
-
エクセルVBA/ Formatで文字列が...
-
禁止文字チェック
-
Javascript 全角カナ+半角スペ...
-
CListCtrl の特定のセル(アイ...
-
文字認証の問題
-
Access VBAで、数字だけをチェ...
おすすめ情報