我希望每當我單擊 Sheet1 上的 ActiveX 命令按鈕時，它都會打開 VBA 編輯器并直接跳轉到我為用戶表單上的按鈕撰寫的代碼。我知道直接跳轉到模塊代碼的方法，但我找不到用戶表單按鈕控制元件的屬性（類似于 ThisWorkbook.VBProject.VBComponents("UserForm1").Controls("MyButton")）
以下是我直接跳入我的 Madule1 代碼的代碼：
Private Sub CommandButton1_Click()
Dim Wb As Workbook: Set Wb = ThisWorkbook
'---Open Module1
Application.VBE.MainWindow.Visible = True
Wb.VBProject.VBComponents("UserForm1").Activate
End Sub
我認為這些圖片將有助于更好地理解我的目標：
1-我在 sheet1 上有一個 ActiveX 命令按鈕
2-我有一個帶有命令按鈕的用戶表單
3-這個命令按鈕有它自己的代碼，我想跳到它的代碼
uj5u.com熱心網友回復：
如果你想直接跳轉到那個特定的子，試試這個：
Private Sub CommandButton1_Click()
Application.VBE.ActiveVBProject.VBComponents("UserForm1").CodeModule.CodePane.Show
With Application.VBE.ActiveCodePane.CodeModule
lStartLine = .ProcStartLine("CommandButton1_Click", 0) '"CommandButton1_Click" being the name of the sub you want.
.CodePane.SetSelection lStartLine, 1, lStartLine, 1
End With
End Sub
第一行應該向您顯示用戶表單的代碼面板，第二部分按您正在查找的名稱選擇向下的行。
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/415393.html
標籤：
上一篇：Sumif函式中的月份函式