- 帖子
- 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
複製代碼 2. 版大先前在前面幾篇的回覆中有提到如果需要計算過期日期, 需要再輸入時加上年份, 但目前看起來輸入值是文字, 這樣能再Database中H欄位計算D+90的過期日嗎?
條碼系統.rar (326.21 KB)
|
|