jsc0518

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 175
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-27

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-11-9 19:04 | 只看該作者

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

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

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

樓主熱帖

Just do it.

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

2^#

發表於 2020-11-10 10:02 | 只看該作者

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim d As Date, a, b, r&, c&, t As Boolean
r = [c1].CurrentRegion.Rows.Count - 1
c = Columns("aj").Column
a = Cells(2, 1).Resize(r, c).Value
b = Cells(2, "aq").Resize(r).Value
For i = 1 To UBound(a)
d = a(i, 3)
If a(i, c - 1) > a(i, c) Then b(i, 1) = "帳面錯誤": If d = Date Then t = True
Next
Cells(2, "aq").Resize(r) = b
If t Then MsgBox "請注意" & Date & "帳面錯誤"
End Sub

複製代碼

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 175
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-27

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2020-11-10 10:28 | 只看該作者

回復 2# ikboy

Dear ikboy,
您好！測試可以使用，非常感謝您的熱心幫忙。

再您請教
若在C欄位(日期欄位)，他輸入的日期非今日日期，有可能輸入的日期為昨日或是大前天。
是否可讓VBA判讀，以C欄位最後欄位出現的日期(有可能輸入的日期為昨日或是大前天)去判讀，highlight "帳面異常"

如今日為 2020/11/10 ，在C欄位上最新輸入的日期為 2020/11/9 或是 2020/11/8

Just do it.

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

4^#

發表於 2020-11-10 11:11 | 只看該作者

不明白! 請列出問題,模擬要求結果。

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 175
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-9-27

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

5^#

發表於 2020-11-10 11:59 | 只看該作者

回復 4# ikboy

Dear ikboy,

如下圖，再麻煩您了

Excel_VBA-帳面錯誤-存檔時會提出警告畫面 V2.rar (14.53 KB)

Just do it.

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

6^#

發表於 2020-11-10 14:25 | 只看該作者

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim d As Date, a, b, r&, c&, t As Boolean
r = [c1].CurrentRegion.Rows.Count - 1
c = Columns("aj").Column
a = Cells(2, 1).Resize(r, c).Value
b = Cells(2, "aq").Resize(r).Value
d = Application.Max(Cells(2, 3).Resize(r))
For i = 1 To UBound(a)
If a(i, c - 1) > a(i, c) Then b(i, 1) = "帳面錯誤": If d = a(i, 3) Then t = True
Next
Cells(2, "aq").Resize(r) = b
If t Then MsgBox "請注意" & d & "帳面錯誤"
End Sub

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

7^#

發表於 2020-11-10 14:33 | 只看該作者

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

jsc0518