[發問] 如何輸入編號帶出相關資料N筆!?

013160

下載 (168.51 KB)

2014-7-30 11:08

我是想在TextBox輸入產品編號 帶出全所產品名稱及數量(N筆)
壓縮檔中有一個測試檔是我自已試著去做但一直有問題跑不出我要的結果!?
1. 請教大家問題是出在哪裡!?
2. 有沒有更好的方法做出我想要的結果
密碼013160
輸入A帶出N筆資料.rar (312.97 KB)

下載次數: 19

2014-7-30 11:13

ML089

B2 =INDEX('NEW廠+庫存'!D:D,MATCH($A$2,'NEW廠+庫存'!$C:$C,)+ROW(A1)-1)
右拉下拉

Hsieh

回復 1# 013160

1. Private Sub TextBox1_Change()
   
2. Dim Ar()
   
3. With Sheets("NEW廠+庫存")
   
4.   For Each a In .Range(.[C5], .[C5].End(xlDown))
   
5.      If a = TextBox1 Then
   
6.         ReDim Preserve Ar(s)
   
7.         Ar(s) = Array(a.Offset(, 1).Value, a.Offset(, 2).Value)
   
8.         s = s + 1
   
9.      End If
   
10.    Next
    
11.    Range([B2], [C2].End(xlDown)).ClearContents
    
12.    [B2].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
    
13. End With
    
14. End Sub

複製代碼