|
理解して使ってイませんが...。
Dim Fcl As Range, FindSt As String
FindSt = 5.001
With ActiveSheet.Cells
Set Fcl = .Find(FindSt, After:=Cells(Rows.Count, Columns.Count), LookAt:=xlWhole, MatchCase:=True, MatchByte:=True)
If Not Fcl Is Nothing Then
Fcl.Select
'Set Fcl = .FindNext(After:=Fcl)
End If
End With
Dim Fcl As Range, FindSt As String
FindSt = 5.001
With ActiveSheet.Range("A1:J30")
Set Fcl = .Find(FindSt, After:=Range("J30"), LookAt:=xlWhole, MatchCase:=True, MatchByte:=True)
If Not Fcl Is Nothing Then
Fcl.Select
'Set Fcl = .FindNext(After:=Fcl)
End If
End With
普段は、数字の丸めを気にしなければ、手抜きでこんだけで済ませちゃします。
Set Fcl = .Find(FindSt, After:=Range("J30"), LookAt:=xlWhole, MatchCase:=True)
|
|