返回列表 上一主題 發帖

[發問] Macro List

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2020-5-18 20:58 | 顯示全部帖子
本帖最後由 n7822123 於 2020-5-18 21:02 編輯

回復 1# PJChen


了解VBE架構就不難寫........基本上你應該只想要用而已

所以我不多做解釋，想了解請按 "F1"
  1. Sub 找巨集名稱()

  3. Application.DisplayAlerts = False

  5. [A1] = "活頁簿名稱"
  6. [B1] = "模組名稱"
  7. [C1] = "程序名稱"

  9. R = 2
  10. For Each wb In Workbooks
  11.   For Each VBC In wb.VBProject.VBComponents
  12.     Select Case VBC.Type
  13.       Case 1  '1=一般模組
  14.         LS = VBC.CodeModule.CountOfLines
  15.         'Debug.Print LS
  16.         LineStr = VBC.CodeModule.Lines(1, LS)
  17.         Lines = Split(LineStr, vbCrLf)
  18.         For Each Line In Lines
  19.             If Line Like "Sub*" Then
  20.               Cells(R, 1) = wb.Name
  21.               Cells(R, 2) = VBC.Name
  22.               Cells(R, 3) = Line
  23.               R = R + 1
  24.             End If
  25.         Next 'Line
  26.       Case Else
  27.     End Select
  28.   Next  'VBC
  29. Next 'wb

  31. Columns.AutoFit

  33. End Sub
複製代碼
找巨集名稱.rar (12.46 KB)
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題