excel vba 自動插入註解?

2016-02-18 12:53 pm

http://www.FunP.Net/560791

問題
1.希望當D欄儲存格只要有值時，可以自動將E欄的儲存格內容，完全插入D欄儲存格成為註解。
2.但因D欄是否有值為不規則，所以只要D欄有值就插入E欄註解，無值就跳過。

求解~~~~~~非常感謝!!!

回答 (2)

Daniel

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

👍 0 👎 0

先生

2016-02-19 4:02 am

可以使用錄製巨集方式取得程序然後再修改所需

👍 0 👎 0

收錄日期: 2021-05-04 02:04:14
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160218045313AAi2Wp0

檢視 Wayback Machine 備份