Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71064 / 76734

←次へ　｜　前へ→


	【10169】Re:Findメソッド

Jaka - 04/1/9(金) 13:17 -


	引用なし

	パスワード

理解して使ってｲませんが．．．。

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)

1 hits

▼

【10155】Findメソッド クレア 04/1/9(金) 10:07