| |
▼でじ さん：
>ﾌｧｲﾙ数･ｼｰﾄ数も多いので機械的に調べる方法があれば
>教えて頂けるでしょうか？
フォームツールのボタンのみですが。
ブックの最後にシートを追加して列挙します。
どのモジュールなのかの情報はいれていませんが。
（いれるには面倒なことをしなければいけないので）
Sub Test()
Dim cb As Button
Dim shF As Worksheet
Dim shT As Worksheet
Dim pos As Range
Set shT = Worksheets.Add(After:=Worksheets(Worksheets.Count))
shT.Range("A1:C1").Value = Array("シート名", "ボタン名", "マクロ名")
Set pos = shT.Range("A2")
For Each shF In Worksheets
For Each cb In shF.Buttons
pos.Resize(, 3).Value = Array(shF.Name, cb.Name, cb.OnAction)
Set pos = pos.Offset(1)
Next
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
