Excel VBA質問箱 IV

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

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


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

43220 / 76732

←次へ　｜　前へ→


	【38564】修正

Jaka - 06/6/6(火) 14:08 -


	引用なし

	パスワード

良く解ってないけど、こうした方が良いかも。

For Each ws In ActiveWorkbook.Worksheets
　　If ws.Name = "CVPARTS" Then
　　　検索範囲 = "H:H"
　　ElseIf InStr(1, ws.Name, "ﾕﾆｯﾄﾏｽﾀｰ") <> 0 Then
　　　検索範囲 = "G:G"
　　Else
　　　検索範囲 = ""
　　End If
　　If 検索範囲 <> "" Then
　　　 With ws.Range(検索範囲)
　　　　　Set F = .Find(検索文字, , , xlPart, , , False, False)
　　　　　If Not F Is Nothing Then
　　　　　　 SavRow = F.Row
　　　　　　 Do
　　　　　　　　 ws.Cells(F.Row, 7).Interior.Color = RGB(0, 255, 0)
　　　　　　　　 Set F = .FindNext(CVr)
　　　　　　 Loop Until F.Row = SavRow
　　　　　End If
　　　 End With
　　End If
Next

訂正
>別シートに対して、FindNextは使えないと思います。
別シートに引き継いで、FindNextは使えないと思います。

2 hits

▼

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