[發問] 下拉式選單撈取資料

v03586

我想利用XCEL 製作一個 客戶訂單資訊, 不知道如何使用?
VLOOKUP不太熟悉,請求幫忙

下拉式選單會製作, 但是不知道怎麼去從資料庫撈資料出來
例如從B1 選擇客戶代碼

下載 (19.56 KB)

2016-7-24 17:48

他會從資料庫頁面去選取資料, 把我下拉式選單選的A 客戶代碼的資訊對應欄位作顯示

下載 (15.45 KB)

2016-7-24 17:47

因為每次分類會不一樣, 所以中間有F,G,H 欄 是我自己輸入不知道能不能完成
如果不能也可以把Remark 欄位移到 F欄位, G,H,I 欄變成分類1,2,3

分類表.rar (68.38 KB)

下載次數: 4

2016-7-24 17:50

v03586

回復 4# 准提部林


    感謝大大的提醒....因為有先去Youtube 爬文, 不知道這個專有名詞!! 現在又學了一招了!! 感謝

准提部林

是想篩選資料吧！論壇有很多例子，找一下應可以，或自行錄製巨集試試，
若想用純公式，參考如下（不用陣列公式．加輔助欄）：
分類表_V1.rar (26.55 KB)

下載次數: 11

2016-7-25 13:53

輔助公式：
=LOOKUP("z",IF({1,0},"",(MATCH(C$1,INDIRECT("資料庫!A"&A2+2&":A9000"),)+A2)&""))

取資料公式：
=IF($A3="","",INDEX(資料庫!$A:$G,$A3+1,MATCH(B$2,資料庫!$1:$1,)))

以上適用于〔未排序〕的資料～～

c_c_lai

回復 1# v03586

1. ThisWorkbook:
   
2. Option Explicit
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     Dim rng As Range, cts As Integer
   
6.     Dim sh As Worksheet, dic As Object
   
7.     Dim m As Variant
   
8.    
   
9.     Set dic = CreateObject("scripting.dictionary")
   
10. 
    
11.     Set sh = Sheets("資料庫")
    
12.     With Sheets("範例測試")
    
13.         With .ComboBox1
    
14.             .Clear
    
15.             '  .Value = ""
    
16.             .ColumnCount = 1
    
17.             .ColumnWidths = "80"
    
18.             .ColumnHeads = False
    
19.             
    
20.             For Each rng In Range(sh.[A2], sh.[A2].End(xlDown))
    
21.                 dic(rng.Value) = rng.Value
    
22.             Next
    
23.             
    
24.             m = dic.Items                    ' 字典存入到 m 變數中
    
25.             For cts = 0 To UBound(dic.Keys)
    
26.                 .AddItem m(cts)
    
27.             Next
    
28.             .Value = ""                      ' m(0) = "A"
    
29.         End With
    
30.     End With
    
31. End Sub

複製代碼

1. 工作表3 (範例測試)：
   
2. Private Sub ComboBox1_Change()
   
3.     Dim sh As Range, c As Variant
   
4.    
   
5.     Sheets("範例測試").[A3:I65535].Clear
   
6.     Set sh = Sheets("範例測試").[A3]
   
7. 
   
8.     '  這個範例會在第一張工作表上的 A1:A500 範圍內尋找值為 2 的所有儲存格，
   
9.     '  並將這些儲存格的值變更為 5。
   
10.     With Sheets("資料庫").Range("A2:A" & [A2].End(xlDown).Row)
    
11.         Set c = .Find(ComboBox1.Value, LookIn:=xlValues)
    
12.         If Not c Is Nothing Then
    
13.             firstAddress = c.Address
    
14.             Do
    
15.                 c.Resize(, 5).Copy sh
    
16.                 sh.Offset(0, 8) = c.Offset(0, 6)
    
17.                
    
18.                 Set sh = sh.Offset(1)
    
19.                 Set c = .FindNext(c)
    
20.             Loop While Not c Is Nothing And c.Address <> firstAddress
    
21.         End If
    
22.     End With
    
23. End Sub

複製代碼

c_c_lai

回復 1# v03586
我是應用 Find() 來做出這一範例， 不過
我倒希望看看使用 VLookup 如何達成。

下載 (94.3 KB)

2016-7-25 07:01