Excel的VBA - 運行時錯誤「1004：Range類的選擇方法失敗

Question

我有以下Excel VBA代碼，

Private Sub Worksheet_Calculate() 
    myMacro 
End Sub 





Public Sub myMacro() 


    If Range("C4").Value = "Sales" Then 

      Range("E4:AB5").Select 
Selection.NumberFormat = "$#,##0.0" 


    Else 

      Range("E4:AB5").Select 
Selection.NumberFormat = "#,##0" 

    End If 

End Sub 

我的問題是從一個下拉菜單中的細胞‘C4’引用通過查找不同的工作表。每次我碰到下面的錯誤，

'run-time error '1004: Select method of Range class failed' and it does not work. 

如果從它的工作原理相同片單元「C4」的引用，但我需要從不同的表引用。

Answer 1

你的問題並不完全清楚，但如果你想查找C4在不同的片（我用Sheet2爲例），然後格式化activesheet（無需Select），你可以嘗試：

Public Sub myMacro() 
Dim ws As Worksheet 
Set ws = Sheets("Sheet2") 

If ws.Range("C4").Value = "Sales" Then 
    Range("E4:AB5").NumberFormat = "$#,##0.0" 
Else 
    Range("E4:AB5").NumberFormat = "#,##0" 
End If 

End Sub