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

§Q¥ÎFind§ä¤é´Á¡A¥X²{¿ù»~!!

¦^´_ 10# hugh0620
Application.CountA([AB10:AM10000])=0,¨S¦³¸ê®Æ,·íµMFind(K)§ä¤£¨ì
  1. For K = MS01 To ME02
  2. MsgBox Application.CountA([AB10:AM10000])
  3. Set C = ¤u§@ªí7.Range("AB10:AM10000").Find(K)
  4.     TE01 = C.Offset(0, 0).Row
  5. DS = 0
  6.     For L = A To B
  7.    
  8.         If Range("I" & L) = K Then
  9.            DS = DS + Range("O" & L)
  10.         End If
  11.     Next
  12. 1
  13.     C.Offset(1, 0) = DS
  14.     D = D + 1
  15. Next
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥[¤J is nothing
Set A = Sheets("¦æ¨Æ¾ä").Range("G3:G10000").Find(ST)
If A Is Nothing Then
    '¦Û¦æ¥[¤J§ä¤£¨ìST³o­Ó¦r¦ê©Î¼Æ¦r®Éªº°Ê§@
Else
    A = A.Offset(0, 0).Row
End If

TOP

¦^´_ 10# hugh0620

¸Û¦pGBKEE¶W¯Åª©¥D©Ò¨¥¡A
Find¤§©Ò¥H¥X²{°ÝÃD¡A
¬O¦]¬°§A´M§äªº½d³ò¨S¦³¸ê®Æ¡A
Find§ä¤£¨ì§AÅܼÆKªº­È¡A
§AÀ³¸Ó­n­×§ï¤@¤U[AB10:AM10000]ªº½d³ò¡C

¥t¥~¡A§AFindªº­È¾É¦V TE01 ³o­ÓÅܼơA
¦ý¬O³o­ÓÅܼƦA«á­±¤]³£¨S¦³¦A¥X²{¡A
©Ò¥H¬O¦³ÂIºN¤£µÛÀYºü¡C

¦pªG§A»Ý­n¨ä¥L¨ó§U¡A
«Øij§A¥i¥H§â§Aªº¾ã­ÓÅÞ¿è¸ò¥Øªº¸òª©¤W¼ö¤ß¤j¤j­Ì¤À¨É¡A
§Ú¬Û«H§A¥i¥H±o¨ì«Ü¦nªº¦^õXªº¡I

¯¬§A¶¶¤ß : )

TOP

¦^´_ 13# a5007185


      ¶Ù!! §A¥i¯à»~¸Ñ¤F¡A ´£¨ÑªºÀɮסA¬O°w¹ï§Ú¤@¶}©lPOªº¤å¡A
              A¡BBªº³¡¤À¦b°õ¦æªº¹Lµ{¤¤²£¥Í¿ù»~¡A¦Ó«D¥h°Q½×¤U¥b¬q¸ê®Æªº½d³ò¡C
              A¡BBªº¸ê®Æ¬O¦³ªº¡A¦ýÁÙ¬Oµo¥Í¿ù»~¡C
              ¦]¬°¡A¦b¨C¦¸¼¶¼gFIND®É¡A³o­Ó°ÝÃD¤@ª½­«½Æ©Êªºµo¥Í¡C
              
              ¤U¥b¬qªº³¡¤À¡A¥u¬O³Ìªì§Ú¦b´ú¸Õ²Î­p°Ï¶¡¸ê®Æ®É¡A¦b¦P¤@­ÓSHEET°µÂ²³æªº¼ÒÀÀ¡A
              «á¨Ó¡A¤u¨ã°µ¦n«á¡A¨S¦³¦A¥h­×¥¿³o­Ó³¡¤À!!
              
              ¨ä¹ê³]­pªºÅÞ¿è¡A´N¦p¦Pµ{¦¡½Xªº¤º®e¡A¥D­n¬O¡G²Î­p°Ï¶¡ªº¤u§@¤Ñ¼Æ!!         
              «á®`¶ë¨ì¨C¤@µ§¸ê®Æ¤¤(¶}©l¤é¡Bµ²§ô¤é)¡C ³o­Ó³¡¤À´N¤U¬O¥b¬qªº³¡¤À¡A³o­Ó¬O¨S¦³°ÝÃDªº!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 14# hugh0620

©êºp¡A§Úµy·L¾ã²z¥H¤W¦U¦ì¤j¤jªí­zªº·N¨£¡C

Find¨ç¼Æ¦pªG¸Ó½d³ò§ä¤£¨ì§Aªº¥Ø¼Ðªº®É­Ô¡A
¨ç¼Æ·|¦^õX¡uNothing¡v¡A
¦Ó¬JµMSet A = Nothing¡A
·íµMA´N¤£·|¦³RowªºÄÝ©Ê¡A
©Ò¥Hµ{¦¡¤~·|¸õ¿ù¡A
³o´N¬O§A°ÝÃDªº©Ò¦b¡C

©Ò¥H¬°¤FÁקK³o­Ó°ÝÃD¡A
¦b°õ¦æ A = A.Offset(0, 0).Row ¤§«e¥ýÀˬdA¬O§_¦s¦b¡A
­Y¤£¦s¦b«h¸õ¥X°T®§¨Ã°±¤îµ{¦¡¹B§@¡C
  1. Set A = ¤u§@ªí7.Range("G3:G10000").Find(ST)
  2. If A Is Nothing Then
  3.     MsgBox "A³¡¤À¿é¤Jªº¤é´Á¤£¦s¦b": Exit Sub
  4. Else
  5.     A = A.Offset(0, 0).Row
  6. End If

  7. Set B = ¤u§@ªí7.Range("G3:G10000").Find(ED)
  8. If B Is Nothing Then
  9.     MsgBox "A³¡¤À¿é¤Jªº¤é´Á¤£¦s¦b": Exit Sub
  10. Else
  11.     B = B.Offset(0, 0).Row
  12. End If
½Æ»s¥N½X

TOP

¦^´_ 12# doom834


          ¶Ù¡AÁÂÁ§Aªº´£¿ô¡A ¤£¥[¤Jis nothing ¬O¬G·Nªº¡A
                  ¬°¤°»ò¤£¥[¤J¡A¥Ñ©ó¡A¦b­pºâ¥Í²£ªº­t¸ü±¡ªp¡A¤£¯à­pºâ¿ù»~¡A
                  ±¡Ä@Åýµ{¦¡¦b¶]®É­Ô¡Aµo²{¿ù»~¡AµLªk°õ¦æ¤U¥h¡A¨Ï¥ÎªÌ´N·|¤ÏÀ³!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 15# a5007185

          ¶Ù!!    ¥i¯àÁÙ¬O¨S¦³²M·¡´£°Ýªº°ÝÃD!!
                  
                   °ÝÃDÂI¡G¸ê®Æ¦³¡A¦ý«oµo¥Í§ä¤£¨ì¸ê®Æªº°ÝÃD¡C
                  
                   ¦Ó«D¬O±´°Q¡A¸ê®Æ¨S¦³®Éªº³B¸m!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¤F¸ÑA ¬O§_¦³ª«¥ó:
Set A = ......
if not A is Nothing then  ..........

TOP

FIND_ªºÀ³¥Î°ÝÃD_¤w¸g­×¥¿.zip (104.04 KB)
                              
                               ¦P¤@¼ËªºÀɮסA¬Û¦PA¡BBªº³]©w¡A¤U¥b¬q°µ¤F¤p½Õ¾ã¡A¾ã­Óµ{¦¡¬O¥i¥H³Q°õ¦æªº¡C
                               ¦ý§ÚÁÙ¬O¤£¯à²z¸Ñªº¬O¡A¬°¤°»ò·íªìA¡BB·|¥X²{Nothing (¦ý¸ê®Æ¤W©ú©ú¦³)¡A
                               §Ú«á¨Óªº³B²z¬O¡A§â
                                Set A = ¤u§@ªí7.Range("G3:G10000").Find(ST)   <=¤£°Ê
                                       A = A.Offset(0, 0).Row             <=A§ï¦¨A01¡AA01 = A.Offset(0, 0).Row
                               ­«·sRUN¡A´N¥i¥HRUN¡AA¤]¨S¦³¦Aµo¥ÍNothingªº±¡ªp¡C
                               µM«á¡AA01 = A.Offset(0, 0).Row ¤S§ï¦^A = A.Offset(0, 0).Row
                               ¸ÕµÛ¦brun¡A¤]¨S¦³µo¥Í°ÝÃD¡C
                              
                               Áö¬O¡A°ÝÃD³Q¸Ñ¨M¡A¦ý§ÚÁÙ¬O¤£¤F¸Ñ¡A¨ì©³¬O«ç»ò¦^¨Æ¡A
                               ¬O­þ­ÓÀô¸`¡B©Î¬O³]©w¤Wªº»Ý­n¦p¦ó½Õ¾ã!!
                               ³o¬O§ÚºÃ´bªº¦a¤è¡A¦³½Ð¤j¤j«ü±Ð!!
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

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

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD