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

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

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

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

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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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!!

TOP

¤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ªùªÌ¾Ç²ß,
ÁÂÁÂ!!
hong912

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD