Excel VBA質問箱 IV

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

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


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

43240 / 76732

←次へ　｜　前へ→


	【38542】繰り返し検索についての質問

ゆっけ - 06/6/6(火) 11:03 -


	引用なし

	パスワード

お世話になっております。
下記のコードを見て下さい

Sub 組立図の関連()

Dim ws, ws2 As Worksheet
Dim Alfa As String
Dim Alfa_r, F, CVr As Range
Dim CV_r, st As Long

'CVPARTSシートのH列のなかで、組立図と名前のつくセルを検索
Set CVr = Worksheets("CVPARTS").Range("H:H").Find("組立図", , , xlPart, , , False, False)
If Not CVr Is Nothing Then

'"ﾕﾆｯﾄﾏｽﾀｰ"を含むWorkSheetsを検索
For Each ws In ActiveWorkbook.Worksheets
If InStr(1, ws.Name, "ﾕﾆｯﾄﾏｽﾀｰ") <> 0 Then
'ユニットマスタ -シートのG列のなかで､CVrとおんなじセルを検索
Set F = ws.Range("G:G").Find(CVr.Value, , , xlPart, , , False, False)
If Not F Is Nothing Then
'あったらそのセルに色をつける
ws.Cells(F.row, 7).Interior.Color = RGB(0, 255, 0)
　　　　　　　　
'上記のコードを繰り返す
st = CVr.row
Set CVr = Worksheets("CVPARTS").Range("H:H").FindNext(CVr)
Do While st <> CVr.row
For Each ws2 In ActiveWorkbook.Worksheets
If InStr(1, ws2.Name, "ﾕﾆｯﾄﾏｽﾀｰ") <> 0 Then
　　　　　　　　　　　　　　　　　　'
Set F = ws2.Range("G:G").Find(CVr.Value, , , xlPart, , , False, False)
If Not F Is Nothing Then
　　　　　　
ws2.Cells(F.row, 7).Interior.Color = RGB(0, 255, 0)
End If
End If
Next ws2
Set CVr = Worksheets("CVPARTS").Range("H:H").FindNext(CVr)
Loop
　　　　　
End If
End If
Next ws
End If
End Sub

条件検索を繰り返したいのですがうまくいきません。
どこかおかしい所を教えていただきたいです。
宜しくお願いいたします。

2 hits

▼

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

≪