麻辣家族討論版版 » VB 與 VB.Net » 請問Excel下拉選單,選擇後自動轉到所需頁面的VBA該如何寫

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 7
主題: 2
精華: 0
積分: 57
點名: 83
作業系統: WIN10
軟體版本: Office 2013
閱讀權限: 20
性別: 男
註冊時間: 2018-7-18
最後登錄: 2024-4-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2024-1-3 18:10 | 只看該作者

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

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

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

收藏

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

2^#

發表於 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

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

中學生 Rank: 2

帖子: 7
主題: 2
精華: 0
積分: 57
點名: 83
作業系統: WIN10
軟體版本: Office 2013
閱讀權限: 20
性別: 男
註冊時間: 2018-7-18
最後登錄: 2024-4-27

3^#

發表於 2024-1-4 18:24 | 只看該作者

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

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

4^#

發表於 2024-1-4 19:10 | 只看該作者

回復 3# lky12345

這截圖畫面是在一般模組
這程式碼是觸發事件，所以要放入工作表模組，儲存格值改變時會自動執行
所以請在VBA裡將游標移到欲植入的工作表下快按兩下，將程式碼植入後就可以到表格測試一下

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

中學生 Rank: 2

帖子: 7
主題: 2
精華: 0
積分: 57
點名: 83
作業系統: WIN10
軟體版本: Office 2013
閱讀權限: 20
性別: 男
註冊時間: 2018-7-18
最後登錄: 2024-4-27

5^#

發表於 2024-1-4 19:58 | 只看該作者

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

中學生 Rank: 2

帖子: 7
主題: 2
精華: 0
積分: 57
點名: 83
作業系統: WIN10
軟體版本: Office 2013
閱讀權限: 20
性別: 男
註冊時間: 2018-7-18
最後登錄: 2024-4-27

6^#

發表於 2024-1-5 18:23 | 只看該作者

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

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

7^#

發表於 2024-1-5 20:57 | 只看該作者

回復 6# lky12345

Sheets(2).Activate
這是跳到第2工作表的意思
具體的要跳到第2工作表做什麼事？可再具體的說明或上傳範例檔

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

中學生 Rank: 2

帖子: 7
主題: 2
精華: 0
積分: 57
點名: 83
作業系統: WIN10
軟體版本: Office 2013
閱讀權限: 20
性別: 男
註冊時間: 2018-7-18
最後登錄: 2024-4-27

8^#

發表於 2024-1-6 09:50 | 只看該作者

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

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: win10
軟體版本: 2016
閱讀權限: 10
註冊時間: 2024-1-13
最後登錄: 2024-1-13

9^#

發表於 2024-1-13 10:45 | 只看該作者

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

回復 3# lky12345

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

中學生 Rank: 2

帖子: 7
主題: 2
精華: 0
積分: 57
點名: 83
作業系統: WIN10
軟體版本: Office 2013
閱讀權限: 20
性別: 男
註冊時間: 2018-7-18
最後登錄: 2024-4-27

10^#

發表於 2024-1-14 18:09 | 只看該作者

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

靜思自在 : 話多不如話少，話少不如話好。

返回列表下一主題上一主題