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

[µo°Ý] EXCEL ¤ñ¹ï¸ê®Æ°ÝÃD

[µo°Ý] EXCEL ¤ñ¹ï¸ê®Æ°ÝÃD

¤p§Ì°Ñ·Óºô¯¸¤W¼gªºµ{¦¡­×§ï
¦b¦¹compareab_V3 ªº¸ô®|¸Ì­±­×§ï¤F¤@¤U
¸ê®ÆA©M¸ê®ÆB ,³]¸m¤@­Ó«ö¶s§ó·s«e¶g©M·í¶gªº¸ê®Æ¦Û°Ê¶}¥t¤G­ÓEXCEL 2 & 3 ªº¨ä¤¤(B¡BC¡BL¡BO¡B)Äæ§ì¥X¨Ó¤ñ¹ï

¦ý¾Þ§@¤è­±ªºµ{¦¡½X¤Ó½ÆÂø....­è¾ÇVBA¤£¤ÓÀ´  (ºô¸ô¤W§ìªº§Ú¥u¼W¥[¸ê®ÆA©MBªº«ö¶s¥i¥H¥s¥X¸ê®Æ¨Ó·½)
¬O§_¦³Â²¤Æªº¤½¦¡  :
§Ú·Q­nªº¬O:
1.ÃC¦â®t²§©Ê:¤ñ¹ï¦b¸ê®ÆA©M¸ê®ÆB  ¼Ð¥X¬õ¦â®t²§©Ê
2.¤ñ¹ï«á¥u¯d¤£¦Pªº¸ê®Æ¥X¨Ó,¬Û¦Pªº¸ê®Æ¤£¯d (¦]¬°¬OPartsºÞ²z,©Ò¥H¥u·|¦³ON Hand ¼Æ¶q·|ÅÜ ,·QÅý¥¦±a¥X¨Ó«áª¾¹D¦¹[Parts00X    ,«~¦W,  ON Hand( §e²{ªº¼W¥[©Î´î¤Ö)  ,     »ù®æ ]
Á¿¥Õ¤F´N¬O:¥t¤@­¶¸ê®ÆA  ON Hand¼Æ¶q¬°2  ·í ¸ê®ÆBÅܬ° 0®É    ¤ñ¹ï¦b·sªºSheet«Ý¥X-2
                       ¥t¤@­¶¸ê®ÆA  ON Hand¼Æ¶q¬°2  ·í ¸ê®ÆBÅܬ° 4®É   ¤ñ¹ï¦b·sªºSheet«Ý¥X+2 or 2      
¬O§_¦³¾÷·|°µ¨ì¦¹¥\¯à

3.¦p§Ú§Ú§ó§ï§Úªº¸ê®ÆA©M¸ê®ÆB ³]¸m¤@­Ó«ö¶s§ó·s«e¶g©M·í¶gªº¸ê®Æ¦Û°Ê¶}¥t¤G­ÓEXCEL 2 & 3 ªº¨ä¤¤(B¡BC¡BL¡BO¡BP)Äæ§ì¥X¨Ó¤ñ¹ï
¨ä¤¤¸ê®ÆA©M¸ê®ÆB ·Q¨£¤@­Ó«ö¶s«Ý¥X       ³æ¦s¤ñ¹ïO¡BP §¹«áªº¸ê®Æ¬°
¥t¤@­¶            ¸ê®ÆA  ON Hand¼Æ¶q¬°2        ·í¸ê®ÆB¦w¥þ®w¦sÅܬ° 1®É    ¤ñ¹ï¦b·sªºSheet«Ý¥X-1   
                       ¥t¤@­¶¸ê®ÆA  ON Hand¼Æ¶q¬°2     ·í¸ê®ÆB¦w¥þ®w¦sÅܬ° 4®É   ¤j©óON Hand 2 «h¤£±a¥X¨Ó


¬O§_¦³¾÷·|°µ¨ì¦¹¥\¯à
compareab_v3.rar (582.4 KB) 2.rar (16.45 KB) 3.rar (16.43 KB)
¯«µLªk«I¥Çªº¥@¬É

¦^´_ 1# tmde987
¹ï©ó§Aªº»¡©ú,¤£«Ü¤F¸Ñ,¸Õ¬Ý¬Ý¬O³o¤è¦V¶Ü?
  1. Sub CommandButton4_Click()
  2.     With Workbooks.Open("C:\Documents and Settings\901755\®à­±\±¶®|(§tmanual)\2.xls")
  3.         .Sheets(1).Range("B:C,O:O").Copy Workbooks("compareab_v3.xls").Sheets("¸ê®ÆA").Range("A1")
  4.         .Sheets(1).Range("L:L").Copy Workbooks("compareab_v3.xls").Sheets("¸ê®ÆA").Range("D1")
  5.         .Close
  6.    End With
  7. End Sub
½Æ»s¥N½X
  1. Sub CommandButton5_Click()
  2.   'Workbooks.Open Filename:="C:\Documents and Settings\901755\®à­±\±¶®|(§tmanual)\3.xls"
  3.      With WorkbooksOpen("C:\Documents and Settings\901755\®à­±\±¶®|(§tmanual)\3.xls")
  4.         .Sheets(1).Range("B:C,O:O").Copy Workbooks("compareab_v3.xls").Sheets("¸ê®ÆB").Range("A1")
  5.         .Sheets(1).Range("L:L").Copy Workbooks("compareab_v3.xls").Sheets("¸ê®ÆB").Range("D1")
  6.         .Close
  7.    End With
  8. End Sub
½Æ»s¥N½X
  1. Option Explicit
  2. Sub Ex_¸ê®Æ¤ñ¹ï()
  3.     Dim D As Object, Rng As Range, K As Variant, Msg As Boolean, xi As Integer
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  5.     Sheets("¸ê®ÆA").Cells.Font.ColorIndex = 0
  6.     Sheets("¸ê®ÆB").Cells.Font.ColorIndex = 0
  7.     Sheets("¸ê®ÆA¯Ê¤Öªº").Cells.Clear
  8.     Sheets("¸ê®ÆB¯Ê¤Öªº").Cells.Clear
  9.     Set Rng = Sheets("¸ê®ÆA").[A1]
  10.     Do While Rng <> ""
  11.         Set D(Rng & Rng(1, 2)) = Rng.Resize(, 4)
  12.         Set Rng = Rng.Offset(1)
  13.     Loop
  14.     Set Rng = Sheets("¸ê®ÆB").[A2]
  15.     Do While Rng <> ""
  16.         Msg = False
  17.        If D(Rng & Rng(1, 2)).Cells(3) <> Rng(1, 3) Then
  18.             Msg = True
  19.             D(Rng & Rng(1, 2)).Cells(3).Font.Color = vbRed
  20.             Rng(1, 3).Font.Color = vbRed
  21.         End If
  22.        If D(Rng & Rng(1, 2)).Cells(4) <> Rng(1, 4) Then
  23.             Msg = True
  24.             D(Rng & Rng(1, 2)).Cells(4).Font.Color = vbRed
  25.             Rng(1, 4).Font.Color = vbRed
  26.         End If
  27.         If Msg = True Then
  28.             xi = xi + 1
  29.             Sheets("¸ê®ÆA¯Ê¤Öªº").Cells(xi, "a").Resize(1, 4) = D(Rng & Rng(1, 2)).Value
  30.             Sheets("¸ê®ÆB¯Ê¤Öªº").Cells(xi, "a").Resize(1, 4) = Rng.Resize(1, 4).Value
  31.         Else
  32.             D.Remove (Rng & Rng(1, 2))
  33.         End If
  34.        Set Rng = Rng.Offset(1)
  35.     Loop
  36.     With Sheets("¸ê®ÆA»PB³£¦³ªº")
  37.         If D.Count > 0 Then
  38.             .Cells.Clear
  39.             xi = 1
  40.             For Each K In D.KEYS
  41.                .Cells(xi, "a").Resize(1, 4) = D(K).Value
  42.                xi = xi + 1
  43.             Next
  44.         End If
  45.     End With
  46. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ tmde987 ©ó 2012-12-21 11:30 ½s¿è

·PÁ¼ӤWÀ°§Ú¸Ñ²Ä¤@­Ó°ÝÃD,¥t¥~¥i§_§ï¦¨ ¥u±a¥X¸ê®ÆA»PB®t²§©ÊÅÜÃC¦â,¸ê®ÆA¯Ê¤Öªº,¸ê®ÆB¯Ê¤Öªº
¦Ó¤£±a¥XA»PB³£¦³ªºµ{¦¡ (¼Ð¥Ü®t²§©ÊÃC¦â¤ñ¹ï)

§Ú­«·s±Ô­z¤@¤U²Ä¤G©M²Ä¤T­Ó°ÝÃD

²Ä¤G­Ó°ÝÃD¬O§Æ±æ¯à«Ø¥ß¤@­Óµ{¦¡¶s¡A¦¹¶s¯à¦b·sªºSHEET¶}±Ò¤ñ¹ï
¤ñ¹ï«á¥u¯d¤£¦Pªº¸ê®Æ¥X¨Ó,¬Û¦Pªº¸ê®Æ¤£¯d  °²³]·|Åܰʪº¥u¦³ÄæC ON Hand
Á|¤U­±¨Ò¤l¨Ó»¡¤µ¤Ñ¥u¦³Part3 ON Hand §ïÅÜ«h¤ñ¹ïA & B «á±a¥X¦p¤U¬õ¦r

  ÄæA             ÄæB            ÄæC               ÄæD
[Parts00X    ,«~¦W,   ON Hand(B-A )  ,     »ù®æ ]
·í¬Û¦PParts3 ¦b¸ê®ÆA ON Hand¬°3   ¦b¸ê®ÆB ON Hand¬°1   ¬Û´î¦³®t²§
«h±a¥X¤ñ¹ï®t²§©Ê¨Ó¼Ð¥Ü¬°-2

·í¬Û¦PParts5 ¦b¸ê®ÆA ON Hand¬°6   ¦b¸ê®ÆB ON Hand¬°6 ¬Û´î¬°0®t²§
«h¤£±a¥X¨Ó
[Parts3  ,³¿¯ÀªM¿O, -2[Parts5 , 500]


²Ä¤T­Ó°ÝÃD¬O»¡°²³]¤µ¤Ñ¤ñ¹ï¼W¥[²ÄEÄæ
µy·L­×§ï¤@¤U ¸ê®ÆBªº 5ªºµ{¦¡ Åý¦o±a¥X  Excel 3 ªº¨ä¤¤(B¡BC¡BO¡BP¡BL)  ­ì¥»¥u¦³±a¥X(B¡BC¡BO¡BL)
·Q«Ø¥ß¤@­Ó¤ñ¹ï¶s¤ñ¹ï¸ê®ÆB ¦b¤@­Ó·sªºSHeet
¨ä¥X¨Óªº®t²§¬°¤U
ÄæA               ÄæB                        ÄæC                             ÄæD
PArts            «~¦W        ¥Ø«e¦w¥þ®w¦s-On HAND (¸ê®ÆB)     »ù®æ   

°²³]¤µ¤Ñ¸ê®ÆBªº¦p¤U
Parts3  On HAND 7 ¥Ø«e¦w¥þ®w¦s 5
Parts4  On HAND 1 ¥Ø«e¦w¥þ®w¦s 1
Parts5  On HAND 2 ¥Ø«e¦w¥þ®w¦s 6
«h±a¥X¤ñ¹ï¸ê®Æ¦b¤@­Ó·sªºSheet¬°
[Parts3   ³¿¯ÀªM¿O       2      $500   ]
[Parts5  FUSE 5A 250V  -4       $500     ]
¡°Part4¬Û´î¬°0µL®t²§¤£³Q±a¥X
¯«µLªk«I¥Çªº¥@¬É

TOP

¤W­±ªº«ü¥O¦³¤H·|¶Ü?½ÐÀ°¦£±Ð¤@¤U ÁÂÁÂ!!
¯«µLªk«I¥Çªº¥@¬É

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD