|
>組立図と名前のつくセル
と書くと 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
|
|