12
返回列表 上一主題 發帖

[發問] VBA 表單功能發問

Andy2483
　暱稱: 厚臉皮的學生

中學生Rank: 2

帖子
440 
主題
27 
精華
0 
積分
453 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010&2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2023-1-31 
11# 跳轉到 »
發表於 2023-1-18 14:36 | 只看該作者
回復 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
看得懂是應該的,懂得應用才像學生,臉皮厚點學會更謹慎積極

TOP

v03586

帖子
189 
主題
29 
精華
0 
積分
218 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-1-31 
12#
發表於 2023-1-19 06:32 | 只看該作者
回復 8# 准提部林


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


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




Xl0000359-02.rar (57.23 KB)

TOP

准提部林

帖子
2622 
主題
9 
精華
0 
積分
2678 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2023-1-31 
13#
發表於 2023-1-20 10:19 | 只看該作者
回復 12# v03586

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

TOP

v03586

帖子
189 
主題
29 
精華
0 
積分
218 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-1-31 
14#
發表於 昨天 06:53 | 只看該作者
回復 13# 准提部林


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

TOP

准提部林

帖子
2622 
主題
9 
精華
0 
積分
2678 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2023-1-31 
15#
發表於 昨天 11:07 | 只看該作者
回復 14# v03586

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

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
12
返回列表 上一主題