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

¸óÀɮצh­«±ø¥ó¥[Á`

¸óÀɮצh­«±ø¥ó¥[Á`

¥»©«³Ì«á¥Ñ hong912 ©ó 2013-8-11 14:50 ½s¿è

¤j¤j­Ì, ¦n
¤p§Ì¥Î¥[Áo­pºâ, ³£¬O¥ÎSUM©Î¦³±ø¥ó¥[Áo, ²{¤p§Ì§Æ±æ¯à¥Î¸óÀɮצh­«±ø¥ó¥[Á`§â¿n¤ÀªíÀɮפº¬Û¦P¤ë¥÷, ¬Û¦P½s¸¹ªº¿n¤À¥[Áo¦Ü­pºâÀɮפºFÄæ,
ªþÀÉ,  §Æ±æ¯à±o¨ì¦^À³, ÁÂÁÂ!!
¿n¤Àªí.rar (6.3 KB) [attach]15756[/attach]

­pºâªí.rar (11.34 KB)

hong912

¦^´_ 1# hong912
¥»¨Ó¥Î xlsx ®æ¦¡Àɮ׹갵¥X¨Ó¤F,
¦ý­n¤W¶Ç¥N½X«e«o¬ðµMµo²{Àɮ׸̪ºµ{¦¡½X¥þ³¡¬Ý¤£¨£(¬Æ¦Ü³sÀɮ׳£ÅÜ°ßŪ)¤F,
©Ò¥H¥u¯à§ï¥Î¦Û¤vª©¥»ªº xls Àɮ׮榡­«°µ«á¤W¶ÇÅo:
  1. Private Sub cbCal_Click()
  2.   Dim lRows As Long, lRow As Long
  3.   Dim wbData As Workbook
  4.   Dim dTar
  5.   
  6.   Set dTar = CreateObject("Scripting.Dictionary")
  7.   Set wbData = Workbooks.Open(Me.Parent.Path & "\¿n¤Àªí.xlsx", , True)
  8.   
  9.   With wbData.Application.Sheets("¤u§@ªí1")
  10.     lRows = .Cells(Rows.Count, 1).End(xlUp).Row
  11.     For lRow = 3 To lRows
  12.       dTar(CStr(.Cells(lRow, 1) & "-" & .Cells(lRow, 3))) = dTar(CStr(.Cells(lRow, 1) & "-" & .Cells(lRow, 3))) + CLng(.Cells(lRow, 7))
  13.     Next lRow
  14.   End With
  15.   
  16.   With Me
  17.     lRows = .Cells(Rows.Count, 1).End(xlUp).Row
  18.     For lRow = 3 To lRows
  19.       .Cells(lRow, 6) = dTar(CStr(.Cells(lRow, 1) & "-" & .Cells(lRow, 2)))
  20.     Next lRow
  21.   End With
  22.   wbData.Close
  23. End Sub
½Æ»s¥N½X
­pºâªí-A.zip (11.09 KB)

TOP

¦^´_ 2# luhpro
ÁÂÁ¤j¤j¦^À³,
«Ý¤µ±ß©ñ¤u¤~¦³®É¶¡¸Õ¥Î,
¯uªº°J¤ßÁÂÁÂ,
hong912

TOP

¦^´_ 1# hong912
  1. Private Sub CommandButton1_Click()
  2. Dim m%, n$
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = Application.GetOpenFilename("¿n¤ÀªíExcel Files (*.xls*), *.xls*", , "½Ð¿ï¨ú¿n¤ÀªíÀÉ®×")
  5. With Workbooks.Open(fs)
  6. m = InputBox("¿é¤J¤ë¥÷", , 10)
  7. n = InputBox("¿é¤J½s¸¹", , "A1")
  8.    With .Sheets(1)
  9.       For Each a In .Range(.[A2], .[A2].End(xlDown))
  10.          d(a & a.Offset(, 2)) = d(a & a.Offset(, 2)) + a.Offset(, 6)
  11.       Next
  12.    End With
  13. .Close 0
  14. End With
  15. [F2] = d(m & n)
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
ÁÂÁª©¤j¦^À³, °J¤ß·PÁÂ, ¤p§Ì­è©ñ¤u¦^®a, µy«á·|¸Õ¥Î¤G¦ì¤j¤jµ{¦¡, ¦b¦¹¦A·PÁÂ,
hong912

TOP

¦^´_ 4# Hsieh
ª©¤j, ¦­±á
ª©¤j©Ò¥Îªº¿é¤J¤ë¥÷¤Î½s¸¹§â¼Æ­È¥[ÁoÅã¥Ü¥X¨Ó, ³o»P¼Ó¤W¤j¤j©Ò¼gªº, ´N¬O§OÃþ­·®æ,
ª©¤j, ¥i§_§âµ{¦¡§ï¼g¬°µL¶·¿é¤J¤ë¥÷¤Î½s¸¹, ¥u­n¥Î®a«ö«ö¶s, ¸ê®Æ¦Û¦æ­pºâÅã¥Ü,  
©Î³\ª©¤j¤Î¼Ó¤W¤j¤j·|©_©Ç, ¼Ó¤W¤j¤jªºµ{¦¡¤£¬O©Ò»Ý­n»ò, , ¨ä¹ê¥D­n¬O§Ú·Q±qª©¤j¤Î¼Ó¤W¤j¤jªºµ{¦¡¤¤§l¨ú¾Ç²ß, ·P®¦...

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD