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

[µo°Ý] ¤é´Á§PÂ_¦³°ÝÃD?

[µo°Ý] ¤é´Á§PÂ_¦³°ÝÃD?

¦pªþÀÉ Book2.zip (10.32 KB)

¦^´_  t8899
c_c_lai µoªí©ó 2016-6-21 08:01


§¹¥þ¥¿½T¡A thanks

TOP

¦^´_ 1# t8899
  1. Private Sub CommandButton1_Click()
  2.     Dim W, k
  3.    
  4.     For k = 2 To 500
  5.         '  W = Format(Cells(k, "A"), "YYYY/MM/DD")
  6.         W = Cells(k, "A")                     '  Äæ¦ìÀx¦s®æ¦¡¬°°ê¾ä
  7.         '  If Cells(k, "A") > Date Then
  8.         If W > Format(Date, "EE/MM/DD") Then  '  ±N Date ¦P¨BÂର°ê¾ä
  9.             MsgBox Cells(k, "A").Row
  10.             Exit For
  11.         End If
  12.     Next
  13. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD