[發問] 如何讓下拉選單選取後自動跳到儲存格相對應處?

av8d

相片輸出價目表.rar (23.49 KB)

下載次數: 23

2013-11-1 08:44

在規則名稱下拉選單選取後，如何自動跳到相對應的數量區？

例如：
點一下A2~會出現下拉選單，選取後~如何自動跳到C2？
然後有多筆資料時，會繼續點一下A3，會出現下拉選單~選取後~如何自動跳到C3？

av8d

回復 1# av8d


    或是說改成~當數量輸入後按下Enter後~自動跳到規格名稱

例如：C2輸入數字後按下Enter後~自動跳到A2

stillfish00

1. Private Sub ComboBox1_Change()
   
2.   Application.EnableEvents = False
   
3.   
   
4.   ComboBox1.Visible = False
   
5.   Range(ComboBox1.LinkedCell).Offset(, 2).Select
   
6.   
   
7.   Application.EnableEvents = True
   
8. End Sub

複製代碼

回復 1# av8d

c_c_lai

回復 3# stillfish00
順帶請教一個問題：
(假設新增一個 Excel 檔案)
在 "工作表2" A 欄位中如何去設定 ActiveCell.Validation.Formula1 對應下拉式 List 的指定欄位值，
譬如：   "=工作表1!$A$3:$A$20"      (即從 "工作表2" A2:A10 都能自動去對應 "工作表1" 的 A3:A20)
謝謝你！
(不好意思，我對這方面的應用從沒觸摸過  -  欠學)

stillfish00

回復 4# c_c_lai
你可以從  資料>資料驗證>去設定儲存格內清單，再選來源。
VBA可參考 Validation.Add 方法。

1.   With Sheets("工作表2").[A2:A10].Validation
   
2.     .Delete
   
3.     .Add Type:=xlValidateList, Formula1:="=工作表1!$A$3:$A$20"
   
4.   End With

複製代碼

c_c_lai

回復 5# stillfish00
感激，終於又學到如何設定 Validation 了，
再次謝謝你！

c_c_lai

回復 2# av8d
綜合了 stillfish00 大大提供的函數，以及加上整合你的需求而成。
1.   " 點一下A2~會出現下拉選單，選取後~如何自動跳到C2 "，
2.   " 當數量輸入後按下Enter後~自動跳到規格名稱 (C2輸入數字後按下Enter後~自動跳到A2) "
第二項需求，修改成：
當數量輸入後按下Enter後~自動跳到下一個規格名稱 (C2輸入數字後按下Enter後~自動跳到A3 )

1. Public ckCurr As Boolean
   
2. 
   
3. Private Sub ComboBox1_Change()    '  stillfish00 提供
   
4.     If ckCurr Then Exit Sub
   
5.    
   
6.     Application.EnableEvents = False
   
7.    
   
8.     ckCurr = False
   
9.     ComboBox1.Visible = False
   
10.     Range(ComboBox1.LinkedCell).Offset(, 2).Select
    
11.     Application.EnableEvents = True
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton1_Click()
    
15.     If Me.ComboBox1.Visible Then ckCurr = True: Me.ComboBox1.Visible = False
    
16.    
    
17.     Range("A2:A25,C2:C25").Select
    
18.     Selection.ClearContents
    
19. End Sub
    
20. 
    
21. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
22.     Dim StrVdFml As String
    
23.    
    
24.     '  If ckCurr Then Exit Sub
    
25.     On Error Resume Next
    
26.         StrVdFml = Replace(ActiveCell.Validation.Formula1, "=", "")
    
27.         '  ActiveCell.Validation.Formula1 ：  "=工作表1!$A$3:$A$20"
    
28.         '  ComboBox1.ListFillRange        ：   工作表1!$A$3:$A$20
    
29.         '  Replace(ActiveCell.Validation.Formula1, "=", "") : "工作表1!$A$3:$A$20"
    
30.         '  StrVdFml : "工作表1!$A$3:$A$20"
    
31.         ActiveCell.Validation.InCellDropdown = False
    
32.     On Error GoTo 0
    
33.     If StrVdFml = "" Then
    
34.         If Me.ComboBox1.Visible Then Me.ComboBox1.Visible = False
    
35.     Else
    
36.         With Me.ComboBox1
    
37.             '  ComboBox1.progID   =EMBED("Forms.ComboBox.1","")
    
38.             '  ComboBox1：        ComboBox
    
39.             '  LinkedCell：       $A$2
    
40.             '  ListFillRange ：   工作表1!$A$3:$A$20
    
41.             .Left = ActiveCell.Left
    
42.             .Top = ActiveCell.Top
    
43.             '  .Width = ActiveCell.Width + 140
    
44.             .Width = ActiveCell.Width
    
45.             '  .Height = ActiveCell.Height + 10
    
46.             .Height = ActiveCell.Height
    
47.             '  .Font.Size = 22
    
48.             .Font.Size = 12
    
49. 
    
50.             .LinkedCell = ActiveCell.Address    '  "$A$2"
    
51.             .ListFillRange = StrVdFml           '  "工作表1!$A$3:$A$20"
    
52.             .Visible = 1                        '  顯示下拉符號
    
53. 
    
54.             .Object.SpecialEffect = 3
    
55.             '.Object.Font.Size = ActiveCell.Font.Size
    
56.         End With
    
57.     End If
    
58.   
    
59.     ckCurr = False
    
60. End Sub
    
61. 
    
62. Private Sub Worksheet_Change(ByVal Target As Range)
    
63.     '  Target.Font.ColorIndex = 5
    
64.    
    
65.     If Not Intersect(Target, Range("C2:C25")) Is Nothing Then
    
66.         If Target(1, 1) = 0 Then Exit Sub
    
67.         ckCurr = True
    
68.         '  MsgBox Target.Address
    
69.         Target.Offset(1, -2).Select
    
70.     End If
    
71. End Sub
    
72. 
    
73. Sub CellValidation()      '  stillfish00 提供
    
74.     With Sheets("工作表2").[A2:A25].Validation
    
75.         .Delete
    
76.         .Add Type:=xlValidateList, Formula1:="=工作表1!$A$3:$A$20"
    
77.     End With
    
78. End Sub

複製代碼

av8d

謝謝~stillfish00 大大的解答
讓c_c_lai大大解答了我真正想要使用的功能~

兩位大大謝謝~學習了

ML089

回復 7# c_c_lai

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

c_c_lai

回復  c_c_lai

我下載你的檔案，點選Sheet2 - A2沒有出現下拉選單，
請問我還需要做哪些設定。
ML089 發表於 2013-11-6 09:14

下載 (101.99 KB)

2013-11-6 10:13