Select Case 文字列を範囲で判定する

このマクロは、Select Case ステートメントを使用して文字列が特定の範囲にあるかどうかを判定し、結果をメッセージボックスで表示します。

' Select Case 文字列を範囲で判定する
Private Sub Select_Case_String()
    Dim char As String
    char = "3"  ' 判定対象の文字列を設定します
    Dim msg As String
    
    ' Select Case 文を使用して文字列を範囲で判定します
    Select Case char
        Case "0" To "9"  ' char が "0" から "9" の範囲にある場合
            msg = "半角の数字です"  ' 数字の場合のメッセージを設定
        Case "A" To "Z", "a" To "z"  ' char が "A" から "Z" または "a" から "z" の範囲にある場合
            msg = "半角のアルファベットです"  ' アルファベットの場合のメッセージを設定
        Case Else  ' 上記のいずれにも該当しない場合
            msg = "半角の数字でも半角のアルファベットでもありません"  ' その他の場合のメッセージを設定
    End Select
    
    ' 結果をメッセージボックスで表示します
    MsgBox msg  ' 判定結果のメッセージを表示
End Sub

詳しい説明

このマクロは、Select Case ステートメントを用いて文字列が特定の範囲に該当するかを判定し、その結果に応じたメッセージを表示します。以下が具体的な処理の流れです：

1. 変数の宣言と初期化:
   • Dim char As String で文字列を格納する変数 char を宣言し、char = "3" でその値を “3” に設定します。
   • Dim msg As String で判定結果のメッセージを格納する変数 msg を宣言します。
2. Select Case ステートメント:
   • Select Case char で、変数 char の値に基づいて処理を分岐します。
   • Case "0" To "9" は、char が “0” から “9” の範囲にある場合にマッチします。ここでは、msg に “半角の数字です” を設定します。
   • Case "A" To "Z", "a" To "z" は、char が “A” から “Z” または “a” から “z” の範囲にある場合にマッチします。ここでは、msg に “半角のアルファベットです” を設定します。
   • Case Else は、上記のいずれにも該当しない場合にマッチします。ここでは、msg に “半角の数字でも半角のアルファベットでもありません” を設定します。
3. メッセージボックスの表示:
   • MsgBox msg で、判定結果に基づくメッセージをメッセージボックスで表示します。

このマクロを使うことで、文字列が数値やアルファベットの範囲にあるかどうかを簡単に判定できるようになります。Select Case 文を用いることで、複数の条件をスッキリと記述できるのが特徴です。

Follow me!