½Ð±Ð¤@­Ó¥[Áo­pºâ°ÝÃD,

317

«e½ú­Ì, ¦­±á
½Ð±Ð¤@­Ó¥[Áo­pºâ°ÝÃD, ²{¤W¶ÇÀɮ׫Ç, Àɮפº¦³»¡©ú, ½Ð«e½ú­Ì¨ó§U, ÁÂÁÂ!!
CC.rar (25.9 KB)

¤U¸ü¦¸¼Æ: 10

2015-6-20 11:45

317

¦^´_ 6# GBKEE
·PÁª©¤j±Ð¾É
¤p©f¤µ±ß·|¹Á¸Õ¥Î®M¥Î, ¦A«×·PÁÂ,
¯¬Ä@¨­Åé°·, §Ö¼Ö..

GBKEE

¦^´_ 4# 317

¦^´_ 5# hong912

¼Ó¥D 317 »Ý¦bÀÉ®× [®w¦s.xlsx] ¤¤ ´M§äÀÉ®× [¥X¤J°O¿ý.xlsx] ªº¸ê®Æ

xlsx ¬OµL¥¨¶°ªº¬¡­¶Ã¯ÀÉ®×
©Ò¥H µ¹ªºµ{¦¡½X¬O xlsm ¦³¥¨¶°ªº¬¡­¶Ã¯ÀÉ®× ¤¤°õ¦æ
·íµ{¦¡°õ¦æ®É [®w¦s.xlsx] ©Î [¥X¤J°O¿ý.xlsx] ¨S¦³¶}±Ò®Éµ{¦¡·|¦³¿ù»~ªº.
©Ò¥H¤U­±ªºµ{¦¡½X,¶·¤À§O­×§ï¬°§A PC ¤¤³o¨â­ÓÀɮתº¦ì¸m.

1. OP:
   
2.     Workbooks.Open ("³o¸Ì¿é¤J [®w¦s.xlsx] Àɮ׸ô®|")
   
3.     Resume

½Æ»s¥N½X

hong912

¤p§Ì¤]¤U¸ü¦¹ÀɾDzß,
ªº½TÀɮצWºÙ¬O¤£¯àÅܧó, ¦]¤p§Ì§âÀɮצWºÙÅܧó, ©ó¬O©óµ{¦¡¤¤®w¦s§ï¬°¤wÅܧ󤧦WºÙ, ¦ý¨Ï¥Î¬O¨S¦³¤ÏÀ³, §â¥¦§ï¦^­ì¦³¦WºÙ«h¥¿±`µL»~,
GBKEE ª©¤j, ¤p§Ì¤]·Qª¾¹D­ì¦],
¥i§_¸Ñ»¡µ{¦¡, ¦nµ¥§Ú¤@¯ë¤JªùªÌ¾Ç²ß,
ÁÂÁÂ!!

317

¦^´_ 3# GBKEE
ÁÂÁ¤j¤j¦^À³
°J¤ß·PÁÂ,
½Ð±Ð¤U¥y»yªk :
Workbooks.Open ("³o¸Ì¿é¤J [¥X¤J°O¿ý.xlsx] Àɮ׸ô®|")
³o¸Ì¬O§_¬O«ü¸ô®|, ¦pD:\ , ©Î¬OC:\. ½L,
²{®É§âµ{¦¡¶K©ó¤u§@ªí, ¦Ó¨S¦³Åܧó¤U¥y, ¸ê®Æ¬O¥i¥H¹B¦æ
Workbooks.Open ("³o¸Ì¿é¤J [¥X¤J°O¿ý.xlsx] Àɮ׸ô®|")
³o¬O§_µL¶·­×§ï¦Ó¥i¥H¨Ï¥Î,
¥t·Q¸ß°Ý­YÅܧóÀɮצWºÙ«á, ¦b´£¨ú³æ¿é¤J´£¨ú¼Æ¶q, ­ì®w¦s¤u§@ªí¨S¦³Åã¥Ü§ó·s, ­ì¦]¬O.
½Ð±Ð¾É, ÁÂÁÂ!!¯¬§Ö¼Ö, ¨­Åé°·±d!!

GBKEE

¦^´_ 2# 317

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim D As Object
   
3. Sub Main()
   
4.     ®w¦s¬ö¿ý
   
5.     ¥X¤J¬ö¿ý
   
6. End Sub
   
7. Sub ®w¦s¬ö¿ý()
   
8.     Dim i As Integer, S As String
   
9.     Set D = CreateObject("SCRIPTING.DICTIONARY")  '¦r¨åª«¥ó
   
10.     On Error GoTo OP
    
11.     With Workbooks("®w¦s.xlsx").Sheets("¤u§@ªí1")
    
12.         i = 3
    
13.         Do While .Cells(i, "C") <> ""
    
14.             S = .Cells(i, "C") & .Cells(i, "O")
    
15.             D(S) = D(S) + .Cells(i, "G")
    
16.             i = i + 1
    
17.         Loop
    
18.     End With
    
19.     Exit Sub
    
20. OP:
    
21.     Workbooks.Open ("³o¸Ì¿é¤J [®w¦s.xlsx] Àɮ׸ô®|")
    
22.     Resume
    
23. End Sub
    
24. Sub ¥X¤J¬ö¿ý()
    
25.     Dim i As Integer, S As String
    
26.     On Error GoTo OP
    
27.     With Workbooks("¥X¤J°O¿ý.xlsx").Sheets("¤u§@ªí1")
    
28.         i = 4
    
29.         Do While .Cells(i, "B") <> ""
    
30.             S = .Cells(i, "B") & .Cells(i, "G")
    
31.             If D.EXISTS(S) Then
    
32.                 .Cells(i, "J") = D(S)
    
33.                 .Cells(i, "L") = .Cells(i, "I") + .Cells(i, "K") - D(S)
    
34.             Else
    
35.                 .Cells(i, "J") = ""
    
36.                 .Cells(i, "L") = .Cells(i, "I") + .Cells(i, "K")
    
37.             End If
    
38.             i = i + 1
    
39.         Loop
    
40.     End With
    
41.     Exit Sub
    
42. OP:
    
43.     Workbooks.Open ("³o¸Ì¿é¤J [¥X¤J°O¿ý.xlsx] Àɮ׸ô®|")
    
44.     Resume
    
45. End Sub

½Æ»s¥N½X

317

«e½ú­Ì, ¦­±á
¨S¦³¦^À³, ¬O§Úªí¹F¤£²M¦â, ²{­«·s¾ã²z, ¦A±µ¦A¼F, §Æ±æ¯à±o¨ì¦^À³,
²{§Ú§â°ÝÃD¶K¦s®w¦s¤u§@ªí¤º, §Æ±æ¦¹¦¸¯à±o¨ì¦^À³,
·P®¦, ÁÂÁÂ!!
AA.rar (29.15 KB)

¤U¸ü¦¸¼Æ: 17

2015-6-21 11:36