EXCEL VBA 指定のセルにデータが入っているか確認します。

指定セルにデータが入っているか

    MsgBox ni指定セルに値が入っているか(ActiveSheet, "B2:C2,D4:D5")
'
'   機能　　　:  指定のセルにデータが入っているか確認します。
'
'    返り値　　:     TRUE　文字が入力されている。
'                    FALSE 空白（LEN(0)の文字列）
'
'    引き数　　:    ByRef wksTarget As Worksheet　対象のワークシート
'                   ByVal pstrセルの場所A1形式 As String　確認したいセルをA1形式で指定
'    機能説明　:   　-
'
'    備考　　　:     -
'
'    この関数のURL　　：https://pgbigoroku.hatenablog.com/entry/2022/08/22/165014
'
'    バージョン　　：2022/8/21
Public Function ni指定セルに値が入っているか(ByRef wksTarget As Worksheet, ByVal pstrセルの場所A1形式 As String)
    Dim varFor As Variant
    For Each varFor In wksTarget.Range(pstrセルの場所A1形式)
        If Len(varFor) > 0 Then
            ni指定セルに値が入っているか = True
            Exit Function
        End If
    Next
    ni指定セルに値が入っているか = False
End Function