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

　暱稱: 洞平
　頭銜: 中学生

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-12-4 23:50 | 只看該作者

本帖最後由 Hsieh 於 2010-12-5 00:17 編輯

请问可否用VBA程式做到把一列单元格的内容转为该列相应单元格的批注,如A1中是A+B,批注也变为A+B

趙伯平

　頭銜: 街友一族

論壇貢獻勳章

4^#

發表於 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

　暱稱: 洞平
　頭銜: 中学生

論壇贊助勳章

3^#

發表於 2010-12-6 22:32 | 只看該作者

感谢解答,我想把一列的单元格或是一个单元格区域的单元格的内容都转成批注,不是只是一个单元格,请再帮我

趙伯平

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2010-12-5 00:24 | 只看該作者

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

靜思自在 : 要比誰更受誰．不要比誰更怕誰。