如何在 VBA 的另一个函数中调用我在 VBA 中创建的函数？

Question

我在 VBA 中创建了一个函数，我想在我在 VBA 中创建的另一个函数中调用它。这样做的正确语法是什么？

这是我要调用的函数：

Function AlreadySigned()
Dim i As Integer
Dim j As Long
j = ActiveCell.Row - 1
Dim tmp As String
tmp = ActiveCell.Value
For i = 3 To j
    If Cells(i, 2).Value = tmp Then
        ActiveCell.Interior.ColorIndex = 3
    End If
Next i
End Function

在这个函数中：

Function AlreadyRegisterLoop()
Dim i As Integer
Dim j As Integer
j = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To j
    Cells(i, 2).AlreadySigned()
Next i
End Function

但在第 6 行有一个eror: syntax eror。

Answer 1

不完全确定您要做什么，但这不是调用函数的方式。

据我了解，我认为以下内容对您有用。

您应该传递一个 Range 对象并在函数中使用该 Range 对象而不是 Activecell

Function AlreadySigned(rn As Range)
Dim i As Integer
Dim j As Long
j = rn.row - 1
Dim tmp As String
tmp = rn.Value
For i = 3 To j
    If ActiveSheet.Cells(i, 2).Value = tmp Then
        rn.Interior.ColorIndex = 3
    End If
Next i
End Function


Function AlreadyRegisterLoop()
Dim i As Integer
Dim j As Integer
j = ActiveSheet.Cells(Rows.count, 1).End(xlUp).row
For i = 3 To j
    Call AlreadySigned(ActiveSheet.Cells(i, 2))
Next i
End Function

演示：