- 帖子
- 14
- 主題
- 3
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2014-5-7
- 最後登錄
- 2015-5-11
|
回復 1# 013160
我權限不夠所以沒有下載 但我依照你的意思寫下來
我程式碼是直接寫你的產品編號 如果你要用TextBox 請直接用變數代替去更換程式碼裡面的"ACC-HK257-1"
我覺得可以直接使用TextBox裡的事件去處發它,直接去查詢你要的資料
在事件裡面寫程式 "call 輸入產品編號 " 讓它去執行就可以了- Sub 輸入產品編號()
- Dim Rrow As Integer
- Dim i As Integer
- Dim y As Integer
- y = 2
- Rrow = Worksheets("NEW廠+庫存").Range("C65536").End(xlUp).Row
-
- For i = 1 To Rrow
- If Worksheets("NEW廠+庫存").Range("C" & i) = "ACC-HK257-1" Then
- Worksheets("工作表1").Range("B" & y) = Worksheets("NEW廠+庫存").Range("C" & i).Offset(0, 1)
- Worksheets("工作表1").Range("C" & y) = Worksheets("NEW廠+庫存").Range("C" & i).Offset(0, 2)
- y = y + 1
-
- End If
- Next i
- End Sub
 TextBox輸入產品編號.rar (8.75 KB)
|
|
發表於 2014-7-30 14:13
| 