单击一个单元格并突出显示相关单元格

Question

我想要做的是有一个型号列表，列表旁边是所有型号的部件号列表。我想要做的就是点击一个模型，并将模型中的部分突出显示，或对其进行一些更改以使其突出显示。我认为，通过绘制每个模型中的部件来设置这种方法有一种乏味的方式，但一旦完成，引用它们应该很容易。如果可能的话，我也想要退出列表。如果我点击零件号码，它会突出显示特定零件的型号。预先感谢您的帮助。

Answer 1

这是一个基本的例子。

这里是指定范围（你可以用直接引用来代替他们，如果你想）

例子：修改Range("PartList")到Range("G2:G7")

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Range("PartList").Interior.ColorIndex = xlNone 
Range("A2:A4").Interior.ColorIndex = xlNone 
If Target.CountLarge <> 1 Then Exit Sub 
If Not Intersect(Target, [A2:A4]) Is Nothing Then 
    Dim z, Finder 
    For Each z In Intersect(Target.EntireRow, Range("ModelList")) 
     Set Finder = Nothing 
     Set Finder = Range("PartList").Find(z.Value, lookat:=xlWhole) 
     If Not Finder Is Nothing Then Finder.Interior.Color = RGB(180, 230, 180) 
    Next z 
ElseIf Not Intersect(Target, Range("PartList")) Is Nothing Then 
    For Each z In Range("ModelList") 
     'Continue would be nice but in this case we will just color it repeatedly 
     If z.Value = Target.Value Then Cells(z.Row, "A").Interior.Color = RGB(180, 230, 180) 
    Next z 
End If 

我们创建一个零件清单并将其命名为PartList

我还创建了一个模型列表并命名它们的部分ModelList。

当我们改变选择，我们清除列表中的颜色。

如果他们点击只剩一个格...

如果电池是我们的模型范围内A2:A4，我们搜索所有与该模型相关联的部件和它们上色的绿色。

如果他们在我们的PartList范围内点击，我们会查看我们的型号列表和颜色列A绿色（如果找到该零件）。