VBA：插入註解；RANGE.COMMENT

	Sub STRCOMMENT(SHEET_NAME, RANGE_TARGET, Str_COMMENT)
	With Sheets(SHEET_NAME).Range(RANGE_TARGET)
	If Not .Comment Is Nothing Then .Comment.Delete
	If Len(Str_COMMENT) > 0 Then
	.AddComment
	.Comment.Text Text:=Str_COMMENT
	End If
	End With
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

最近在練習寫儲存格註解，改成副程式，免得占用程式碼版面。

先來MSDN一下，註解是RANGE的屬性之一 ，MSDN的說明。

小編寫的副程式有3個參數要設定，分別是"SHEET_NAME, RANGE_TARGET, Str_COMMENT"。

SHEET_NAME：工作表表名

RANGE_TARGET：儲存格位置，如A1、A2不可以用CELLS位置控制

Str_COMMENT：要註解的內容

透過WITH~END WITH做物件引用，然後若判定有註解則先刪除，在寫入新的註解。