Sub ひらがな_かどうか判定する()

    チェック文字 = Range("A1")
    
    チェックする文字数 = Len(チェック文字)
    
    For 何文字目 = 1 To チェックする文字数 '1文字目～最後の文字まで繰り返す
        
        検査文字 = Mid(チェック文字, 何文字目, 1) '左から順番に1文字づつチェック
        
        If Not 検査文字 Like "[あ-ん]" Then '「Not」＝条件不一致か判定
        
            MsgBox "ひらがな以外も含まれています" 'ひらがな以外を発見すると警告
            End
        
        End If
    
    Next 何文字目
    
    MsgBox "すべてひらがなです" '文字数分チェックして問題なければOK通知

End Sub