歲的報告突然開始給出1004運行時錯誤

我不是程序員，所以我無法弄清楚什麼是錯的。請幫忙！這是正在使用的代碼：歲的報告突然開始給出1004運行時錯誤

'allcount = Application.WorksheetFunction.CountA(Sheets("All Billing").Range("A:A")) + 1 
ac = AllBill.Cells(allcount - 1, 1) 

For ar = 2 To SPA Step 1  
    'InvNum 
    AllBill.Cells(allcount, 1) = ac + 1 '<-- error appears on this line 

    'Date 
    cp = Display.Cells(ar, 2) 
    AllBill.Cells(allcount, 2) = cp 

    'InvMonth 
    AllBill.Cells(allcount, 3) = YrMoDisplay(cp)

來源

2014-07-17 Shelby

代碼不完整（您可以看到循環的開始，但不是結束）。請張貼正確的代碼部分。另外，如何設置「AllBill」？ – hnk

黑暗中的鏡頭：檢查'allcount'的值它可能是'0' –

看起來你已經將賦值賦值給'allcount'變量。如果該變量爲0（未分配的變量將計算爲0）或負值，則會出現錯誤1004。如果問題出在'AllBill'設置不正確，我會期待424對象需要的錯誤。所以可能這個問題與'allcount'有關。 –

刪除第一行'allcount'之前的撇號，這應該可以解決您的問題。

來源

2014-07-18 11:57:35

工作！非常感謝！！ – Shelby

你能點擊左邊的勾號來標記這個問題的答案。很高興我能幫上忙：） –

歲的報告突然開始給出1004運行時錯誤

回答

相關問題