應我好朋友的需求,寫了一段加批注的自定義公式,喜歡的可以拿去用
,用問題的地方還請多加批評。
代碼:
Function COMMENT(x As String, Optional y As String, Optional z As Boolean)
If Range(x).COMMENT Is Nothing Then
Else
Range(x).ClearComments
End If
If IsMissing(y) Then
z = False
End If
If IsMissing(y) Then
Range(x).AddComment
Range(x).COMMENT.Visible = z
Range(x).COMMENT.Text Text:="添加注釋"
Else
Range(x).AddComment
Range(x).COMMENT.Visible = z
Range(x).COMMENT.Text Text:=y
End If
End Function
https://download.csdn.net/download/weixin_42647208/11522157
uj5u.com熱心網友回復:
之后還會有機會自定義一些有用的公式uj5u.com熱心網友回復:
厲害了大佬,感覺我學的office函式都是弟弟??轉載請註明出處,本文鏈接:https://www.uj5u.com/caozuo/64242.html
上一篇:【求助】conda指令例外
