VBA根据另一个单元格格式化单元格不起作用

Question

已解决：发现我自己的工作表错误 我遇到的问题是尝试在同一个工作簿中使用两个 worksheet_change 事件。因为我认为这是可能的，所以当我收到错误时，我只是重命名了有问题的工作表事件，没有考虑它。当与我的其他 worksheet_change 事件结合使用时，我的原始代码和提供的答案都有效。 谢谢大家。

原始请求：

我正在尝试运行执行此操作的宏：

每次单元格 r6 发生变化时，运行一个宏来查看单元格 s9 中的值是 > 还是

我有自己的宏来做第二部分：

sub macro1()
If Range("S9").Value < 1 Then
      Range("S9:S100,T9:T100").Select
    Selection.NumberFormat = "0.0%"
Else
        Range("S9:S100,T9:T100").Select
      Selection.NumberFormat = "#,##0"
End If
end sub

此宏自行运行，完全按照我的意愿运行，并格式化单元格。

然后我有工作表事件来调用该宏：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$6" Then
Call Macro1
End If
End Sub

当它运行以调用相同的宏时，它不会格式化单元格。无论单元格 r6 何时发生变化，它们都保持为 %。

任何想法为什么工作表事件导致宏不起作用？

Answer 1

尝试将工作表对象传递给您的宏。这完全符合Ranges 的要求，以确保您在正确的领域工作。

另外，您根本不需要Select。只需使用范围并直接更改设置即可。

Public Sub Macro1(ws as Worksheet)
    If ws.Range("S9").Value < 1 Then
        ws.Range("S9:S100,T9:T100").NumberFormat = "0.0%"
    Else
        ws.Range("S9:S100,T9:T100").NumberFormat = "#,##0"
    End If
end sub

Sub test()
    Macro1 ActiveSheet
End Sub

在你的Worksheet_Change...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$R$6" Then
        Macro1 Target.Worksheet
    End If
End Sub