VBA中活动单元格的select

我是VBA的新手，通过做练习来学习它，其中一个macros是将一个红框着色如果我点击一个macrosbutton。 我最初logging了一个macros来检查它用来做什么VBA代码

Sub MakeMeRed() ' ' MakeMeRed Macro ' With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 192 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 

我search了一下，发现有另一种方法来select活动单元格，所以我试图用这种方法来填充单元格。

 Sub TestMacro() ' ' TestMacro Macro ' With ActiveCell '.Value = "250" .Color = 200 End With End Sub 

但是这个代码不起作用，它不会填充选定单元格的颜色。 你能指出我要去哪里吗？

Answer 1

这里有2方法可以参考单元格内的颜色。

使用ActiveCell.Interior.ColorIndex和ActiveCell.Interior.Color 。 ActiveCell.Interior.Color可以得到4个不同的值。

 Sub TestMacro() With ActiveCell .Value = 1 .Interior.ColorIndex = 3 .Offset(1, 1) = 21 .Offset(1, 1).Interior.Color = RGB(255, 0, 0) .Offset(1, 2) = 22 .Offset(1, 2).Interior.Color = vbRed 'vbRed = 255 .Offset(1, 3) = 23 .Offset(1, 3).Interior.Color = "&HFF" 'FF = 255; &H is for typeinfo .Offset(1, 4) = 24 .Offset(1, 4).Interior.Color = 255 End With End Sub 

它看起来像这样：

Answer 2

等同于这两个，ActiveCell在该部分是第一个select。 要改变颜色，你需要在某处的内部部分滑动。 你可以With ActiveCell.Interior或.Interior.Color = 200 。