Excel VBA獲取當前的下一張表的名稱

Question

在Excel VBA中是否有方法獲取ActiveSheet後面的下一張表的名稱？

例如，讓我們假設我的電子表格有4個工作表，並且我想創建一個插入當前工作表（Sheet1，在這種情況下爲Sheet1）下一個電子表格名稱（Sheet2）的宏。就像這樣：

Answer 1

Activesheet.Index會給你當前工作表的位置，所以：

ActiveSheet.Range("A1")= ActiveSheet.Parent.Sheets(Activesheet.Index + 1).Name 

您應該添加一個檢查activesheet不是最後一個......

Answer 2

這裏只是一個小樣本。

Dim sh As Worksheet, shprv As Worksheet, shnext As Worksheet 
//make sure that use "as Worksheet" after every variable you declare 

Set sh = ActiveSheet  //always use "Set" before since these variables are "Object type", only by this their values can be set correctly 
Set shprv = sh.Previous 
Set shnext = sh.Next 

在這種情況下，sh值將是Sheet1因爲你給的圖片，
和shnext值將是Sheet2。
但shprv將沒有任何價值，因爲Sheet1之前沒有工作表。