標題: [發問] 如何輸入編號帶出相關資料N筆!? [打印本頁]

---

作者: 013160    時間: 2014-7-30 11:20     標題: 如何輸入編號帶出相關資料N筆!?

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

---

作者: ML089    時間: 2014-8-25 09:46

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

---

作者: Hsieh    時間: 2014-8-28 09:18

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)