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

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

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

Dear ¦U¦ì¥ý¶i,
Excel VBA ¬O§_¥i¥H¨Ì¾Ú"¤µ¤Ñ¤é´Á"¥B¦³"±b­±¿ù»~"¡A¤@¥¹¦¨¥ß«á¡A¦sÀɮɷ|´£¿ô©O¡H
¦A³Â·Ð¤j®a¡A·P®¦¡I¡I





¦sÀɮɷ|´£¥Xĵ§iµe­±.rar (8.92 KB)
Just do it.

¦^´_ 14# n7822123

Hello, n7822123

¤F¸Ñ!
ÁÂÁ±zªº¦^ÂÐ....
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 13# ¼B¤j­G

¨º¨Ç¬O¸ê®ÆÅܼƪºÂ²µu«Å§i¦r²Å~

¸Ô²Ó»¡©ú¦p¤U¹Ï


µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 7# ikboy
¦^´_ 7# ­ã´£³¡ªL

Hello,  ¤j¤j

½Ð°ÝÅܼƫŧi«áªº "&" / "%" ¦U¥Nªí¤°»ò·N«ä?

Dim R, D, i&, K%

¦A½Ð¤£§[§iª¾.
Thanks ~
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 11# ­ã´£³¡ªL


·PÁ­ã¤j¡A¾Ç¨ì¤F~~

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

¦^´_ 7# ­ã´£³¡ªL

ª©¥D±z¦n
¤£¦n·N«ä¡A¥i§_³Â·Ð±z»¡©ú»yªkªº·N«ä
·PÁ±z

TOP

¦^´_ 6# ikboy

Dear ikboy,
·PÁ±z¼ö¤ß«ü¾É¼Ú¡I
Thank you so much.
Just do it.

TOP

¦^´_ 7# ­ã´£³¡ªL
Dear ­ã´£³¡ªL,
·PÁ±zªº¤èªk¡ATEST OK¡C
Thank you.
Just do it.

TOP

¦^´_ 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

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD