返回列表 上一主題 發帖

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

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

本帖最後由 lky12345 於 2024-1-3 18:13 編輯

請問在Excel儲存格中,設定下拉選單,再該儲存格選擇後自動轉到所需頁面指定欄位的VBA該如何寫?
在(sheet1)A欄中的隨機欄位上,只要下拉點選"列印"後則轉至(sheet2)頁面指定欄位,
如(sheet1)A欄中有選擇2個列因時,則出現msg box提醒,
按下確定後.回到原資料格上
謝謝
2023-12-28 05 34 59.jpg
2024-1-3 18:10

2023-12-28 05 32 48.jpg
2024-1-3 18:10

回復 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

回復 2# Andy2483
感謝大大的回覆,因為個人對VBA也不是很熟悉
所以還請大大協助幫忙,謝謝
現在的問題是我填入vba中卻出現以下訊息
請問是哪邊出錯,請再指導,謝謝
2024-01-04 18 19 19.jpg
2024-1-4 18:23

TOP

回復 3# lky12345


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

TOP

回復 4# Andy2483
瞭解了,感謝大大的指導,謝謝

TOP

回復 5# lky12345
大大你好
不好意思,使用後有個問題就是如果A欄中有顯示"列印"滑鼠只要點到A欄中任何位置,則會自動轉到sheet2
請問這有辦法改善嗎?
謝謝

TOP

回復 6# lky12345

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

TOP

回復 7# Andy2483
大大你好
是轉到sheet2後就由點選進行所需要的列印
謝謝
很感謝有您的協助,這樣的功能已經很好了,謝謝

TOP

本帖最後由 liaovba 於 2024-1-13 10:46 編輯

回復 3# lky12345


      N = Application.CountIf([A:A], "列印")  这里的N是读取了整列,如果你想指定范围,可以改变这里的A:A的值,如何改为A1:A10

TOP

回復 9# liaovba
好的,謝謝大大的指導

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題