標題: [發問] 單元格内容轉為批注 [打印本頁]

---

作者: ZHAOBP3    時間: 2010-12-4 23:50     標題: 單元格内容轉為批注

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

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

---

作者: oobird    時間: 2010-12-5 00:24

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

---

作者: ZHAOBP3    時間: 2010-12-6 22:32

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

---

作者: oobird    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)