返回列表 上一主題 發帖

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

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-7-24 17:50 | 只看該作者

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

本帖最後由 v03586 於 2016-7-24 17:52 編輯

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

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


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


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

分類表.rar (68.38 KB)
收藏 分享

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2016-7-25 07:01 | 只看該作者
回復 1# v03586
我是應用 Find() 來做出這一範例， 不過
我倒希望看看使用 VLookup 如何達成。

分類表.rar (33.33 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2016-7-25 07:05 | 只看該作者
回復 1# v03586
  1. ThisWorkbook:
  2. Option Explicit

  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")

  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]

  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
複製代碼

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-12-25 
4#
發表於 2016-7-25 13:54 | 只看該作者
是想篩選資料吧！論壇有很多例子，找一下應可以，或自行錄製巨集試試，
若想用純公式，參考如下（不用陣列公式．加輔助欄）：
分類表_V1.rar (26.55 KB)

輔助公式：
=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,)))

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

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
5#
發表於 2016-7-26 13:05 | 只看該作者
回復 4# 准提部林


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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題