12
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
4# 跳轉到 »
發表於 2020-8-10 07:58 | 只看該作者
本帖最後由 Andy2483 於 2020-8-10 07:59 編輯

回復 2# ikboy


ikboy前輩您好
1.測試結果跟想要的結果不一樣,Andy沒有表達清楚!抱歉
2您提供的程式碼沒看過 感覺很艱深!恐怕不是Andy這等學淺的看得懂的
   如果您有空 請再指導 標註一下程式碼的意思 謝謝您
3.上傳範例檔表達情境,請前輩們再指導
20200810_1.rar (12.44 KB)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
3#
發表於 2020-8-7 22:29 | 只看該作者
回復 2# ikboy
收到 謝謝前輩指導
星期一才有辦法用PC做測試 學習
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2020-8-7 22:00 | 只看該作者
  1. Sub zz()
  2. Dim s$, c As Object
  3. With ActiveSheet
  4.     For i = 1 To .Comments.Count
  5.         Set c = .Comments(i)
  6.         s = s & Chr(10) & "Comment " & i & Chr(10) & "Location " & c.Parent.Address(0, 0) _
  7.         & Chr(10) & "Contents " & Chr(10) & c.Text & Chr(10) & String(20, "*")
  8.     Next
  9. End With
  10. Debug.Print s
  11. End Sub
複製代碼

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題