Excel VBA偏移量，不激活单元格

我正试图改变一个细胞的颜色。我有一个代码可以阻止一个黑背景的单元格被激活。这工作得很好，但是我想在按钮点击事件中将其中一些单元格的背景更改为红色

单击按钮时，我希望它周围的所有单元格都变为红色。由于无法选择单元格，我无法执行此操作。如果我使用Range（“A1”）.Value=“Hi”（这是一个黑色背景的单元格），Hi会出现在那里，我想这是因为我没有激活单元格，只是更改了它的值

是否有一种方法可以在不激活/选择这些单元格的情况下从活动单元格偏移并更改其周围单元格的颜色

工作表中的代码\u选择更改为：

'Stops users selecting a Black cell. If they try they are returned to     their previous cell

If Target.Cells(1, 1).Interior.ColorIndex = 1 Then 
   OldRange.Select  
    'MsgBox "H" 
Else 
    Set OldRange = Target 
End If 

单击按钮时，我的代码是：

If Range("AL7").Value = "Bomb" Then 
 MsgBox "BOOM, BANG, KABOOM!!" 
ActiveCell.Interior.ColorIndex = 3 

ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Select 
ActiveCell.Interior.ColorIndex = 3 

ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate 
ActiveCell.Interior.ColorIndex = 3 

ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Activate 
ActiveCell.Interior.ColorIndex = 3 

ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Activate 
ActiveCell.Interior.ColorIndex = 3 

---

您不必选择一个单元格来更改其属性，实际上这被认为是一种不好的做法，并且充满了许多人意料之外的后果

相反，您可以这样做：

ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Interior.ColorIndex = 3

---

并让焦点停留在您所在的单元格中。

您不能只执行“ActiveCell.Offset（0,1）.interior.colorindex=3”吗？可能与Fantastic重复！非常感谢。