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

°õ¦æ¶¥¬q¿ù»~'91':

°õ¦æ¶¥¬q¿ù»~'91':

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-12-29 11:49 ½s¿è

¤p§Ì¦b¼¶¼g§¹µ{¦¡½X«á~ °õ¦æµo¥Í¤F  °õ¦æ¶¥¬q¿ù»~'91': ªº°ÝÃD
¤w¸g¦³·j¯Á¹L¥H«eªº¤å³¹~ ¦ý¬OÁÙ¬OµLªk§JªA~
http://forum.twbts.com/viewthrea ... F9%BB%7E&page=1
¤å³¹¤¤Hsieh¤j¤j»¡ªº³¡¥÷~ ¦³Àˬd¹L~ ³£¦³³]©w~
½Ð¤j¤j­Ì«ü¾É¤@¤U~
¦]¬°¦³¨Çµ{¦¡¬O·Ó³o¼Ëªº¤è¦¡¼g~ °õ¦æ®É~ ¦³®É¨S¦³°ÝÃD~ ¦³®É¤S·|¥X²{¿ù»~°T®§~


¸É´£¨Ñ¤@­Ó½d¨Ò~ Åý¤j¤j­Ì¶iÀç´ú¸Õ
½d¨Ò.rar (55.27 KB)
¾Ç²ß¤~¯à´£¤É¦Û¤v

¦^´_ 1# hugh0620
  1. Private Sub CommandButton1_Click()
  2. Dim st1 As String, ed1 As String             '«Å§i¬°¦r¦ê
  3. Dim B As Range, C As Range, a As Integer, i As Integer
  4. a = Sheet3.Range("D65536").End(xlUp).Row     '***Sheet4 DÄæ¨S¸ê®Æ  A¥Ã»·¬O1
  5. For i = 3 To A                                '*** A=1 ¤£·|°õ¦æ°j°é
  6.     '¤ë¥÷1
  7.     If Sheet3.Range("AD" & i) = "" Then
  8.        GoTo 1
  9.     Else
  10.        If Sheet3.Range("AE" & i) = "" Then
  11.             st1 = Sheet3.Range("Z" & i)     '¶Ç¦^¦r¦ê
  12.             ed1 = Sheet3.Range("AA" & i)    '¶Ç¦^¦r¦ê
  13.        Else
  14.             st1 = Sheet3.Range("Z" & i)     '¶Ç¦^¦r¦ê
  15.             ed1 = Sheet3.Range("AJ" & i)    '¶Ç¦^¦r¦ê
  16.        End If
  17.       
  18.         Set B = Sheet4.Columns("E").Find(st1, LookIn:=xlValues)                  'LookIn:=xlValues ¤º®e¬°¦r¦ê
  19.         Set C = Sheet4.Columns("E").Find(ed1, LookIn:=xlValues)
  20.         If Not B Is Nothing And Not C Is Nothing Then                            'B , C ¬Ò¶·¬°Range(¦³§ä¨ì)
  21.             Sheet3.Range("AS" & i) = Application.Sum(Sheet4.Range(B.Offset(, 1), C.Offset(, 1)))
  22.         End If
  23.     End If
  24. 1
  25. Next
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

Dear G¤j¤j~
«Ü·PÁ§Aªº¸Ñµª~
¦ý~ ¤p§ÌÁÙ¬O¦³¤@¨Ç°ÝÃD~ ·Q¦V±z½Ð±Ð~
¦]¬°¤]¸ê®Æ®æ¦¡(¤é´Á.±`¼Æ.¦r¦ê)·|³y¦¨µ{¦¡°õ¦æ®É²£¥Í¿ù»~~
©Ò¥H~ ¤p§Ì¦bÀx¦s®æªº¤é´Á®æ¦¡¤W~ ¨ä¹ê¦³¥Îdateªº¤è¦¡Åý¬ÛÃöªºÄæ¦ì³£¬O¥Îdateªº¨ç¼Æ¥[¥H¾ã¦X~
´N¬O·|µo¥Í¿ù»~~
¬Ý¤j¤jªº¸Ñµª¬O±N¤é´ÁÂন¦r¦ê~ ¦A¥h¬d¸ß~
¬O§_ª½±µ¥Î¤é´Á¬d¸ß·|¦³°ÝÃD¹À??
ÁÙ¬O¥H«á¹J¨ì¤é´Á®æ¦¡~ ¥ýÂন¦r¦ê~ ¦A¥h¬d¸ß¤ñ¸û¨S°ÝÃD??
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 3# hugh0620
¤u§@ªí¤W¤é´Áªº·j´M,»PÀx¦s®æªº®æ¦¡³]©w¦³Ãö.
§Aªº¦æ¨Æ¾ä EÄæ®æ¦¡¬O¦Û­q¬°¤å¦r, ­×§ï¬° ¤é´Á®æ¦¡ *2001/3/14  ,§Aªºµ{¦¡´N¥i¥Î¤F .

TOP

¦^´_ 4# GBKEE

G¤j¤j~

¨ä¹ê«á¨Ó¤p§Ì~ ¦b°õ¦æ¤¤~ ÁÙ¬O¦³°õ¦æ¤Wªº¿ù»~~
¤]ªá¤F1~2HR¤~¥þ³¡±Æ°£©Ò¦³¿ù»~(¦³¨Ç¬O¸ê®Æ­±¨Ï¥ÎªÌ¿é¤J¿ù»~ªº¸ê®Æ~ ¦³¨Ç¬O¸ê®Æ®æ¦¡¤Wªº°ÝÃD)~

¤j¤j¬O§_¨ä¥L¬ÛÃö¤é´Á¥ÎFindªº¨Ï¥Î·Qªk~
¨Ò¦p: ¸ê®Æªº«Ø¥ß/®æ¦¡©|ªº³]©w.....µ¥µ¥
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

§Úªº²ßºD¬O¨Ï¥ÎExcel¤º«Øªº¸ê®ÆÅçÃÒ¡A¥i¥H­­¨î¨Ï¥ÎªÌ¿é¤Jªº®æ¦¡¤Î½d³ò

¦pªG¤£¬O¯S®í»Ý¨D¡AÀ³¸Ó¬O«Ü°÷¥Î¤F

³o¼Ë¤@¨Ó¡Aµ{¦¡¤]¤£·|¦Y¨ì¿ù»~ªº¸ê®Æ®æ¦¡¡A¤j¤j´î¤Ö¿ù»~ªºµo¥Í¾÷²v

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD