標題: (已解決)註解內容怎麼依次擷取多各儲存格 [打印本頁]

---

作者: freeffly    時間: 2011-5-12 12:37     標題: (已解決)註解內容怎麼依次擷取多各儲存格

本帖最後由 freeffly 於 2012-2-22 17:02 編輯

我現在試一各一各儲存格弄上去
有比較簡潔的方式嗎
[attach]6143[/attach]

---

作者: GBKEE    時間: 2011-5-12 13:25

回復 1# freeffly

1. Sub Ex()
   
2.     Dim A
   
3.     A = Application.Transpose([D1:D15].Value)
   
4.     A = Join(A, Chr(10))
   
5.     Range("A1").Comment.Text A
   
6. End Sub

複製代碼

---

作者: chin15    時間: 2011-5-12 13:30

Sub commetxt()
    a = Join(Application.Transpose([d1:d15]), vbLf)
    '[a1].AddComment
    [a1].Comment.Text Text:=a

End Sub

---

作者: GBKEE    時間: 2011-5-12 16:05

不管指定儲存格的註解存不存在

1. Sub Ex()
   
2.     Dim A
   
3.     A = Application.Transpose([D1:D15])
   
4.     A = Join(A, Chr(10))
   
5.     With Range("A1")
   
6.        If .Comment Is Nothing Then .AddComment
   
7.        .Comment.Text A
   
8.     End With
   
9. End Sub

複製代碼

---

作者: freeffly    時間: 2011-5-13 17:56

謝謝各位大大的修改
又學到新的方法

GBKEE 大也弄出了一各我想知道的方式
"不管指定儲存格的註解存不存在"
真是感謝

---

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