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

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

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

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


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

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

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

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

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


²µu«Å§i¦r²Å

¸ê®ÆÅܼƲµu«Å§i¦r²Å.png
2020-12-1 00:53
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 14# n7822123

Hello, n7822123

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

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD