如何讓下拉選單選取後自動跳到儲存格相對應處? - Excel程式區

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 »

發表於 2013-11-6 09:14 | 顯示全部帖子

回復 7# c_c_lai

我下載你的檔案，點選Sheet2 - A2沒有出現下拉選單，
請問我還需要做哪些設定。

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

2^#

發表於 2013-11-6 10:36 | 顯示全部帖子

回復 10# c_c_lai

謝謝你提供那麼詳細的說明

我的EXCEL開啟(安全同意也開啟)也依照畫面步驟去點選A2，可是沒有出現下拉表，是否我缺少什麼物件

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2013-11-6 10:49 | 顯示全部帖子

回復 10# c_c_lai

我的EXCEL是2007
開啟你的檔案，其工作表名稱是 Sheet1、 Sheet2、 Sheet3
但VBA程式中用的工作表名稱是工作表1、工作表2
我試著將 VBA中的 "工作表" 改為 "Sheet" 也不行
該如何是好

例如
Sub CellValidation()    '  stillfish00 提供
With Sheets("工作表2").[A2:A25].Validation
      .Delete
      .Add Type:=xlValidateList, Formula1:="=工作表1!$A$3:$A$20"
End With
End Sub

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2013-11-6 12:47 | 顯示全部帖子

回復 14# c_c_lai

還是不行，按A2、A3...都沒有反應
之前樓主的檔案也不行，後來我自行設定資料驗證(清單) ，下拉選單才出現

請問 ComboBox1 是否需要自行增設，還是程式已經內定就有

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

5^#

發表於 2013-11-6 15:08 | 顯示全部帖子

回復 18# c_c_lai

開啟 #1 的附件，然後將程式碼貼入到 Sheet2 的程式碼區，還是不行

自行設定資料驗證後，是可以執行，下拉選單 - 選完自動跳到 C欄數量 - 輸入數量也自動跳到下一列。
可是下拉選單又好像不是資料驗證的下拉選單，應該是ComboBox1得下拉選單

我自己用資料驗證配合Worksheet_Change也可以達到效果，只是資料驗證選單功能比較陽春。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(, 2).Select
ElseIf Target.Column = 3 Then
Target.Offset(1, -2).Select
End If
End Sub