Question

我开发了一个excel插件，可以将表单导入到现有插件中。我希望能够在任何地方双击，并能够跳回到第一张表。

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)

Sheets(1).Select
cancel = True

End Sub

另一个程序写一个摘要excel文件。我开发了一个加载宏，在打开和运行时，导入完整的解决方案表并进行一些数据操作。有没有办法将此代码传输到Excel工作表vba项目？提前谢谢

Answer 1

使用工作簿事件

所以在ThisWorkbook代码窗格中键入以下内容：

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Sheets(1).Select
    Cancel = True
End Sub

Answer 2

按account_type转到VBA开发标签，然后在左侧的标签中显示Excel工作表。

只需双击要应用该功能的工作表并粘贴代码：）

有关点击位置的详细信息，请参阅此图片： https://www.extendoffice.com/images/stories/doc-excel/doc-drop-down-list-prevent-paste/doc-drop-down-list-prevent-paste-1.png

vba将代码从模块vba项目传输到excel sheet vba项目

2 个答案: