单击一个单元格并突出显示相关单元格
我想要做的是有一个型号列表,列表旁边是所有型号的部件号列表。我想要做的就是点击一个模型,并将模型中的部分突出显示,或对其进行一些更改以使其突出显示。我认为,通过绘制每个模型中的部件来设置这种方法有一种乏味的方式,但一旦完成,引用它们应该很容易。如果可能的话,我也想要退出列表。如果我点击零件号码,它会突出显示特定零件的型号。预先感谢您的帮助。单击一个单元格并突出显示相关单元格
这是一个基本的例子。
这里是指定范围(你可以用直接引用来代替他们,如果你想)
例子:修改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
绿色(如果找到该零件)。
这是完美的,有我正在寻找的想法。然而,有没有办法做到这一点,而没有列出模型旁边的部分?我只想要两个列表。有没有办法我们可以将它分成两张?有一个像你在你的例子中,另一个只有两个显示突出部分的列表? –
好吧,这是伟大的。那么现在我在哪里实现这个代码? –
你有没有写过任何代码?如果是这样,请发布。除了一个想法之外,很难一起工作。 – user1274820
不,我很遗憾没有代码,我没有在Excel中做过多的编码,也没有完全理解它的方法等 –