Question

我目前正在使用以下代码标记Excel报告。

Public Function ApplySignOff(iSignatureOffset, sGroup As Integer)
Dim sDisplayName As String
Dim SingleSignOffCheck As String


sDisplayName = GetDisplayName(Environ("USERNAME"))
SingleSignOffCheck = Environ("USERDOMAIN") & "\" & Environ("USERNAME")

Application.ScreenUpdating = False

    Unprtsht
    ActiveCell.Value = sDisplayName & " (" & SingleSignOffCheck & "  " & Now & ")"

    Prtsht

Application.ScreenUpdating = True

End Function

我想将代码转换为UDF。基本上=UDFNAME(A1)。因此，如果A1不为空，则应用上面的图章。我尝试了多种不同的方法，但我认为我错过了一步。我将不胜感激任何帮助。

Answer 1

将ActiveCell.Value更改为函数名称

ActiveCell.Value = sDisplayName & " (" & SingleSignOffCheck & "  " & Now & ")"

到

ApplySignOff = sDisplayName & " (" & SingleSignOffCheck & "  " & Now & ")"

并将函数定义修改为

Public Function ApplySignOff(iSignatureOffset, sGroup As Integer) as String

然后如果它编译干净，你可以在工作表中使用= ApplySignOff（）

UDF用户名/时间戳

1 个答案: