單擊一個單元格並突出顯示相關單元格

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綠色（如果找到該零件）。