Code:
Function the COMMENT (x As String, Optional y As String, Optional z As Boolean)
If the Range (x). COMMENT Is Nothing Then
The Else
Range (x). ClearComments
End the If
If IsMissing (y) Then
Z=False
End the If
If IsMissing (y) Then
Range (x). AddComment
Range (x). The COMMENT. The Visible=z
Range (x). The COMMENT. The Text Text:="add comments"
The Else
Range (x). AddComment
Range (x). The COMMENT. The Visible=z
Range (x). The COMMENT. The Text Text:=y
End the If
End the Function
https://download.csdn.net/download/weixin_42647208/11522157
CodePudding user response:
Later will have the opportunity to custom some useful formulaCodePudding user response:
Much, I learn office functions are brother feel??