stillfish00

¦^´_ 17# hugh0620
GÄæ¸ê®Æ®æ¦¡¬O¦Û­q¦Ó«D¤é´Á¡AFind®É·|·í¦¨¦r¦ê¨Ó¤ñ¡A¦ý§A¶Ç¤JFindªºST¬ODate¡A©Ò¥H§ä¤£¨ì¡C
­n¹À¶Ç¤JST«e¦AformatÂন¦r¦ê
­n¹ÀGÄæ®æ¦¡³£§ï¤é´Á

stillfish00

¦^´_ 19# hugh0620
¨S³o¦^¨Æ¡A19# ÀÉ®×ÁÙ¬O·|¥X²{¿ù»~¡C

stillfish00

¦^´_ 23# hugh0620
§Úª¾¹D¬°Ô£µ²ªG¤£¤@¼Ë¤F¡C
§A¥i¥H¸Õ¸Õ¥ý«öCtrl+F¡A§A¯à¶]¬O¦]¬°§A¥Ø«eªº¿ï¶µ¬O¦b·j´M'¤½¦¡' ¡A§Úªº¬O¦b·j´M'¤º®e'©Ò¥H°õ¦æ®É¦³Error

Find ªº°Ñ¼Æ¦³«Ü¦h¬OOptional¡A¦ý¬O·í§A¨S«ü©w³o¨Ç°Ñ¼Æ®É¡A¥L·|¥H¤W¦¸¨Ï¥Îªº­È§@¬°¹w³]­È¡C
³o¸Ìªº¤W¦¸¥]§t¨Ï¥ÎªÌ¦³¥Î¨ìCtrl+F·j´M®É¿ï¾Üªº¿ï¶µ¡C

©Ò¥H¡A¥ÎFindªº¸Ü³Ì¦nÁÙ¬O©ú½T«ü©w³o¨Ç°Ñ¼Æ¡C

stillfish00

¦^´_ 25# hugh0620
Find °Ñ¼Æ»¡©ú : https://msdn.microsoft.com/zh-tw ... e-find-method-excel

¦Û¤v²³æ¸Õ´XºØ¼gªk¡A °£¤F²Ä¤GºØ·|Fail¦p¦P¤§«eÁ¿ªº¡A¨ä¥L³£¯à¦¨¥\§a¡C

1. Sub TestCases()
   
2.     Dim ST As Date
   
3.     Dim ED As Date
   
4.     ST = ¤u§@ªí7.Range("W3")
   
5.     ED = ¤u§@ªí7.Range("X3")
   
6.     With ¤u§@ªí7
   
7.         Set A = .Range("G3:G10000").Find(What:=ST, After:=.[G3], LookIn:=xlFormulas, LookAt:=xlWhole)
   
8.         If Not A Is Nothing Then Debug.Print "#1", A.Row Else Debug.Print "#1", "Find Fail"
   
9.         Set A = .Range("G3:G10000").Find(What:=ST, After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
   
10.         If Not A Is Nothing Then Debug.Print "#2", A.Row Else Debug.Print "#2", "Find Fail"
    
11.         Set A = .Range("G3:G10000").Find(What:=Format(ST, "yyyy/mm/dd"), After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
    
12.         If Not A Is Nothing Then Debug.Print "#3", A.Row Else Debug.Print "#3", "Find Fail"
    
13.         Set A = .Range("G3:G10000").Find(What:=.Range("W3").Text, After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
    
14.         If Not A Is Nothing Then Debug.Print "#4", A.Row Else Debug.Print "#4", "Find Fail"
    
15.     End With
    
16. End Sub

½Æ»s¥N½X