VBA運行時錯誤1004 object_global的範圍失敗

Question

如果單元格的值不等於0，那麼它會加起來，X = X + 1，這樣我就可以看到我需要打印多少頁。我不確定這是否是最好的方式，但這是迄今爲止我所擁有的。 需要所有幫助！這只是工作的一個側面項目，所以時間不是問題。我也在Excel中創建了這個。

Sub Find_Pages_to_Print() 

    Sheets("Invoice").Select 

    Dim X As Integer 
    If Not Range("D9").Value = 0 Then 
    X = X + 1 



    If Not Range("D41").Value = 0 Then 
    X = X + 1 


     If Not Range("D70").Value = 0 Then 
     X = X + 1 


      If Not Range("D100").Value = 0 Then 
      X = X + 1 
      Else: 
      X = X + 0 



       If Not Range("D131").Value = 0 Then 
       X = X + 1 


        If Not Range("D161").Value = 0 Then 
        X = X + 1 


         If Not Range("191").Value = 0 Then 
         X = X + 1 
         Else: 
         X = X + 0 



          If Not Range("D221").Value = 0 Then 
          X = X + 1 


          End If 
         End If 
        End If 
       End If 
      End If 
     End If 
    End If 
End If 

MsgBox "Sets to Print: " & X 
End Sub 

Answer 1

的問題是在行：

If Not Range("191").Value = 0 Then

你可能想

If Not Range("D191").Value = 0 Then