2016-08-04 204 views
0

我开发了一个将表单导入到现有表单的excel插件。我希望能够在任何地方双击并能够跳回到第一张。vba将模块vba项目中的代码转移到excel表单vba项目

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

Sheets(1).Select 
cancel = True 

End Sub 

另一个程序写一个汇总excel文件。我开发了一个附加宏,在打开并运行时,导入完整的解决方案表并执行一些数据操作。有没有办法将这些代码转移到excel表单vba项目中?在此先感谢

回答

-1

Alt+F11去VBA开发选项卡,然后在左边的标签中应该显示您的Excel工作表。 https://www.extendoffice.com/images/stories/doc-excel/doc-drop-down-list-prevent-paste/doc-drop-down-list-prevent-paste-1.png

+0

感谢您的评论。但那是手动做的。我希望vba能够为我自动执行这一步骤。因为Excel工作表是由另一个程序生成的。我想能够加载添加,在宏中运行Excel添加,代码将在工作表内。 –

+0

@MarcusChua:你有没有按照我的答案尝试解决方案? – user3598756

+0

对不起,我不明白那种方式。如果您想要在所有工作表上自动应用该功能,请使用@ user3598756方法:) – RCaetano

3

使用工作簿事件

上要应用此功能,并粘贴代码:)

了解哪里可以点击更多详情,请参阅该图像的工作表只需双击因此请在ThisWorkbook代码窗格中输入以下内容:

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

感谢您的评论。但那是手动做的。我希望vba能够为我自动执行这一步骤。因为Excel工作表是由另一个程序生成的。我希望能够加载中添加,运行Excel加载宏和代码将工作表 –

+0

您可以在插件作为应用程序级事件代码这里面。查看CPearson.com –

+0

这根本不是_manual_的方式!如果您在_existing_工作簿中编写了该子项,那么您的加载项将添加新工作表,那么所有这些新工作表也将“受到影响”。除非工作簿不是_existing_,并且它是由加载项以及其所有工作表 – user3598756