根據單元格中的文本值設置范圍內單元格的對齊方式

Question

我是 VBA 新手，我有一個電子表格，如果單元格中的值等於“本月總計：”，我試圖將文本格式設置為右對齊。 我只需要它為工作簿中的 Worksheet1 工作。 如果單元格 C3 中的值發生變化，我希望代碼查看 B 列中的所有單元格並找到任何等於“本月總計：”的值，然后將其右對齊。 但是，我的代碼不起作用。 當我修改單元格 C3 時，沒有任何反應。

我的代碼如下：

Dim SrchRng As Range, cel As Range

Set SrchRng = Range("$B1:$B1000")

If Target.Address = "C3" Then

For Each WS In Worksheets  
    With WS
        For Each cel In SrchRng  
            If InStr(1, cel.Value, "Total For The Month: ") > 0 Then  
                cel.HorizontalAlignment = xlRight  
            End If  
        Next cel  
    End With  
    Next WS  

End If

End Sub

Answer 1

由於我不知道如何在評論中添加屏幕截圖，因此我決定將其作為答案：

當您創建一個宏並希望確保它被執行（或某行被執行）時，您可以在 VBA 編輯器中添加一個斷點，正如您在此屏幕截圖中看到的（只需單擊左邊距即可添加斷點）：

如果要執行代碼，VBA 編輯器會在那里暫停。 如果不是，則不執行這段代碼。