web-dev-qa-db-ja.com

Excel VBAの検索機能からセルアドレスを取得する方法

検索機能を使用してセルアドレスを取得するにはどうすればよいですか。

これがコードです

Dim Found As Range

Set Found = Worksheets("Sheet 1").Cells.Find(What:="test", LookAt:=xlWhole, MatchCase:=True)

If Not Found Is Nothing Then
    ' do something
End If

コードをデバッグすると、「Found」変数にセルアドレスではなく「string」が含まれます。

excelvbafind
4
Randy Adhitama

found.address文字列として表示されますが。以下のコードは私のために働いた。

Sub findCellAddress()

    Dim ra As Range

    Set ra = Cells.Find(What:="fff", LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)

    If ra Is Nothing Then
        MsgBox ("Not found")
        Else
        MsgBox (ra.Address)
    End If

End Sub
6
nightcrawler23