テキストボックス(半角カナ)で次のようなコードを書きました。
Private Sub 半角カナ_AfterUpdate()
Me.半角カナ = StrConv(Me.半角カナ, 8 + 16)
Me.半角カナ = Replace(Me.半角カナ, "ッ", "ツ")
Me.半角カナ = Replace(Me.半角カナ, "ャ", "ヤ")
Me.半角カナ = Replace(Me.半角カナ, "ュ", "ユ")
Me.半角カナ = Replace(Me.半角カナ, "ョ", "ヨ")
Me.半角カナ = Replace(Me.半角カナ, "ァ", "ア")
Me.半角カナ = Replace(Me.半角カナ, "ィ", "イ")
Me.半角カナ = Replace(Me.半角カナ, "ゥ", "ウ")
Me.半角カナ = Replace(Me.半角カナ, "ェ", "エ")
Me.半角カナ = Replace(Me.半角カナ, "ォ", "オ")
End Sub
Private Sub 半角カナ_BeforeUpdate(Cancel As Integer)
If Me.半角カナ Like "*[!-0-9ア-ンA-Z゙゚()./]*" Then
Cancel = True
MsgBox "半角カタカナと英数字のみ入力可能です。"
End If
End Sub
これにより、
ひらがな⇒半角カナ に変換
小文字の半角カナ⇒大文字の半角カナ に変換
数字、半角カナ、アルファベット、濁点、半濁点、()./ の文字以外
は入力できなくしました。
そこでもう一つ工夫したいのが、やまだ たろう や ヤマダ タロウ
などを入力しても、半角、全角スペースでエラーが生じてしまい
ます。
あと、どう改善すればよろしいですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel でマクロ利用しセル内テキストを修正しております(半角カナを全角にするなど)。 ただ、セル 4 2023/06/15 21:29
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) 空白を全て削除したい 2 2023/05/13 21:36
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- Excel(エクセル) 【マクロ】フォルダを3つ、POモニター上に、決まった並べ方をしたい 4 2022/08/31 11:05
- Excel(エクセル) 【マクロ】フォルダを2つのモニターの定位置に並べたい 2 2022/09/02 01:14
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) 【VBA】ファイルパスに半角スペースが入ると、VBAが動かない 5 2022/08/04 20:52
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
アクセスのフォームに入力する文字に制限をかけたい
Access(アクセス)
-
-
4
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
5
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
6
入力規則で半角数字のみ受け付ける方法
Windows Vista・XP
-
7
ACCESS フォームをそのまま印刷について
その他(データベース)
-
8
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
9
Accessのコマンドボタンの立体化について
Access(アクセス)
-
10
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
11
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
12
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
13
ACCESSのコンボボックスで入力した値がTABLEに反映されずに数字がでます
Access(アクセス)
-
14
ACCESSのフォームだけを起動する方法
その他(データベース)
-
15
コンボボックスにキー入力をさせない方法(ACCESS VBA)
その他(プログラミング・Web制作)
-
16
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
17
アクセスVBAのMe!と[ ]
Access(アクセス)
-
18
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
19
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
20
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
全角入力
-
全角/半角キーをSendkeys関数で...
-
住宅にカナを入力する際に丁目...
-
正しいメールアドレスの形式で...
-
プログラミングでは、半角括弧...
-
VBAの文字列の中に”(全角のダブ...
-
コマンドプロンプト 全角を含ん...
-
小説の点々は……と繋がらなくて...
-
POM
-
改行のないテキストを指定バイ...
-
VBで「全角」文字を「半角」に...
-
エクセル 全角か半角かを見分...
-
CString Format にて全角空白文...
-
VB.net、テキストボックス入力...
-
正規表現で、全角文字を半角文...
-
word差し込み印刷 半角カタカ...
-
よくアカウント等に使われる 半...
-
Accessのフィールドサイズ
-
検索窓について
-
全角スペースと半角スペースの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
住宅にカナを入力する際に丁目...
-
エクセルにMicrosoft Barcode C...
-
プログラミングでは、半角括弧...
-
IEからEdgeへの移行に伴うIMEの...
-
全角英数字の必要性が理解できない
-
VBA 文字に半角が含まれて...
-
Accessのテキストボックスの入...
-
word差し込み印刷 半角カタカ...
-
COBOL・全角判定
-
全角入力
-
VB.net、テキストボックス入力...
-
COBOLでの全角文字の判定をした...
-
CString Format にて全角空白文...
-
メモ帳の段落の揃え方
-
ダブルコーテーションの置換
-
正規表現で、全角文字を半角文...
-
VBで、String型のデータが、...
-
よくアカウント等に使われる 半...
-
エクセルでの”々”の扱い
おすすめ情報