Excel VBA 條件成立後，存檔時提醒 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Excel VBA 條件成立後，存檔時提醒

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

2016猴年全勤獎章

1^# 跳轉到 »

發表於 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

複製代碼

中學生 Rank: 2

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

2016猴年全勤獎章

2^#

發表於 2020-11-10 11:11 | 顯示全部帖子

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

中學生 Rank: 2

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

2016猴年全勤獎章

3^#

發表於 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

複製代碼

靜思自在 : 我們最大的敵人不是別人．可能是自己。

返回列表下一主題上一主題