返回列表 上一主題 發帖

請求改良程式

回復 30# 198188

最近有點忙,請前輩舉出不懂的地方,後學有空會回復 或請另發話題請教前輩們
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復  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

回復 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 於 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

冒號是個硬傷
只有幾種情況下可用
很多人都不知道
都在依樣畫葫蘆

TOP

本帖最後由 198188 於 2024-4-19 17:47 編輯
回復  Andy2483


    曾經被01的高手指導過,他說少用冒號來連結程式碼,尤其是前面有if的時候
那只是看 ...
quickfixer 發表於 2024-4-17 11:28


謝謝前輩提醒。

TOP

回復 34# quickfixer
回復 35# jackyq

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

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題