- 帖子
- 193
- 主題
- 29
- 精華
- 0
- 積分
- 222
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- OFFICE2013
- 閱讀權限
- 20
- 註冊時間
- 2015-9-18
- 最後登錄
- 2023-4-29
|
20#
發表於 2023-2-12 14:26
| 只看該作者
回復 17# 准提部林
1.版大你好, 我有在新增一個WGP製程, 但在執行查詢的時候有跳出一個錯誤, 『陣列引索超出範圍』, 我有再程式碼多加"WGP" 但還是錯誤, 請問需要修改在哪邊呢?- Private Sub CommandButton2_Click()
- Dim T$, xF As Range, V%
- Call 清除_查詢值: xChk = 0
- T = TextBox5.Text
- If T = "" Then MsgBox "＊條碼序號未輸入！ ": Exit Sub
- If Len(T) <> 16 Then MsgBox "＊條碼序號輸入不完整或超過16個字元！ ": Exit Sub
- Set xF = Sheets("Database").Range("G:G").Find(T, Lookat:=xlWhole)
- If xF Is Nothing Then MsgBox "＊找不到目標！ ": Exit Sub
- Set xF = xF(1, -5)
- V = InStr("+H0D", xF(1, 3)) - 1
- Lab_A1 = Array("", "WGH", "WG0", "WGD", "WGP")(V)
- Lab_A2 = xF(1, 4)
- Lab_A3 = xF(1, 5)
- xChk = 1
- End Sub
 條碼系統.rar (326.21 KB)
|
|
發表於 2023-1-31 11:07
| 
