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