× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
![]() |
Option Explicit
Subプロシージャ名の取得0 Dim ProcName As String ‐ ProcName = ThisWorkbook.VBProject.VBComponents(″∥odule4″).Code∥odule.ProcOfLine(5, 0) MsgBox ProcName '″Other″ はモジュール名(∥odulelなど) 1磐曇:〕[J墨馨l栞i:ソ亀多讐整∥倦峯経言見そご思ぶ酉ご1熟15重二んあ碁出を捨達。 ,I顕鶴嗅ubプご3主ライ革R驚響庶琴吉窃笙レャを指定するときは0を指定。 End Sub PR |
![]() |
![]() |
|
![]() |