Access97を使用しております。
現在↓のような形で禁止文字を設定しておりますが、大英字全角のAでも
小英字半角のaでも全て禁止文字として認識されてしまいます。
>>たぶんUnicodeのせいだと・・・(泣)
これを例えば小半角英字の「a」のみを禁止文字として認識させるにはどの
ような方法があるのでしょうか?ご教授お願い致します。
Dim R As Integer
Dim strChk As String
Dim strMoji As String
'禁止文字チェック
strMoji = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
Me.txtMsg = ""
For R = 1 To Len(Me.内容)
strChk = Mid$(Me.内容, R, 1)
If InStr(strMoji, strChk) <> 0 Then
Me.txtMsg = "入力禁止文字「 " & strChk & " 」が使用されています。"
Exit Sub
Exit For
End If
Next R
No.3ベストアンサー
- 回答日時:
まだ解決していないようなので回答します。
InStr関数で色々と試してみたのですが、思った結果が得られないので
StrComp関数にしてみました。
以下は、こちらでテストしたモジュールです。
----------------------------------------------------------------------
Public Function MOJI_TEST(H_txt As String)
Dim R As Integer
Dim R1 As Integer
Dim strChk As String
Dim strMoji As String
Dim txtMsg As String
' 禁止文字チェック
strMoji = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz "
txtMsg = ""
For R = 1 To Len(H_txt)
strChk = Mid$(H_txt, R, 1)
'
For R1 = 1 To Len(strMoji)
If StrComp(StrConv(Mid$(strMoji, R1, 1), vbFromUnicode), _
StrConv(strChk, vbFromUnicode), vbBinaryCompare) = 0 Then
txtMsg = "入力禁止文字「 " & strChk & " 」が使用されています。"
MsgBox txtMsg
Exit Function
End If
Next R1
'
Next R
'
End Function
----------------------------------------------------------------------
後は適当に直して下さい。
ではでは・・・
返答が遅れすみません!
実は事故って入院してました。(泣)
まだ確認は出来てないのですが、一旦ポイントだけ入れさせて頂きます。
申し訳ありませんでした。
No.2
- 回答日時:
Unicodeで比較するっていうのは如何でしょうか。
strChk = Mid$(Me.内容, R, 1)
strMoji2 = Mid$(strMoji、InStr(strMoji, strChk),1)
If AscW(strMoji2) = AscW(strChk) Then
StrConvでANSIに変換して比較することもできると思いますが、Unicodeでも比較できるのではと思いました。
でも試していないので自信があるわけではありません。ゴメンナサイ。
返答が遅れすみません!
実は事故って入院してました。(泣)
まだ確認は出来てないのですが、一旦ポイントだけ入れさせて頂きます。
申し訳ありませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1文字って1バイトだったっけ?
-
濁点(゙) 半濁点(゚)を一文字と数...
-
VBAのfor...next構文で i = A ...
-
Excelで入力禁止文字を設定したい
-
50KBは何文字に相当するのでし...
-
10分で500~600文字っ...
-
パワーポイントで文字の上に線...
-
全角は日本独自のものか
-
ファイル名の文字数について
-
一太郎 2倍ダーシ
-
ドコモ携帯メールの「本当の」...
-
縦棒が使えなくなった。
-
エクセルのIF文で「NOT=...
-
Accessで名前の間のスペースを...
-
wordの何も書かれていない2ペー...
-
PS4コントローラーをPCでゲーム...
-
エクセルでアルファベットか数...
-
セル内の文字列が日本語か英語...
-
【Microsoft OneNote→Google Ke...
-
Chr(13)とChr(10)の違いは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1文字って1バイトだったっけ?
-
パワーポイントで文字の上に線...
-
10分で500~600文字っ...
-
エクセルのIF文で「NOT=...
-
濁点(゙) 半濁点(゚)を一文字と数...
-
VBAのfor...next構文で i = A ...
-
エクセルの文字制限からの文字...
-
この、意味を、知りたいです
-
50KBは何文字に相当するのでし...
-
コンピューター名の文字数制限
-
Accessで名前の間のスペースを...
-
2バイトって何文字分ですか?
-
VLOOKUP関数で検索できません
-
http://oshiete.goo.ne.jp/qa/1...
-
どっちが正しいですか? チョン...
-
全角は日本独自のものか
-
auのメールアドレス
-
Excelで入力禁止文字を設定したい
-
128ビットのパスワード
-
PC98 の半角英数字の文字を Win...
おすすめ情報