HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > 特定のセルに濁音あるいは半濁音が含まれているかどうかを判定する

即効テクニック

セル操作関連のテクニック

特定のセルに濁音あるいは半濁音が含まれているかどうかを判定する

(Excel 97/2000)
サンプルマクロは、A1セルの値に濁音あるいは半濁音が含まれているかどうかを判定します。
Sub Sample()

    Dim myStr As String
    
    'Excel2000
    myStr = Range("A1").Phonetic.Text
    'Excel97
    'myStr = Range("A1").Phonetic.Text
    'If myStr = vbNullString Then myStr = Range("A1").Value
    'Excel95
    'myStr = Range("A1").Value    

    If Len(StrConv(myStr, vbKatakana)) _
        < Len(StrConv(myStr, vbKatakana + vbNarrow)) Then
        MsgBox "濁音または半濁音が含まれています。"
    End If

End Sub