Excel VBA質問箱 IV

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

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


43228 / 76735 ←次へ | 前へ→

【38559】Re:繰り返し検索についての質問
回答  ハト  - 06/6/6(火) 13:42 -

引用なし
パスワード
   こんにちは

▼ゆっけ さん:
>お世話になっております。
>下記のコードを見て下さい

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

↑は他の方が指摘されてますので
その辺を整理すると↓のような感じですか?

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

0 hits

【38542】繰り返し検索についての質問 ゆっけ 06/6/6(火) 11:03 質問
【38548】Re:繰り返し検索についての質問 Jaka 06/6/6(火) 12:14 発言
【38564】修正 Jaka 06/6/6(火) 14:08 発言
【38549】Re:繰り返し検索についての質問 Statis 06/6/6(火) 12:16 発言
【38554】Re:繰り返し検索についての質問 ハチ 06/6/6(火) 12:45 発言
【38559】Re:繰り返し検索についての質問 ハト 06/6/6(火) 13:42 回答
【38570】Re:繰り返し検索についての質問 Kein 06/6/6(火) 14:42 回答
【38581】Re:繰り返し検索についての質問 ゆっけ 06/6/6(火) 16:55 お礼
【38584】Re:繰り返し検索についての質問 ゆっけ 06/6/6(火) 18:04 質問
【38614】Re:繰り返し検索についての質問 ハト 06/6/7(水) 11:14 発言
【38616】Re:繰り返し検索についての質問 ハチ 06/6/7(水) 13:13 発言
【38655】Re:繰り返し検索についての質問 ゆっけ 06/6/8(木) 6:50 お礼

43228 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free