http://www.FunP.Net/560791
問題
1.希望當D欄儲存格只要有值時，可以自動將E欄的儲存格內容，完全插入D欄儲存格成為註解。
2.但因D欄是否有值為不規則，所以只要D欄有值就插入E欄註解，無值就跳過。
求解~~~~~~非常感謝!!!
excel vba 自動插入註解?
2016-02-18 12:53 pm
回答 (2)
2016-02-22 1:39 am
✔ 最佳答案
.Sub AddCom()
'
For i = 2 To [A65536].End(3).Row
If Cells(i, 4) <> "" Then
If Not Cells(i, 4).Comment Is Nothing Then Cells(i, 4).Comment.Delete
Cells(i, 4).AddComment
Cells(i, 4).Comment.Visible = False
Cells(i, 4).Comment.Text Text:=Cells(i, 5).Value
End If
Next
'
End Sub
或
Sub AddCom()
'
For Each c In [D2].Resize([A65536].End(3).Row - 1)
If c <> "" Then
If Not c.Comment Is Nothing Then c.Comment.Delete
c.AddComment
c.Comment.Visible = False
c.Comment.Text Text:=c(1, 2).Value
End If
Next
'
End Sub
2016-02-19 4:02 am
可以使用錄製巨集方式取得程序然後再修改所需
收錄日期: 2021-05-04 02:04:14
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160218045313AAi2Wp0