請求改良程式

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

31^# 跳轉到 »

發表於 2024-4-16 08:55 | 只看該作者

回復 30# 198188

最近有點忙,請前輩舉出不懂的地方,後學有空會回復或請另發話題請教前輩們

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

中學生 Rank: 2

帖子: 401
主題: 57
精華: 0
積分: 484
點名: 20
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-4-26

32^#

發表於 2024-4-16 09:59 | 只看該作者

回復 198188

最近有點忙,請前輩舉出不懂的地方,後學有空會回復或請另發話題請教前輩們
Andy2483 發表於 2024-4-16 08:55

沒事，不急，等前輩有時間在回復。
暫時是這句
If (Not A Like "[#]###") Or (IsError(D)) Or (Not Q Like "##?Q") Then MsgBox "資料不符規則1": Exit Sub

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

33^#

發表於 2024-4-16 14:03 | 只看該作者

回復 32# 198188

If (Not A Like "[#]###") Or (IsError(D)) Or (Not Q Like "##?Q") Then MsgBox "資料不符規則1": Exit Sub
'↑如果A變數(字串)其字元排列順序(左至右)不是 #字元開頭連接3個數字,或D變數是錯誤值,或
'Q變數(字串)其字元排列順序(左至右)不是 2個數字開頭連接1個任意字元最後連接 Q字元,
'這3個條件其中一個成立,就跳出提視窗~~,結束程式執行,這是要檢查資料表是否規則正確

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

quickfixer

中學生 Rank: 2

帖子: 151
主題: 1
精華: 0
積分: 197
點名: 15
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-4-27

34^#

發表於 2024-4-17 11:28 | 只看該作者

本帖最後由 quickfixer 於 2024-4-17 11:29 編輯

回復 33# Andy2483

曾經被01的高手指導過,他說少用冒號來連結程式碼,尤其是前面有if的時候
那只是看起來比較短,對速度沒幫助,可讀性也不好,有時候還會不小心出意外

Sub test()

aa = "andy2483"
bb = "andy2484"

If aa = bb Then Debug.Print "andy": Debug.Print "cc": Exit Sub

Debug.Print "dd"

End Sub

Sub test1()

aa = "andy2483"
bb = "andy2484"

If aa = bb Then Debug.Print "andy"
Debug.Print "cc"
Exit Sub

Debug.Print "dd"

End Sub

TOP

jackyq