Question

我有一个看起来像这样的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Me.sheets("WAM Data").Range("BY5:HW35").Interior.Color = Me.sheets("WAM  
Exception").Range("BO7:HM37").Interior.Color
End Sub

但是它在代码中给出了错误。

我想做的是，将"BY5 to HW35"的单元格格式（颜色）更改为"BO7:HM37"。如果有人可以帮助，那就太好了。

Answer 1

将Me.Sheets ....更改为Activeworkbook.Sheets ....

Answer 2

您可以删除me.并仅使用Sheets...，或使用ActiveWorkbook.Sheets..引用活动工作簿，或使用ThisWorkbook.Sheets...引用运行宏的工作簿，或Workbooks("name").Sheets...从打开的工作簿中选择所需的工作簿。

但是，无论您的电子表格在何处发生，您的宏都将在第一次单击鼠标时运行，而没有附加任何条件……这是您想对代码执行的操作吗？

用于单元格格式的VBA代码链接到工作簿中的另一张工作表

2 个答案: