單元格内容轉為批注 - Excel程式區

[發問] 單元格内容轉為批注

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-12-5 00:24 | 顯示全部帖子

With [a1]
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=.Text
End With

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2010-12-6 22:48 | 顯示全部帖子

Sub YY()
For Each c In [a:a].SpecialCells(2)
With c
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=.Text
End With
Next
End Sub

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。