如何使用Excel VBA 切換到指定欄位內的分頁名稱?!

shizuka0223
個人積分：499分
文章編號：82750332

499分

樓主

2021-08-19 1:47

已經爬文一段時間了.....實在沒辦法，要來請教01大神們....

目前有個excel檔....因為分頁很多，想要透過下拉選單先選定

想要快速切換的分頁名稱，按下VBA按鈕後就可以切換過去~~~

目前已經完成下拉選單中有全部的分頁名稱，但是沒辦法搞定

選完下拉選單後，按下VBA按鈕快速切換到資料格N25 內的分頁名稱

嘗試了幾個寫法....

sheets(cells(14,25)).active
sheets(range("N25")).active
或是上面active改為select....

只好來請教01大神們給予指點.......十分感恩!!!

2021-08-19 1:47 發佈

文章關鍵字 Excel VBA 指定欄位分頁名稱

snare

snare
個人積分：3056分
文章編號：82750460

3056分

2樓

2021-08-19 3:00

'程式碼放在有下拉式選單的工作表
'名稱暫訂：工作表1
'選單位置暫訂：工作表1 => c3

Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, ThisWorkbook.Sheets("工作表1").Range("c3")) Is Nothing Or _
       ThisWorkbook.Sheets("工作表1").Range("c3") = ActiveSheet.Name Or _
       ThisWorkbook.Sheets("工作表1").Range("c3") = "" Then
       
        Exit Sub
    Else
        Call Change_Sheet
    End If

End Sub

Sub Change_Sheet()
    Dim sheet_name As String
    sheet_name = ThisWorkbook.Sheets("工作表1").Range("c3")
    ThisWorkbook.Sheets(sheet_name).Activate
    'ActiveSheet.Range("e5").Select 'test
    'ActiveSheet.Range("e5") = "test" 'test
End Sub