Question

我想找一些VBA代码，当我在工作表上的单元格中单击它时，它会将单元格更改为黄色。然后让我说我不希望细胞变黄，我可以右键单击它会改变回来。我不确定它是否可能。

Answer 1

以下是有效的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)    
   Call ChangeCellColor(Target, 6)       
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
                                       Cancel As Boolean)
   Call ChangeCellColor(Target, xlNone)      
End Sub

Private Sub ChangeCellColor(Target As Range, CLR As Integer)    
   Selection.Interior.ColorIndex = CLR      
End Sub

Answer 2

这里是将改变模式的代码（这是条纹灰色）

With Selection.Interior
    .Pattern = xlLightUp
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -4.99893185216834E-02
    .PatternTintAndShade = 0
End With

当我不知道VBA脱离我的头脑时，我会去Excel，View，Macros，Record New Macro ..

然后我在Excel中进行了我想要的更改，然后我返回并关闭宏。最后，我去查看宏..和bam！我正在寻找的代码是为我生成的。

Excel - 通过单击更改单元格的模式

2 个答案: