在excel中的工作表之間導航

-1

我正在寫一個宏來在Excel工作簿的工作表之間導航，就像Alt + Tab在窗口之間工作一樣。（我知道，有按Ctrl + PgUp鍵和Ctrl + PgDn鍵的命令，但這些按鈕都在鍵盤上位置不好。）在excel中的工作表之間導航

宏：

它完美的原始文件，但是當我嘗試在其他Excel使用它我得到運行時錯誤「1004」和調試突出了以下行：

ActiveWorkbook.ActiveSheet.Next.Select

任何想法有什麼不好？

來源

2017-06-22 J. Doe

是否錯誤包括消息？ –

該代碼應該可以在任何活動工作簿上正常工作。 – sktneer

運行時錯誤'1004'：選擇Worsheet失敗的方法。 –

嘗試下面的代碼：

Option Explicit 

Sub navigate_sheet() 

Dim wb As Workbook  
Set wb = ThisWorkbook 

If ActiveSheet.Index < wb.Sheets.Count Then 
    wb.Sheets(ActiveSheet.Index + 1).Select 
Else 
    wb.Sheets(1).Select 
End If 

End Sub

來源

2017-06-22 08:15:52

結果相同，運行時錯誤'1004'：選擇Worsheet失敗的方法。 –

在excel中的工作表之間導航

回答

相關問題