Excel VBA 實現返回上乙個工作表頁

還行。 1. 設定乙個公共變數，將當前工作表名稱 public shname 儲存為字串。

2.使用工作簿開啟+工作簿sheetdeactivate事件寫入shname，並將工作表名稱寫入snname

3.後退按鈕，只需要。

worksheets(snname).選擇行。 **和結構設計。

詳見附件！

您無需執行任何操作，Excel 本身就具有此功能。

在檔案中，該命令。 底部 1... 這是您開啟的最新檔案，2... 這是您開啟的最後乙個檔案，3... 4.。。等等。

sub 返回到原始工作表 （）。

with sheets( '用。

替換當前工作表。

'''''''''如果名為“temp”的工作表不存在，請建立乙個 ON 錯誤恢復下乙個'使用工作表（"temp")

if <>0 then '指定的工作表不存在 ="temp"

您新增的新錶將自動啟用為當前表。

end if

end with

select ''''''啟用返回”“msgbox的舊工作表"原始工作表已返回"

end with

end sub

嘗試。

您需要載入乙個工具欄並將最新的工具欄新增到其中。

with sheets( '用。 替換當前工作表。

''''''''''''''''''''''如果臨時表不存在，請建立乙個新錶''''''''''''''''''''''

on error resume next '忽略下面的陷阱錯誤。

with sheets("temp")

if <>0 then '指定的工作表不存在 =

temp" '您新增的新錶將自動啟用為當前表。

end if

end with

select ''''''啟用返回”“原始工作表正在執行。

做你該做的事。

以嘗試結束。

檢視原始工作表，新增新工作表不會更改當前活動工作表。

在新增新工作表之前，請記錄當前表，例如 **sub run（）。

dim obj as worksheet

set obj = activesheet'記錄原始工作表'新增新工作表

1) = "操作"'對原始圖紙集 obj = nothing 執行操作

end sub

在工作表的停用事件中，程式可以記住當前工作表的名稱（可以記錄在單元格中）。

只需使用超連結即可。

執行此操作的簡單方法是繪製乙個按鈕，將其貼上到每個工作表中，然後新增指向您所說的 Excel 主頁的超連結。

sub returnit()

sheets("首頁介面").activeend sub

然後新增乙個控制項。

sub comb_click()

call retrunit

end sub

public sub addbutton()dim i as integer

dim n as integer

dim sheetname as stringn =

for i = 1 to n

sheetname =

if sheetname <>"首頁介面" thencall worksheets(sheetname ).="", link:=false , displayasicon:

false, left:=, top:=, width:, height _

end if

nextend sub

然後將以下語句新增到每個頁面。

private sub commandbutton1_click()worksheets("首頁介面").activateend sub

我在無頁面新增乙個按鈕，按鈕**：

private sub commandbutton1_click()worksheets("首頁介面").activateend sub

1.如下圖所示，我想將桌面上第一章中的每個工作簿名稱放入工作表中。

2. 建立乙個新工作簿，將其命名為“第 1 章目錄”，然後按 Alt+F11 開啟巨集介面。

3.在VBA中，點選 插入 按鈕，點選 插入 選單下的模組，可以建立乙個新模組，系統預設為模組1，當然也可以根據需要重新命名。

4. 在VBA中使用do迴圈語句並輸入**，如下圖所示

5.返回名為“第1章目錄”的工作簿，然後按 Alt + F8彈出巨集對話方塊。

6.單擊巨集對話方塊中的執行按鈕，巨集對話方塊將自動關閉，並且第一章中每個資料夾的名稱將顯示在工作表1中。 最後，根據您的需要調整格式。