§Q¥ÎFind§ä¤é´Á¡A¥X²{¿ù»~!!
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 17# hugh0620
GÄæ¸ê®Æ®æ¦¡¬O¦Ûq¦Ó«D¤é´Á¡AFind®É·|·í¦¨¦r¦ê¨Ó¤ñ¡A¦ý§A¶Ç¤JFindªºST¬ODate¡A©Ò¥H§ä¤£¨ì¡C
n¹À¶Ç¤JST«e¦AformatÂন¦r¦ê
n¹ÀGÄæ®æ¦¡³£§ï¤é´Á |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2018-8-3 10:49 ½s¿è
¦^´_ 19# hugh0620
¨S³o¦^¨Æ¡A19# ÀÉ®×ÁÙ¬O·|¥X²{¿ù»~¡C |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 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 |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2018-8-6 18:20 ½s¿è
¦^´_ 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- Sub TestCases()
- Dim ST As Date
- Dim ED As Date
- ST = ¤u§@ªí7.Range("W3")
- ED = ¤u§@ªí7.Range("X3")
- With ¤u§@ªí7
- Set A = .Range("G3:G10000").Find(What:=ST, After:=.[G3], LookIn:=xlFormulas, LookAt:=xlWhole)
- If Not A Is Nothing Then Debug.Print "#1", A.Row Else Debug.Print "#1", "Find Fail"
- Set A = .Range("G3:G10000").Find(What:=ST, After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
- If Not A Is Nothing Then Debug.Print "#2", A.Row Else Debug.Print "#2", "Find Fail"
- Set A = .Range("G3:G10000").Find(What:=Format(ST, "yyyy/mm/dd"), After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
- If Not A Is Nothing Then Debug.Print "#3", A.Row Else Debug.Print "#3", "Find Fail"
- Set A = .Range("G3:G10000").Find(What:=.Range("W3").Text, After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
- If Not A Is Nothing Then Debug.Print "#4", A.Row Else Debug.Print "#4", "Find Fail"
- End With
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|