| |
こんにちは
▼ゆっけ さん：
>お世話になっております。
>下記のコードを見て下さい
>条件検索を繰り返したいのですがうまくいきません。
>どこかおかしい所を教えていただきたいです。
>宜しくお願いいたします。
↑は他の方が指摘されてますので
その辺を整理すると↓のような感じですか？
Sub Test_Loop()
Dim ws As Worksheet
Dim CVr As Range
Dim F As Range
Dim st As Long
Dim st2 As Long
Dim i As Integer
Dim TCvr() As String
Set CVr = Worksheets("CVPARTS").Range("H:H").Find("組立図", , , xlPart, , , False, False)
If Not CVr Is Nothing Then
st = CVr.Row
i = 0
Do
ReDim Preserve TCvr(i)
TCvr(i) = CVr.Value
Set CVr = Worksheets("CVPARTS").Range("H:H").FindNext(CVr)
i = i + 1
Loop While st <> CVr.Row
For i = 0 To UBound(TCvr)
For Each ws In ActiveWorkbook.Worksheets
If InStr(1, ws.Name, "ﾕﾆｯﾄﾏｽﾀｰ") <> 0 Then
Set F = ws.Range("G:G").Find(TCvr(i), , , xlPart, , , False, False)
'''''↑は xlPart じゃなく xlWhole では？
If Not F Is Nothing Then
st2 = F.Row
Do
ws.Cells(F.Row, 7).Interior.Color = RGB(0, 255, 0)
Set F = ws.Range("G:G").FindNext(F)
Loop While st2 <> F.Row
End If
End If
Next ws2
Next i
End If
End Sub
|
|
ハト
- 06/6/6(火) 13:42 -
