ikboy

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. Dim d As Date, a, b, r&, c&, t As Boolean
   
3. r = [c1].CurrentRegion.Rows.Count - 1
   
4. c = Columns("aj").Column
   
5. a = Cells(2, 1).Resize(r, c).Value
   
6. b = Cells(2, "aq").Resize(r).Value
   
7. d = Application.Max(Cells(2, 3).Resize(r))
   
8. For i = 1 To UBound(a)
   
9.     If a(i, c - 1) > a(i, c) Then b(i, 1) = "±b­±¿ù»~": If d = a(i, 3) Then t = True
   
10. Next
    
11. Cells(2, "aq").Resize(r) = b
    
12. If t Then MsgBox "½Ðª`·N" & d & "±b­±¿ù»~"
    
13. End Sub

½Æ»s¥N½X

jsc0518

¦^´_ 4# ikboy


Dear ikboy,

¦p¤U¹Ï¡A¦A³Â·Ð±z¤F

¤U¸ü (150.1 KB)

2020-11-10 11:58

Excel_VBA-±b­±¿ù»~-¦sÀɮɷ|´£¥Xĵ§iµe­± V2.rar (14.53 KB)

¤U¸ü¦¸¼Æ: 8

2020-11-10 11:58

ikboy

¤£©ú¥Õ! ½Ð¦C¥X°ÝÃD,¼ÒÀÀ­n¨Dµ²ªG¡C

jsc0518

¦^´_ 2# ikboy

Dear ikboy,
±z¦n¡I´ú¸Õ¥i¥H¨Ï¥Î¡A«D±`·PÁ±zªº¼ö¤ßÀ°¦£¡C
  
¦A±z½Ð±Ð
­Y¦bCÄæ¦ì(¤é´ÁÄæ¦ì)¡A¥L¿é¤Jªº¤é´Á«D¤µ¤é¤é´Á¡A¦³¥i¯à¿é¤Jªº¤é´Á¬°¬Q¤é©Î¬O¤j«e¤Ñ¡C
¬O§_¥iÅýVBA§PŪ¡A¥HCÄæ¦ì³Ì«áÄæ¦ì¥X²{ªº¤é´Á(¦³¥i¯à¿é¤Jªº¤é´Á¬°¬Q¤é©Î¬O¤j«e¤Ñ)¥h§PŪ¡Ahighlight "±b­±²§±`"

¦p¤µ¤é¬° 2020/11/10 ¡A¦bCÄæ¦ì¤W³Ì·s¿é¤Jªº¤é´Á¬° 2020/11/9 ©Î¬O 2020/11/8

ikboy

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. Dim d As Date, a, b, r&, c&, t As Boolean
   
3. r = [c1].CurrentRegion.Rows.Count - 1
   
4. c = Columns("aj").Column
   
5. a = Cells(2, 1).Resize(r, c).Value
   
6. b = Cells(2, "aq").Resize(r).Value
   
7. For i = 1 To UBound(a)
   
8.     d = a(i, 3)
   
9.     If a(i, c - 1) > a(i, c) Then b(i, 1) = "±b­±¿ù»~": If d = Date Then t = True
   
10. Next
    
11. Cells(2, "aq").Resize(r) = b
    
12. If t Then MsgBox "½Ðª`·N" & Date & "±b­±¿ù»~"
    
13. End Sub

½Æ»s¥N½X