返回列表 上一主題 發帖

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

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

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


001.jpg
2020-11-9 19:03



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

回復 14# n7822123

Hello, n7822123

了解!
謝謝您的回覆....
新手上路,請多包涵。

TOP

回復 13# 劉大胃

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

詳細說明如下圖


簡短宣告字符

資料變數簡短宣告字符.png
2020-12-1 00:53
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

Hello,  大大

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

Dim R, D, i&, K%

再請不吝告知.
Thanks ~
新手上路,請多包涵。

TOP

回復 11# 准提部林


感謝准大,學到了~~

TOP

回復 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, 表示有錯誤, 發出提醒

TOP

回復 7# 准提部林

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

TOP

回復 6# ikboy

Dear ikboy,
感謝您熱心指導歐!
Thank you so much.
Just do it.

TOP

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

TOP

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

TOP

        靜思自在 : 君子為目標,小人為目的。
返回列表 上一主題