Excel vba 全角判定、数字判定!!

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

Excelを使用しているとセルに全角が入力された場合、
数字が入力された場合などで分岐をさせたいと思います。

完成イメージ
セルに数字が入力された場合

セルに全角がある場合

それ以外の場合

以下ソース


Private Sub Worksheet_Change(ByVal Target As Range)

  ’A1セルに入力があった場合を判定します。
  If Intersect(Target, Range(“$A$1”)) Is Nothing Or IsEmpty(Range(“$A$1”).Value) Then
    ’A1セル以外の入力、A1セルが空白の場合の処理
  Else
    ’IsNumericは数字かどうかを判定します。
    If IsNumeric(StrConv(Target.Value, vbNarrow)) Or  WorksheetFunction.IsNumber(Target.Value) Then
      ’数値の場合の処理
      MsgBox “数値です!”
    ElseIf Len(Target.Value) <> LenB(StrConv(Target.Value, vbFromUnicode)) Then
      ’全角がある場合の処理
      MsgBox “全角です!”
    Else
      ’それ以外の処理
      MsgBox “上記以外です”
    End If
  End If
End Sub


 

  • このエントリーをはてなブックマークに追加
  • Pocket
  • LINEで送る

SNSでもご購読できます。

コメントを残す

*