用户名/时间戳的UDF
用户名/时间戳的UDF
提问于 2014-06-11 19:27:00
我目前正在使用下面的代码在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不是空的，那么应用上面的邮票。我尝试过多种不同的方法，但我想我错过了一步。我很感谢你的帮助。
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-06-11 20:04:29
将ActiveCell.Value更改为函数的名称
ActiveCell.Value = sDisplayName & " (" & SingleSignOffCheck & " " & Now & ")"至
ApplySignOff = sDisplayName & " (" & SingleSignOffCheck & " " & Now & ")"并将函数定义修改为
Public Function ApplySignOff(iSignatureOffset, sGroup As Integer) as String如果它编译干净，则可以在工作表中使用=ApplySignOff()
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/24171030
复制相关文章
相似问题
腾讯云开发者
