UDF用于用户名/时间戳

我目前使用下面的代码来标记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（）