VBA 表單功能發問 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA 表單功能發問

返回列表下一主題上一主題發帖

[發問] VBA 表單功能發問

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

1^# 跳轉到 »

發表於 2023-1-8 14:46 | 顯示全部帖子

本帖最後由准提部林於 2023-1-8 14:52 編輯

用表單太花時間了~~只做"新增"及"查詢"
查詢...輸入前6碼數字...自動列出相符合的清單供選擇
其它的可用目前的程式碼去拼看看~~

Xl0000359-01.rar (57.78 KB)

WG0 ... 右邊一字是 "0" 還是 "O" ?
"回溫日期" 與建立日期有何關係???
"回溫日期" 若只有 "mmdd" ,沒年份..如何判斷過期???

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

2^#

發表於 2023-1-10 10:33 | 顯示全部帖子

回復 5# v03586

3."回溫日期" 若只有 "mmdd" ,沒年份..如何判斷過期??? 當初考量不周...因為條碼產生字串太長, 條碼機無法掃...這點有曾想過...但不知道從程式可不可以篩選, 所以才留MMDD

__建議:回溫日期那欄使用標準日期YYYY/MM/DD,輸入也是標準日期, 但條碼只取MMDD,
這樣就比較完整, 可判斷過期也可判斷日期是否錯誤, 例如:
1) 回溫日期小于建立日期(甚至判斷天數是否正確, 如:至少要差30天)
2) 也可判斷輸入 02/29 時, 是否當年度不是閏年的錯誤, 及大小月的月底日期, 如輸入:0431,0631,0931,1131

另外, 建立日期為何需要加時間???

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

3^#

發表於 2023-1-15 18:08 | 顯示全部帖子

把新增/查詢/編輯併成一個表單:

Xl0000359-02.rar (103.84 KB)

為了檢測資料的正確性, 代碼非常複雜, 其他功能還是自行去試試//

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

4^#

發表於 2023-1-20 10:19 | 顯示全部帖子

回復 12# v03586

取出//

Xl0000359-03.rar (109.44 KB)

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

5^#

發表於 2023-1-31 11:07 | 顯示全部帖子

回復 14# v03586

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

6^#

發表於 2023-2-4 16:12 | 顯示全部帖子

回復 16# v03586

用微調按鈕選擇條碼~~

Xl0000438-01.rar (122.56 KB)

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

7^#

發表於 2023-2-12 15:02 | 顯示全部帖子

回復 20# v03586

V = InStr("+H0DP", xF(1, 3)) - 1 這也要加"P"

D = CDate(format(20230130, "00-00-00")) '即可轉成日期
if D - Date < 90 then msgbox "已過期"

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題