[發問] Excel VBA 條件成立後，存檔時提醒

jsc0518

Dear 各位先進,
Excel VBA 是否可以依據"今天日期"且有"帳面錯誤"，一旦成立後，存檔時會提醒呢？
再麻煩大家，感恩！！

下載 (127.76 KB)

2020-11-9 19:03

存檔時會提出警告畫面.rar (8.92 KB)

下載次數: 7

2020-11-9 19:04

劉大胃

回復 14# n7822123

Hello, n7822123

了解!
謝謝您的回覆....

n7822123

回復 13# 劉大胃

那些是資料變數的簡短宣告字符~

詳細說明如下圖

下載 (35.08 KB)
簡短宣告字符

2020-12-1 00:53

劉大胃

回復 7# ikboy
回復 7# 准提部林

Hello,  大大

請問變數宣告後的 "&" / "%" 各代表什麼意思?

Dim R, D, i&, K%

再請不吝告知.
Thanks ~

jjloiasd

回復 11# 准提部林


感謝准大，學到了~~

准提部林

回復 10# jjloiasd


R = Cells(Rows.Count, "C").End(xlUp).Row '取得C列最後一格
D = Cells(R, "c") '取得最後一個日期
If Not IsDate(D) Then Exit Sub '檢測是否為日期
For i = R To 2 Step -1  '由下而上迴圈
    If Cells(i, "c") <> D Then Exit For '在日期有排序, 往上遇到不是最後日期, 跳出迴圈
    If Cells(i, "AQ") = "帳面錯誤" Then K = 1: Exit For '當AQ欄有錯誤提示文字時, K賦值1, 跳出迴圈
Next i
If K > 0 Then MsgBox "請注意!! " & D & " 帳面錯誤 "  '若K值大于0, 表示有錯誤, 發出提醒

jjloiasd

回復 7# 准提部林

版主您好
不好意思，可否麻煩您說明語法的意思
感謝您

jsc0518

回復 6# ikboy

Dear ikboy,
感謝您熱心指導歐！
Thank you so much.

jsc0518

回復 7# 准提部林
Dear 准提部林,
感謝您的方法，TEST OK。
Thank you.

准提部林

回復 5# jsc0518


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim R, D, i&, K%
R = Cells(Rows.Count, "C").End(xlUp).Row
D = Cells(R, "c")
If Not IsDate(D) Then Exit Sub
For i = R To 2 Step -1
    If Cells(i, "c") <> D Then Exit For
    If Cells(i, "AQ") = "帳面錯誤" Then K = 1: Exit For
Next i
If K > 0 Then MsgBox "請注意!! " & D & " 帳面錯誤 "
End Sub