- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 16
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-9-14
|
- 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) = "±b±¿ù»~": If d = a(i, 3) Then t = True
- Next
- Cells(2, "aq").Resize(r) = b
- If t Then MsgBox "½Ðª`·N" & d & "±b±¿ù»~"
- End Sub
½Æ»s¥N½X |
|