doom834

¥[¤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

GBKEE

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

hugh0620

¦^´_ 8# naruto018


          °ÝÃD²M·¡!!

          ¤§«e´ú¸Õ®É¡A¦bRUNªº®É­Ô¬O¨S¦³°ÝÃD¡A²{¦b­n§â¤u¨ã¦b°µ¤@¨Ç½Õ¾ã«á¡A
          ´Nµo¥Í³o­ÓNothingªº°ÝÃD¥X¨Ó¡A¦³¸ÕµÛ¦bµ{¦¡½X­×§ï¡A¦ý¸Õ§¹ÁÙ¬O¿ù»~¡A
          ¤£ª¾¹D¸Ó¦p¦ó­×¥¿³o­Ó°ÝÃD¡C

Kubi

¦^´_ 1# hugh0620
A = A.Offset(0, 0).Row
µ¥¸¹¥kÃ䪺 A ©ó¤W¦æ³Q³]©w¦¨ Range ª«¥óÅܼơA¦Óµ¥¸¹¥ªÃ䪺 A ¬O«o¬O¥H¼Æ­ÈÅܼÆ(«ü¦VRow)§e²{¡A¥i¯à¬O¦¹³¯­z¦¡¥X²{¥Ù¬Þªº°ÝÃDÃöÁä¡C
¥t¥~Áٻݭn¦p8¼Óªº naruto018 ¤j»¡ªº Find ¶·¥[¼g­Y§ä¤£¨ì®Éªº¨¾§b¾÷¨î¡C

naruto018

¦^´_ 1# hugh0620


    ¦]¬°Find§ä¤£¨ì­n´M§äªº¤å¦r
©Ò¥H¦^¶ÇNothingµ¹ÅܼÆ
¾É­P¤U¤@¦æÅܼƪº³B²z¥X¿ù

hugh0620

¦^´_ 6# hcm19522

           ¦A¦¸·PÁÂ!!

          ¦ý»Ý­nªº¬Oµ{¦¡½Xªº¸Ñªk¡A«D¨ç¼Æªº¸Ñªk¡C
          ¸ê®Æ¬O«ùÄòªº§ó·s¡Aµ§¼Æ¤£¤@©w¡A¤£¦Ò¼{¥Î¨ç¼Æ¨Ó¸Ñ¨M³o­Ó°ÝÃD¡C
          ³o­Ó³¡¤À¡A¶È¬O§Ú¾ã­Ó¬[ºc¤@³¡¤À­n¸Ñ¨Mªº°ÝÃD¡A©Ò¥H¡A·|¦Ò¶q¨ìÀɮפj¤pªº°ÝÃD¡C

hcm19522

¦^´_ 5# hugh0620
¤U©Ô~~~~~~

hugh0620

¦^´_ 4# hcm19522


    ·PÁÂ!!  ¦ý»Ý­nªº¬Oµ{¦¡½Xªº¸Ñ¨M¡C  (¦]¤£¤î¥u¦³¸Ñ¨M¤@µ§¡A¦Ó¬ONµ§¸ê®Æ¡C)

hcm19522

X12=SUMPRODUCT((EOMONTH(G$11:G$1499*1,0)=EOMONTH(DATE(LOOKUP(9^9,V$12:V12),W12,1),0))*(M$11:M$1499=""))

hugh0620

¦^´_ 2# linyancheng


    ©Ò¥H¡A­n³]©w­þ­ÓÅܼƩO??  ¸Ó¦p¦ó³]©w©O??