返回列表 上一主題 發帖

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

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

回復 11# 准提部林


感謝准大,學到了~~

TOP

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

Hello,  大大

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

Dim R, D, i&, K%

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

TOP

回復 13# 劉大胃

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

詳細說明如下圖


程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 14# n7822123

Hello, n7822123

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

TOP

        靜思自在 : 知識要用心體會,才能變成自己的智慧。
返回列表 上一主題