Excel VBA質問箱 IV

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

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


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

43217 / 76735

←次へ　｜　前へ→


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

Kein - 06/6/6(火) 14:42 -


	引用なし

	パスワード

>組立図と名前のつくセル
と書くと Range("組立図") の意味になります。エクセルではセル範囲に
このように名前を付けることができますから、基本を知っている人には
誤解を与えます。で「"CVPARTS"シートのH列に、"組立図"という値が
見つからなかったら、処理を止める」ということにすれば、もっとすっきり
します。あと、Findのループ処理の代わりに、数式で検索する方法も取り入れて

Sub 組立図の関連()
　 Dim WS As Worksheet
　 Dim FR As Range
　 Dim MyV As String

　 Set FR = Worksheets("CVPARTS") _
　 .Range("H:H").Find("*組立図*", , , xlPart)
　 If FR Is Nothing Then
　　　MsgBox "CVPARTSシートに組立図の文字列が見つかりません", 48
　　　Exit Sub
　 Else
　　　MyV = FR.Value: Set FR = Nothing
　 End If
　 For Each WS In Worksheets
　　　If WS.Name Like "*ﾕﾆｯﾄﾏｽﾀｰ*" Then
　　　　 On Error Resume Next
　　　　 With WS.Range("G1", WS.Range("G65536").End(xlUp)).Offset(, 26)
　　　　　　.Formula = "=FIND(" & MyV & ",$G1)"
　　　　　　.SpecialCells(3, 1).Offset(, -26) _
　　　　　　.Interior.Color = RGB(0, 255, 0)
　　　　　　.ClearContents
　　　　 End With
　　　End If
　 Next
End Sub　

0 hits

▼

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