返回列表 上一主題 發帖

[發問] 請問Excel下拉選單,選擇後自動轉到所需頁面的VBA該如何寫

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
1# 跳轉到 »
發表於 2024-1-4 08:47 | 顯示全部帖子
回復 1# lky12345


    謝謝論壇,謝謝前輩發表此主題
後學藉此帖練習觸發與CountIf()函數,學習方案如下,請前輩參考

工作表模組:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N%
With Target
   If .Column = 1 And .Rows.Count = 1 Then
      N = Application.CountIf([A:A], "列印")
      If N > 1 Then MsgBox "A欄有 " & N & " 個列印": Exit Sub
      If N = 1 Then
         Sheets(2).Activate
         '~~轉至(sheet2)頁面指定欄位
      End If
   End If
End With
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
2#
發表於 2024-1-4 19:10 | 顯示全部帖子
回復 3# lky12345


    這截圖畫面是在一般模組
這程式碼是觸發事件，所以要放入工作表模組，儲存格值改變時會自動執行
所以請在VBA裡將游標移到欲植入的工作表下快按兩下，將程式碼植入後就可以到表格測試一下
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
3#
發表於 2024-1-5 20:57 | 顯示全部帖子
回復 6# lky12345

Sheets(2).Activate
這是跳到第2工作表的意思
具體的要跳到第2工作表做什麼事？可再具體的說明或上傳範例檔
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題