如何制作工作表的下拉列表

Question

我在工作簿中總共有五張紙。 我的任務是在第一個工作表中創建一個能夠指向其他四個的組合列表按鈕。 如果用戶選擇其中一個工作表名稱，則該按鈕將自動激活所選工作表。 雖然可能會添加工作表，但不太可能刪除工作表。

我甚至不確定如何讓工作表名稱顯示在組合列表中。

Answer 1

為了使組合框改變活動表，我相信你需要使用VBA（因為我不知道如何使用驗證列表）。

要做到這一點，你必須：

第1步 - 在第一張紙上添加一個組合框並正確命名（我稱之為cmbSheet）。 我建議使用ActiveX Combobox（在Excel 2007中，在Developer選項卡下）。

第2步 - 打開VBA並將以下代碼添加到工作簿代碼中。 每次打開工作簿時，此代碼將使用工作表名稱填充組合框。

Private Sub Workbook_Open()

    Dim oSheet As Excel.Worksheet
    Dim oCmbBox As MSForms.ComboBox

    Set oCmbBox = ActiveWorkbook.Sheets(1).cmbSheet

    oCmbBox.Clear

    For Each oSheet In ActiveWorkbook.Sheets

        oCmbBox.AddItem oSheet.Name

    Next oSheet

End Sub

3 - 現在，轉到第一張表的代碼（已添加組合框的代碼）並添加將激活組合框中所選表單的代碼。 代碼是

Private Sub cmbSheet_Change()

    ActiveWorkbook.Sheets(cmbSheet.Value).Activate

End Sub

現在，當組合框值改變時，相應的紙張被激活。

如果有什么不清楚我們會告訴我們，我們會幫助您。