Question

如果我能够解释得很好，这就是我想要做的事情。我可以通过选择A列来清除某些细胞。

Column A is a lookup cell called "equipment".
Column B is diameter
Column C is length
Column D is thread type
Column E is Fuel Type

因此，如果他们选择"Hose" in column 1，我希望他们完成B / C / D栏，但E会被涂黑色

因此，如果他们选择"Generator" in column 1，我希望他们完成E栏，B / C / D栏被涂黑。

有什么建议吗？

Answer 1

您可以尝试这样的事情......

将以下代码放在Sheet Module上。为此，右键单击工作表标签 - ＆gt;查看代码并将下面给出的代码粘贴到打开的代码窗口中 - ＆gt;关闭VB编辑器 - ＆gt;将工作簿另存为启用宏的工作簿。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Dim r As Long
If Target.Column = 1 And Target.Row > 1 Then
    r = Target.Row
    Range("B" & r & ":E" & r).Interior.ColorIndex = xlNone
    Select Case Target.Value
        Case "Hose"
            With Cells(r, "E")
                .Interior.Color = vbBlack
                .Font.Color = vbBlack
            End With
        Case "Generator"
            With Range("B" & r & ":D" & r)
                .Interior.Color = vbBlack
                .Font.Color = vbBlack
            End With
    End Select
End If
End Sub

使用查找条目从单元格更改单元格格式（黑屏）

1 个答案: