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

§Ú¹J¨ì«Ü«æ¤âªº°ÝÃD?

§Ú¹J¨ì«Ü«æ¤âªº°ÝÃD?

ª©¥D:
§Ú¹J¨ì«Ü«æ¤âªº°ÝÃD?
¥DºÞ»¡¥i¤£¥i¥H°µ®w¦s¼Æ¶q

´N¬O»¡ ¤H®a»â¤@¥óª««~,®w¦s·|¦©±¼¤@­Ó

³o­n³o¼Ë°µ¡C

¦^´_ 1# JEAN


   

TOP

§Ú¬O­n°µ¦b»â¥Î©ú²Óªí¸Ì­±¶Ü?

TOP

¦^´_ 3# JEAN

    §Ú»~·|·N«ä¤F
    ­ì¨Ó¬O­n»P"»s§@¤å¨ã"§@µ²¦X ¨º¯uªº¬O"«æ"¤â¤F
   ¥i¯à­n¼W¥[¤@"®w¦s"¤u§@ªí

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2011-12-17 20:06 ½s¿è

¦^´_ 3# JEAN
  
ªì¾ÇªÌVBA
  1. Private Sub CommandButton1_Click()
  2. ­º­¶
  3. End Sub

  4. Private Sub worksheet_activate()
  5. Application.ScreenUpdating = False
  6. Rows("3:28") = ""
  7. Range("H2:I2") = ""
  8. Sheets("¶i³f¦s®w©ú²Óªí").Range("B3:B10000").Copy Sheets("®w¦s").Range("H3")
  9. Sheets("®w¦s").Range("H2:I2") = "°Ó«~½s¸¹"
  10. Range("H2:H10000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("I2:I3"), CopyToRange:=Range("A2"), Unique:=True
  11. I = 3
  12. Do While Cells(I, 1) <> ""
  13.    X = Application.SumIf(Sheets("¶i³f¦s®w©ú²Óªí").Range("B3:B10000"), Cells(I, 1), Sheets("¶i³f¦s®w©ú²Óªí").Range("E3:E10000"))
  14.    Y = Application.SumIf(Sheets("»â¥Î°O¿ý©ú²Óªí").Range("D3:D10000"), Cells(I, 1), Sheets("»â¥Î°O¿ý©ú²Óªí").Range("G3:G10000"))
  15.    Cells(I, 4) = X - Y
  16.    Cells(I, 2) = Application.VLookup(Cells(I, 1), Sheets("¶i³f¦s®w©ú²Óªí").Range("B3:K10000"), 2, 0)
  17.    Cells(I, 3) = Application.VLookup(Cells(I, 1), Sheets("¶i³f¦s®w©ú²Óªí").Range("B3:K10000"), 3, 0)
  18.    Cells(I, 5) = Application.VLookup(Cells(I, 1), Sheets("¶i³f¦s®w©ú²Óªí").Range("B3:K10000"), 5, 0)
  19.    Cells(I, 6) = Application.VLookup(Cells(I, 1), Sheets("¶i³f¦s®w©ú²Óªí").Range("B3:K10000"), 6, 0)
  20.    I = I + 1
  21. Loop
  22. Columns("H:I") = ""
  23. Range("A1").Select
  24. Application.ScreenUpdating = True
  25. End Sub
½Æ»s¥N½X
»s§@¤å¨ã1.zip (66.51 KB)    ·½¦ÛHsieh¶Wª©¤j¤§»s§@¤å¨ã.xls

TOP

¨S¦³¿ìªk¤U¸ü
¥i¥HE-MAILµ¹§Ú¶Ü
[email protected]

TOP

¥»©«³Ì«á¥Ñ JEAN ©ó 2011-12-21 21:42 ½s¿è

§A¯uªº¦n¼F®`³á~~

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD