Function 在 VBA 但不在電子表格中運行

Question

我有一個我認為相對簡單的 function 我正在運行的地方，我基本上是想找出有人在隊列中等待回電的時間。 當我在 VBA 選項卡中時，它運行得很好，但是當我在電子表格中調用 function 時，我得到一個#REF。 錯誤。

    Function TIQ2()

    Dim time, count, i As Integer
    Dim TIQ
    time = 0
    count = 0

    NumRows = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown)).Rows.count + 1

    For i = 2 To NumRows
        If Sheet1.Range("c" & i) = "no" Or Sheet1.Range("c" & i) = "No" Then
    
            If Sheet1.Range("d" & i) = "No" Or Sheet1.Range("d" & i) = "no" Then
            time = time + Left(Sheet1.Range("g" & i), 2)
            count = count + 1
            Debug.Print time, count
        End If
    End If
  Next

  TIQ2 = WorksheetFunction.RoundUp(time / count, 0) & " minutes"
  Debug.Print TIQ2

End Function

Answer 1

嘗試更改此行。 一些 excel function 需要這個語法

 TIQ2 = WorksheetFunction.RoundUp(time / count, 0) & " minutes"

'-------------------
 TIQ2 =ThisWorkbook.Application.WorksheetFunction.RoundUp(time / count, 0) & " minutes"

Answer 2

Option Explicit

'Public Function fnHelloWorld()
'Function fnTIQ()
Function TIQ2()
    MsgBox "Hello World!"
End Function

Sub Test()
    Call TIQ2
End Sub

嘗試這個...

前兩個 function 聲明工作正常，但第三個不行。 #REF 錯誤是由於 TIQ2 function 名稱也是@EvR 所說的單元格引用而產生的。