用戶定義類型未定義錯誤

嗨，我很新的VBA Excel編程。我不斷收到「用戶定義的類型未定義」錯誤。我到處搜索，找不到我的具體問題的答案。很多解決方案都需要添加引用，這似乎不適用於我的情況。計算正確返回，但錯誤消息讓我瘋狂！最後的宏調用也沒有發生。用戶定義類型未定義錯誤

Function MinutesOver(duration, start_time, end_time) 

     If Not (duration = "") Then 
     If ((duration * 60) > 600) Or (((duration * 60) + (start_time * 24 * 60)) > (TimeValue("17:00:00") * 24 * 60)) Then 
      MinutesOver = (duration * 60) - ((end_time - start_time) * 24 * 60) 
     Else 
      MinutesOver = "" 
     End If 
     Else 
     MinutesOver = "" 
     End If 

     Call AddRowDeleteConstants 

    End Function

我甚至試圖做出更簡單的版本，但我仍然得到相同的錯誤。

Function MinutesOver(duration As Integer) 
     MinutesOver = duration 
    'Call AddRowDeleteConstants 
    End Function

任何反饋，將不勝感激。謝謝。

Sub AddRowDeleteConstants() 
     'On Error GoTo NoConstants 
     With ActiveCell.EntireRow 
     .Copy 
     .Insert Shift:=xlDown 
     .SpecialCells(xlCellTypeConstants).ClearContents 
     End With 
    Exit Sub 

    'NoConstants: 
    'MsgBox "There were no constants to delete" 
    End Sub

來源

2011-06-10 min_123

什麼是AddRowDeleteConstants？什麼是錯誤？（如果你不能告訴，按功能MinutesOver（..線上的f9設置一個斷點，運行呼叫，當打破以運行下一行時按F8） – 2011-06-10 16:42:55

我用F8一路走過它，錯誤doesn直到完成後纔會發生（在它到達End Function行後）AddRowDeleteConstants看起來像這樣： – 2011-06-10 16:57:32

我來跑，沒有錯誤的功能，但是......

用戶自定義函數不能修改其他細胞。在致AddRowDeleteConstants的調用中，無論它是否錯誤，命令Copy,Insert和PasteSpecial都不做任何事情，因爲它們實際上是從用戶定義的函數中調用的。

來源

2011-06-10 22:57:40

謝謝，對於這些信息我可以住在這個錯誤中，但是由於從用戶定義函數修改其他單元是不可能的，所以我將不得不提出一個不同的計劃。 – 2011-06-11 17:29:40

-1

我沒有得到任何錯誤與您的代碼，但也許你需要給你的函數的類型？

Function MinutesOver(duration As Integer) as Integer

只是一個猜測...

來源

2011-06-10 17:50:29

這似乎也不起作用，仍然得到相同的錯誤：:( – 2011-06-10 17:54:21

這個「猜測」是完全不相關的，沒有用處...... -1 – 2011-06-11 13:43:16

用戶定義類型未定義錯誤

回答

相關問題