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

我想要做的是有一個型號列表，列表旁邊是所有型號的部件號列表。我想要做的就是點擊一個模型，並將模型中的部分突出顯示，或對其進行一些更改以使其突出顯示。我認爲，通過繪製每個模型中的部件來設置這種方法有一種乏味的方式，但一旦完成，引用它們應該很容易。如果可能的話，我也想要退出列表。如果我點擊零件號碼，它會突出顯示特定零件的型號。預先感謝您的幫助。單擊一個單元格並突出顯示相關單元格

來源

2017-04-04 Richard Martin

你有沒有寫過任何代碼？如果是這樣，請發佈。除了一個想法之外，很難一起工作。 – user1274820

不，我很遺憾沒有代碼，我沒有在Excel中做過多的編碼，也沒有完全理解它的方法等 –

這是一個基本的例子。

這裏是指定範圍（你可以用直接引用來代替他們，如果你想）

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

來源

2017-04-04 20:09:13 user1274820

這是完美的，有我正在尋找的想法。然而，有沒有辦法做到這一點，而沒有列出模型旁邊的部分？我只想要兩個列表。有沒有辦法我們可以將它分成兩張？有一個像你在你的例子中，另一個只有兩個顯示突出部分的列表？ –

好吧，這是偉大的。那麼現在我在哪裏實現這個代碼？ –

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

回答

相關問題