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

013160

下載 (168.51 KB)

2014-7-30 11:26

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

下載次數: 8

2014-7-30 11:26

許瑞祥

回復 1# 013160


    我權限不夠所以沒有下載  但我依照你的意思寫下來
我程式碼是直接寫你的產品編號   如果你要用TextBox 請直接用變數代替去更換程式碼裡面的"ACC-HK257-1"
我覺得可以直接使用TextBox裡的事件去處發它,直接去查詢你要的資料
在事件裡面寫程式 "call 輸入產品編號 "  讓它去執行就可以了

1. Sub 輸入產品編號()
   
2.     Dim Rrow As Integer
   
3.     Dim i As Integer
   
4.     Dim y As Integer
   
5.     y = 2
   
6.     Rrow = Worksheets("NEW廠+庫存").Range("C65536").End(xlUp).Row
   
7.    
   
8.     For i = 1 To Rrow
   
9.         If Worksheets("NEW廠+庫存").Range("C" & i) = "ACC-HK257-1" Then
   
10.             Worksheets("工作表1").Range("B" & y) = Worksheets("NEW廠+庫存").Range("C" & i).Offset(0, 1)
    
11.             Worksheets("工作表1").Range("C" & y) = Worksheets("NEW廠+庫存").Range("C" & i).Offset(0, 2)
    
12.             y = y + 1
    
13.             
    
14.         End If
    
15.     Next i
    
16. End Sub

複製代碼

TextBox輸入產品編號.rar (8.75 KB)

下載次數: 17

2014-7-30 14:12