Excel VBA如何檢查_含有註解格數量

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2020-8-7 22:00 | 顯示全部帖子

Sub zz()
Dim s$, c As Object
With ActiveSheet
For i = 1 To .Comments.Count
Set c = .Comments(i)
s = s & Chr(10) & "Comment " & i & Chr(10) & "Location " & c.Parent.Address(0, 0) _
& Chr(10) & "Contents " & Chr(10) & c.Text & Chr(10) & String(20, "*")
Next
End With
Debug.Print s
End Sub

複製代碼

2016猴年全勤獎章

2^#

發表於 2020-8-11 12:33 | 顯示全部帖子

回復 4# Andy2483
@Andy2483
幾天沒來, 沒想到有那麼多訊息, 首先我在 2#回帖時, 我基本沒有耐心去解讀你的代碼, 原本是想按主題 - Excel VBA如何檢查_含有註解格數量, 回覆一句代碼

複製代碼

但似乎對你實際需要沒甚幫助, 不如將之以物件形式表示出其屬性, 這就是我在2/F回帖目的。
@n7822123
多謝及佩服你在5/F的眼光
最後多謝GBKEE版大的各項提點。

靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。