使用Dropbox /組合框和宏切換Excel電子表格中的選項卡

Question

我一直在努力奮鬥幾個小時，我想問你的幫助，什麼VBA代碼，我應該如何實現這一點，因爲我有大約30標籤，我想創建一種下拉列表，以便簡化標籤之間的切換。

見下圖：

​​

Answer 1

我會建議使用驗證列表框，而不是一個組合框，然後命名例如細胞「wsSelect」，因爲這是更簡單。打開Visual Basic，並在工作表中包含用戶選擇工作表打開的列表，並使用代碼框頂部的兩個下拉框創建工作表變更子。然後將下面的代碼將運行子來改變工作表時，列表框中值的變化：

Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Me.Range("wsSelect")) Is Nothing Then 
    Call Pb_Switch_Sheet 
End If 

末次

您需要創建一個新的模塊與公共子在其切換片（ excel不喜歡引用模塊中的不同表單）。那麼像這樣一個簡單的子應該做的伎倆：

Public Sub Pb_Switch_Sheet() 

Dim wsName As String 
ws = ThisWorkbook.ActiveSheet.Range("wsSelect").Value 

ThisWorkbook.Sheets(ws).Select 

末次

希望幫助！

一個

Answer 2

嘗試增加工作表名稱的組合框：

With Sheets(1) 
    For shtIndex = 2 to Application.Sheets.Count 
     .Combobox1.additem Sheets(shtIndex).name 
    next shtIndex 
end with 

運行下的combobox1變化低於或點擊事件

Sheets(combobox1.text).select