Andy2483

回復 8# 准提部林


    謝謝前輩

Option Explicit
Sub Mid特別用法_字串的指定字元數置換()
Dim Y$, Z$
Y = "ABCDEFG": Z = Y
Mid(Y, 2, 10) = "bcdefghijk"
MsgBox Y
Mid(Z, 2, 10) = "b"
MsgBox Z
End Sub

v03586

回復 8# 准提部林


    感謝版大的幫忙，這幾天測試了之後功能都正常, 唯獨有修改了日期的卡控(要大於今日)
   
     取出功能能請板大協助幫忙
   

下載 (27.32 KB)

2023-1-18 23:33

     ”取出資料”功能中, 輸入要取出的資料比對輸入條碼的厚度要一樣才能取出
    之後記錄取出人ID 與 使用產品 ID
    資料會從"Database"資料頁 跳到"MH Database"資料頁
    使用產品固定長度 7碼數字+"-"+SA"數字"."數字"
     ex : 1234567-SA0.1  紅色=固定格式
   




Xl0000359-02.rar (57.23 KB)

下載次數: 3

2023-1-18 23:33

准提部林

回復 12# v03586

取出//
Xl0000359-03.rar (109.44 KB)

下載次數: 10

2023-1-20 10:19

v03586

回復 13# 准提部林


    感謝大大的協助, 再請問大大一下, 如果取出要把Database的資料移到MHdatabase 要加哪一段程式碼?
   意思就是兩個資料頁只會留一筆序號碼 ( 目前兩個資料頁都會存在)

准提部林

回復 14# v03586

這裡不是預留了一條代碼
'xF.EntireRow.Delete '刪除原資料(自行決定)
將單引號刪去即可

v03586

回復 15# 准提部林


    不好意思版大!!看到了, 也修改過來了!! 感謝幫忙
    因為目前還想不到列印條碼的介面..所以只好先檢單的設定列印的方式
   目前只能先將建立好的資訊先寫一個檢單的列印格式在資料頁『條碼列印』在模組內的Module2 (欄寬/字體格式)

下載 (5.82 KB)

2023-2-3 23:14

   但因條碼機需要將字串前後加上『*』 才讀出來
    可以請教如何在建立資料的同時也在資料欄『條碼列印』B2欄位也新增剛剛建立的條碼序號但前後要加上『*』
    e.g *02031566546*


條碼建立&列印.rar (114.56 KB)

下載次數: 3

2023-2-3 23:14

准提部林

回復 16# v03586

用微調按鈕選擇條碼~~
Xl0000438-01.rar (122.56 KB)

下載次數: 8

2023-2-4 16:12

v03586

回復 17# 准提部林


    感謝版大幫忙，另請問一下請問選擇欄有預設值嗎？目前測試到第300筆資料後，無法跳到第301筆資料以後

v03586

回復 17# 准提部林


    找到問題了已修改，我再測試一下

v03586

回復 17# 准提部林

1.版大你好, 我有在新增一個WGP製程, 但在執行查詢的時候有跳出一個錯誤, 『陣列引索超出範圍』, 我有再程式碼多加"WGP" 但還是錯誤, 請問需要修改在哪邊呢?

1. Private Sub CommandButton2_Click()
   
2. Dim T$, xF As Range, V%
   
3. Call 清除_查詢值: xChk = 0
   
4. T = TextBox5.Text
   
5. If T = "" Then MsgBox "＊條碼序號未輸入！　": Exit Sub
   
6. If Len(T) <> 16 Then MsgBox "＊條碼序號輸入不完整或超過16個字元！　": Exit Sub
   
7. Set xF = Sheets("Database").Range("G:G").Find(T, Lookat:=xlWhole)
   
8. If xF Is Nothing Then MsgBox "＊找不到目標！　": Exit Sub
   
9. Set xF = xF(1, -5)
   
10. V = InStr("+H0D", xF(1, 3)) - 1
    
11. Lab_A1 = Array("", "WGH", "WG0", "WGD", "WGP")(V)
    
12. Lab_A2 = xF(1, 4)
    
13. Lab_A3 = xF(1, 5)
    
14. xChk = 1
    
15. End Sub

複製代碼

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

下載次數: 6

2023-2-12 14:26