ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Excel VBA ±ø¥ó¦¨¥ß«á¡A¦sÀɮɴ£¿ô

¦^´_ 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") = "±b­±¿ù»~" Then K = 1: Exit For
Next i
If K > 0 Then MsgBox "½Ðª`·N!! " & D & " ±b­±¿ù»~ "
End Sub

TOP

¦^´_ 10# jjloiasd


R = Cells(Rows.Count, "C").End(xlUp).Row '¨ú±oC¦C³Ì«á¤@®æ
D = Cells(R, "c") '¨ú±o³Ì«á¤@­Ó¤é´Á
If Not IsDate(D) Then Exit Sub 'ÀË´ú¬O§_¬°¤é´Á
For i = R To 2 Step -1  '¥Ñ¤U¦Ó¤W°j°é
    If Cells(i, "c") <> D Then Exit For '¦b¤é´Á¦³±Æ§Ç, ©¹¤W¹J¨ì¤£¬O³Ì«á¤é´Á, ¸õ¥X°j°é
    If Cells(i, "AQ") = "±b­±¿ù»~" Then K = 1: Exit For '·íAQÄ榳¿ù»~´£¥Ü¤å¦r®É, K½á­È1, ¸õ¥X°j°é
Next i
If K > 0 Then MsgBox "½Ðª`·N!! " & D & " ±b­±¿ù»~ "  '­YK­È¤j¤_0, ªí¥Ü¦³¿ù»~, µo¥X´£¿ô

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD