2016-08-04 194 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