Excel VBA質問箱 IV

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

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


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

43172 / 76732

←次へ　｜　前へ→


	【38614】Re:繰り返し検索についての質問

ハト - 06/6/7(水) 11:14 -


	引用なし

	パスワード

おはようございます

FindNextのところで誤解なされているようです

>　　　　　Set R = ws.Range(検索範囲).Find(検索文字, , , xlPart, , , False, False)
↑1.

>　　　　　If Not R Is Nothing Then
>　　　　　　
>　　　　　　 Savrow = R.row
>　　　　　　
>　　　　　　
>　　　　　　 Do
>　　　　　　　　　ws.Cells(R.row, 7).Interior.Color = RGB(0, 255, 0)
>　　　　　　　　　値 = ws.Cells(R.row, 7).Offset(, -4).Value
　　　　　　　　　 Set 値1 = ws.Range("C:C").Find(値, , , xlPart, , , False, False)
↑2.
>　　　　　　　　　If Not 値1 Is Nothing Theｎ
>　　　 ws.Range(ws.Cells(値1.row, 3), ws.Cells(値1.row, 3)). _
>　　　 Interior.Color = RGB(0, 255, 0)
>　　　　　　　　　　
>　　　　　　　　　End If
>　　　　　　　　　Set R = ws.Range(検索範囲).FindNext(R)
↑3.
>　　　　　　
>　　　　　　 Loop Until R.row = Savrow

FindNextは前回のFindの検索条件で行われます
3.のFindNextは1.のFindではなく、2.のFindの検索条件で検索しているんです
（検索文字ではなく値で検索）
ここが意図されているのと違っているところではないでしょうか

2 hits

▼

【38542】繰り返し検索についての質問 ゆっけ 06/6/6(火) 11:03