Excel VBAでISTEXT関数を使って文字かどうか判断する

Excel VBAでワークシート関数の「ISTEXT」を使って文字列かどうか判断する記録です。

下図はExcel2016です。

VBAでistext関数

 

< スポンサーリンク >

 

書き方

WorksheetFunction.IsText(Arg1)

値の種類をチェックし、その値がTEXTを参照しているかどうかに応じて、TRUEまたはFALSEを返します。

Arg1=必須。テストする値を指定します。引数には空白セル、エラー値、論理値、文字列、数値、セル参照、または対象となるデータを参照する名前を指定することができます。

 

A1のセルの値が文字かどうかをメッセージで表示します。※文字列なので「True」が表示されます。

Sub test()
    MsgBox WorksheetFunction.IsText(Range("A1"))
End Sub

VBAでistext関数

VBAでistext関数

 

A7のセルの値が文字かどうかをメッセージで表示します。※数値なので「False」が表示されます。

Sub test()
    MsgBox WorksheetFunction.IsText(Range("A7"))
End Sub

VBAでistext関数

VBAでistext関数

 

A列の1~8行目のセルの値を文字かどうか判断し、B列に結果を入力します。

Sub test()
    Dim ws As Worksheet
    Dim i As Long

    '変数にアクティブシートをセット
    Set ws = ActiveSheet

    'A列を文字かどうかチェックしてB列に結果を入力
    For i = 1 To 8
        With ws
            If WorksheetFunction.IsText(.Cells(i, 1)) = True Then
                .Cells(i, 2).Value = "文字"
            Else
                .Cells(i, 2).Value = "文字ではない"
            End If
        End With
    Next i
End Sub

VBAでistext関数

VBAでistext関数

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ