文字種（ひらがな、全半角カタカナ、半角英大文字等々）の判定

公開日：2016-03-19　最終更新日：2016-03-19

文字種（ひらがな、全半角カタカナ、半角英大文字等々）の判定

マクロVBAで、文字の種類を判定する具体的なコードになります、

書き方はいろいろありますし、

なにより、文字を何の種類に入れるかは決まりがありません。

カタカナって、どこからどこまで、カナ記号は含むの

このような細部については、
使用する時々に合わせて微調整が必要になります。

ここでは、概ねこのようなコードを用意すれば、
後は使う時の調整次第というサンプルコードの掲載になります。

私自身の覚書でもあります。

特に詳しい解説はしません。
コードを読めばわかる程度のものですし、
もし読んで理解できない場合は、VBAの基礎から勉強してください。


  
    
      Sub sample()

　　Dim sText As String

　　Dim sKigou As String

　　Dim sRtn As String

　　

      　　sText = "あいう アイウ ABC 123" '検査する文字列

      　　sKigou = "→←↑↓＋?×÷" '記号と判定する文字、左はあくまで書き方の例

      　　'許可する文字種をArrayで作成して引数に入れています。

　　sRtn = JudgeText(sText, Array("ひらがな", _

　　　　　　　　　　　　　　　　　　"全角カタカナ", _

　　　　　　　　　　　　　　　　　　"半角英大文字", _

　　　　　　　　　　　　　　　　　　"半角数字", _

　　　　　　　　　　　　　　　　　　"半角空白"), _

　　　　　　　　　　　　　　　　　　sKigou)

　　If sRtn = "" Then

　　　　MsgBox "指定文字だけです"

　　Else

　　　　MsgBox "指定文字以外があります"

　　End If

End Sub


Function JudgeText(ByVal sText As String, ByRef tArray As Variant, ByVal sKigou As String) As String

　　Dim i As Long

　　Dim ix As Long

　　Dim sRtn As String

　　Dim flg As Boolean

　　

　　For i = 1 To Len(sText)

　　　　sRtn = CharKind(Mid(sText, i, 1), sKigou)

　　　　flg = False

　　　　For ix = LBound(tArray) To UBound(tArray)

　　　　　　If tArray(ix) = sRtn Then

　　　　　　　　flg = True

　　　　　　End If

　　　　Next

　　　　If flg = False Then

　　　　　　JudgeText = Mid(sText, i, 1)

　　　　　　Exit Function

　　　　End If

　　Next

　　JudgeText = ""

End Function


      Function CharKind(ByVal sChar, ByVal sKigou As String) As String

　　Select Case True

　　　　Case sChar = " "

　　　　　　CharKind = "半角空白"

　　　　Case sChar = "　"

　　　　　　CharKind = "全角空白"

　　　　Case Asc(sChar) >= Asc("0") And Asc(sChar) <= Asc("9")

　　　　　　CharKind = "半角数字"

　　　　Case Asc(sChar) >= Asc("０") And Asc(sChar) <= Asc("９")

　　　　　　CharKind = "全角数字"

　　　　Case Asc(sChar) >= Asc("A") And Asc(sChar) <= Asc("Z")

　　　　　　CharKind = "半角英大文字"

　　　　Case Asc(sChar) >= Asc("a") And Asc(sChar) <= Asc("z")

　　　　　　CharKind = "半角英小文字"

　　　　Case Asc(sChar) >= Asc("Ａ") And Asc(sChar) <= Asc("Ｚ")

　　　　　　CharKind = "全角英大文字"

　　　　Case Asc(sChar) >= Asc("ａ") And Asc(sChar) <= Asc("ｚ")

　　　　　　CharKind = "全角英小文字"

　　　　Case Asc(sChar) >= Asc("ぁ") And Asc(sChar) <= Asc("ん")

　　　　　　CharKind = "ひらがな"

　　　　Case Asc(sChar) >= Asc("ァ") And Asc(sChar) <= Asc("ヶ")

　　　　　　CharKind = "全角カタカナ"

　　　　Case Asc(sChar) >= Asc("ｦ") And Asc(sChar) <= Asc("ﾝ")

　　　　　　CharKind = "半角カタカナ"

　　　　Case Asc(sChar) >= Asc("亜") And Asc(sChar) <= Asc("黑")

　　　　　　CharKind = "漢字"

　　　　Case InStr(sKigou, sChar) > 0

　　　　　　CharKind = "記号"

　　　　Case Else

　　　　　　CharKind = "その他"

　　End Select

End Function

使う時は、
Function CharKind
この中のコードを調整してください。
特に記号関係でしょうか、カナ記号をどうするか等々
調整が済んだら、
検査する文字列を色々変更して確認しましょう。

同じテーマ「マクロVBA技術解説」の記事

文字列としてのプロシージャー名を起動する方法（Run,OnTime）
ドキュメントの作成者を取得（GetObject,BuiltinDocumentProperties）
画像サイズ（横x縦）の取得について
文字種（ひらがな、全半角カタカナ、半角英大文字等々）の判定
オブジェクトとプロパティの真実
 オブジェクト式について
 オブジェクトの探索方法（オートシェイプのTextを探して）
条件付きコンパイル（32ビット64ビットの互換性）
ドキュメントプロパティ（BuiltinDocumentProperties,CustomDocumentProperties）
VBAでファイルを既定のアプリで開く方法
 Excelアドインの作成と登録について

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBA技術解説
文字種（ひらがな、全半角カタカナ、半角英大文字等々）の判定

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA技術解説
文字種（ひらがな、全半角カタカナ、半角英大文字等々）の判定