...ing logging 3.0

指定した文字列を含むセルを検索する関数

VBA

Function FINDCELL(r As Range, str As String) As Object

    Dim theCell As Object
    Set theCell = r.Cells.Find(str, LookAt:=xlPart)
    If theCell Is Nothing Then
        Set FINDCELL = Nothing
    Else
        Set FINDCELL = theCell
    End If
    
End Function

ツイートする

Permalink | コメント(3) | トラックバック(0) | 00:59