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

[µo°Ý] ¥¨¶°°õ¦æ·U¨Ó·UºC?

[µo°Ý] ¥¨¶°°õ¦æ·U¨Ó·UºC?

¤p§Ì¦³¤@­Ó±Æµ{ªº¥¨¶°¡A¤§«e¤]¬O½Ð±Ð³o¸Ìªº°ª¤âstillfish00¨ó§U¸Ñ¨Mªº
¤£ª¾¹D¬O¤£¬O¹q¸£¦ÑÂÂÁÙ¬O¸ê®Æ¶q¹L¤j¡A¨Ï¥Î¤@¬q®É¶¡¤§«á³o¤@¬q·U¶]·UºC ( ¥Î¤½¥qªºNB¶]±Nªñ6~7¤ÀÄÁ )
·Q½Ð±Ð¦U¦ì°ª¤â¬O§_¦³¥[³tªº¤èªk¡A©ÎªÌ¨ä¹ê¬O¦]¬°¨ä¥L³¡¤À§Ú¦Û¦æ¿ý»s«÷´ê¥X¨Óªº¬q¸¨¼vÅT©Ò¥H¤~·|·U¨Ó·UºC?

ESOD_XT_AA.rar (472.05 KB)

            Dim s1 As Long, s2 As Long
            Dim cindex As Long
            With Sheets("¥X³f¤é")
            Set Rng = .Range(.[a1], .[a1].End(xlToRight).End(xlDown).Offset(, -1))  '[¥X³f¤é]¸ê®Æ½d³ò
            End With
            For Each c In Sheets("¥æ´Á").Range("E2:E" & Sheets("¥æ´Á").[a1].End(xlDown).Row)  '[¥æ´Á]¸ê®Æ¶ñ¤J½d³ò
            If c.Offset(, -4).Value <> c.Offset(-1, -4).Value Then
                cindex = 1
                s1 = 0  '²Ö¿n¦Ü«e¤@§å¼Æ¶q
                s2 = 0  '²Ö¿n¥X³f»Ý¨D¼Æ¶q
            Else
                s1 = s1 + c.Offset(-1, -1).Value
            End If
            Do While s2 <= s1
                cindex = cindex + 1
                If Application.IsError(Application.VLookup(c.Offset(, -4).Value, Rng, cindex, False)) Then
                    Exit Do
                Else
                    s2 = s2 + Application.VLookup(c.Offset(, -4).Value, Rng, cindex, False)
                End If
            Loop
            If s2 <= s1 Then
                c.Value = "NA"
            Else
                c.Value = Rng.Cells(1, cindex).Value
            End If
            Next
            Set Rng = Nothing
    '¦bEÄæ¶ñ¤J¥æ´Á
Adam

¥»©«³Ì«á¥Ñ r1145kimo ©ó 2015-9-10 04:58 ½s¿è

ª©¤j±z¦n,¤p§Ì¤£¤~¸ÕµÛ¦^µª,¥Ñ©óEXCEL ¨C­ÓCELL¦³§ó§ïªº¸Ü·|¥þ³¡¦Û°Ê­«·s­pºâ¤@¦¸,¬G©ó°j°é°õ¦æ«e¥ýÃö³¬¦Û°Ê­«ºâ,°j°éµ²§ô«á¦A¦æ¶}

TOP

¥»©«³Ì«á¥Ñ r1145kimo ©ó 2015-9-10 05:08 ½s¿è
ª©¤j±z¦n,¤p§Ì¤£¤~¸ÕµÛ¦^µª,¥Ñ©óEXCEL ¨C­ÓCELL¦³§ó§ïªº¸Ü·|¥þ³¡¦Û°Ê­«·s­pºâ¤@¦¸,¬G©ó°j°é°õ¦æ«e¥ýÃö³¬¦Û°Ê ...
r1145kimo µoªí©ó 2015-9-10 04:56



ª©¤j±z¦n,
¥Ñ©óEXCEL ¨C­ÓCELL¦³§ó§ï·|¥þ³¡¦Û°Ê­«·s­pºâ¤@¦¸,¬G©ó°j°é°õ¦æ«e¥ýÃö³¬¦Û°Ê­«ºâ
°õ¦æ«á¦A¥´¶}¦Û°Ê­«ºâ§Y¥i~ªþ¤W»yªk

Book2.rar (4.31 KB)

»yªk

TOP

¦^´_ 1# adam2010
6-7¤ÀÄÁ¬O¶]¦h¤j¸ê®Æ¶qªº®É¶¡?  À³¸Ó¤£¬O«ü¶]§AªºªþÀɪº³t«×§a
¥t¥~­ì©«H¤j¦³´£¨Ñ¦r¨å¤èªk¡A¶]¤j¶q®ÉÀ³¸Ó·|§Ö±o¦h¡C

http://forum.twbts.com/viewthrea ... p;extra=&page=2
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 1# adam2010

¢°¡D¿ý»s½X¥»¨Ó°õ¦æ´NºC¡A¤×¨ä§t¦³¤Ó¦hªº Select¡A¶·¾ã²z¬°§ó¦³®Äªº¤è¦¡¡A
¡@¡@¤£¦P»Ý¨Dªºµ{¦¡¡AÀ³¤À§O¥H sub «Ø¥ß³æ¿Wµ{§Ç¡A­n¤Þ¥Î®É call ¤@¤U§Y¥i¡A
¡@¡@¹³ Sheets("WIP") ³¡¥÷¡A¹ê¥i¿W¥ß¦¨³æ¤@µ{§Ç¡I
¡@¡@¦ý¦]¤£¤F¸Ñ³B²z»Ý¨D¬yµ{¡A¥B³¡¥÷»yªk¦boffice 2000µLªk¨Ï¥Î¡A©Ò¥HµLªkÀ°¦£¾ã²z¡I
¢±¡D¶È°w¹ï¡e¥æ´Á¡f¤u§@ªí´£¨Ñ­Ó¤H¤£¥¿³Wªº¼gªk¡A¥i³æ¿W´ú¸Õ¨ä°õ¦æ³t«×¡A
¡@¡@¥t°õ¦æµ²ªG»P­ìÀɵ{¦¡ªºµ²ªG¦³³¡¥÷¤£¬Û¦P¡]¢ÚÄæ¼Ð¥Ü¬õ¦rªÌ¡^¡A½ÐÀˬd¤@¤U¡I
¢²¡D¥t´£¨Ñ¬Û¦P¸ê®Æ°t©³¦âµ{¦¡¡Aµøı¤W¸û©ö¤À¿ë¦U½s¸¹ªº°_¨´°Ï¶ô¡I
  1. Sub ¥æ´Á()
  2. Dim R&, C&, Arr, Brr, DateRow, xD, i&, j&, SS&, S&, T$, M
  3. R = [¥X³f¤é!A65535].End(xlUp).Row - 1
  4. C = [¥X³f¤é!IV1].End(xlToLeft).Column - 1
  5. Arr = [¥X³f¤é!A1].Resize(R, C)
  6. ReDim Brr(1 To C - 1)
  7. Set xD = CreateObject("Scripting.Dictionary")
  8. For j = 2 To C: Brr(C - j + 1) = Arr(1, j): Next j: DateRow = Brr ¡@'¤é´Á¥Ñ¤j¦Ó¤p­ËÂà
  9. ¡@
  10. For i = 2 To R
  11. ¡@For j = 2 To C¡@ '¼Æ¶q²Ö­p¡e¥Ñ«á¦Ó«e¡f±Æ¤J°}¦C
  12. ¡@¡@¡@S = Val(Arr(i, j)): SS = SS + S
  13. ¡@¡@¡@If S = 0 Then Brr(C - j + 1) = "" Else Brr(C - j + 1) = SS
  14. ¡@Next j
  15. ¡@If SS > 0 Then xD(Arr(i, 1)) = Brr: SS = 0¡@ '±N²Ö­p¼Æ¦C¯Ç¤J¦r¨åÀÉ
  16. 101: Next i
  17. '======================================================
  18. R = [¥æ´Á!A65535].End(xlUp).Row
  19. Arr = [¥æ´Á!A1].Resize(R, 4)
  20. ReDim Brr(1 To R, 0): Brr(1, 0) = "¥æ´Á"
  21. For i = 2 To R
  22. ¡@¡@T = Arr(i, 1): S = Arr(i, 4)
  23. ¡@¡@If T <> Arr(i - 1, 1) Then SS = S Else SS = SS + S ¡@'¢ÏÄæ¬Û¦P¡A²Ö­p¡A¤Ï¤§¡A¨ú·í«e¼Æ¶q
  24. ¡@¡@M = Application.Match(SS, xD(T), -1) ¡@ '§Q¥ÎMATCH¡e¤Ï§Ç¡f§ä¬Û¹ï¦ì¸m
  25. ¡@¡@If S = 0 Or IsError(M) Then Brr(i, 0) = "NA" Else Brr(i, 0) = DateRow(M)¡@ 'µL²Å¦X¶ñNA¡A§_«h¶ñ¤é´Á
  26. Next i
  27. [¥æ´Á!E1].Resize(R) = Brr
  28. End Sub
½Æ»s¥N½X
ªþ¥ó¤U¸ü¡G
ESOD_XT_AA_v001.rar (425.39 KB)
¡@

TOP

¦^´_ 3# r1145kimo

r1145kimo¤j¡A·PÁ±zªº¦^´_¡A©ñ¤W¥h¤§«á¯u±o§Ö¤F«Ü¦h
¬O©Ò¦³ªº°j°é¨ç¼Æ³£¥i¥H¥Î¶Ü?
¨º¥i¤£¥i¥H¤@¶}©l°õ¦æ¥¨¶°´NÃö³¬¡A³Ì«á°õ¦æ§¹²¦¦sÀɤ§«e¦A¥´¶}?
Adam

TOP

¦^´_ 4# stillfish00


   
Dear stillfish00¤j¡A´N¬O¶]ªþÀɪº¸ê®Æ(¤@¤d¦hµ§)¦Ó¤w
¤§«eH¤j´£¨Ñªº»yªk¡A¥X²{¿ù»~¦b²Ä¤C¦æªº¦a¤è
Set rng = a.EntireRow.SpecialCells(xlCellTypeConstants, xlNumbers) 'À³¥æ³f¼Æ¶q
¦]¬°¤£¤ÓÀ´»yªk¡A¹ê¦b§ä¤£¥X­þ¸Ì¦³°ÝÃD©Ò¥H´N¨S¦³¨Ï¥Î¤F
¦Ó¤@¶}©l±z©Ò´£¨Ñªº°j°é°õ¦æ¤]ÆZ§Öªº¡A©Ò¥H´N³o¼Ë¨Ï¥Î¡A
¥i¯à¬O§Ú«á¨Ó¤S³°Äò¿ý»s¤@¨Ç·s¼Wªº¥\¯à¼vÅT¤F³o¤@¬q°j°éªº°õ¦æ³t«×
­è¤~Å¥r1145kimo¤jªº«Øij¤w¸g§Ö«Ü¦h¤F¡A¦A¦¸·PÁ±z¥X¤â¬Û§U~
Adam

TOP

¦^´_ 5# ­ã´£³¡ªL


          ·PÁ ­ã´£³¡ªL¤j´£¨Ñªº«Øij & Sample
¦]¬°¤£¤ÓÀ´»yªk¡A©Ò¥H¥ý¨D¥[³t¤@ÂI§Y¥i¤£´±¤j¸v­×§ï
¦ý¬O±z´£¨Ñªº½d¨Ò¤]±aµ¹§Ú¨ä¥L¤u§@ªº¤@¨Ç·s·Qªk¡AÁÂÁ±z~
Adam

TOP

¥»©«³Ì«á¥Ñ r1145kimo ©ó 2015-9-14 07:56 ½s¿è

¦^´_ 6# adam2010
¥u­n¦b¿é¥Xµ²ªG¤§«e¶}

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD