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

[µo°Ý] ¡¹½Ð±Ð¦U¦ì vba¾ã²z¼Æ¾Ú°ÝÃD¡A®Ú¾Ú±ø¥ó¡A¶}¯S©w·sÀÉ¡A¶KÀÉ¡AÀx¦s¡A¦A±ø¥ó§PÂ_ªº°ÝÃD

[µo°Ý] ¡¹½Ð±Ð¦U¦ì vba¾ã²z¼Æ¾Ú°ÝÃD¡A®Ú¾Ú±ø¥ó¡A¶}¯S©w·sÀÉ¡A¶KÀÉ¡AÀx¦s¡A¦A±ø¥ó§PÂ_ªº°ÝÃD

¦b¤U¤~­è¾Çvba¤£¤[¡A¥Ñ©ó°ÝÃD¤@ª½¸Ñ¤£¥X¨Ó¡A¥u¯à§¹¦¨³¡¥÷µ{¦¡½X¡A©Ò¥H¨Ó½Ð±Ðª©¤W¦U¦ì¡C       Àɮצp³Ì«á¤@¦æªºªþ¥ó¡G

µ{¦¡½X²­z¡G
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub §¹¾ã¥h§ì²Å¦X±ø¥óªº¸ê®Æ¤£Â_©¹¤U¶KªºÂù°j°é¥Îªk()

  Worksheets("¿ï¾ÜÅv¾ã²z®æ¦¡").Copy after:=Worksheets(Worksheets.Count) '±N½Ð´Ú®Ñ­ì«¬sheet¡A½Æ»s¨ì¤u§@ªí3«á­±¡A.count´N¥NªíÄݩʳ]¬°.name
  Worksheets(Worksheets.Count).Name = "2011_1_6900" '±N·s¼Wsheetªº¦WºÙ³]©w¬°a¤½¥q¡A³sÄò«öf5·|¿ù»~¡A¦]¤w³]©w¦WºÙ
  
  Dim i As Double ' ¤u§@ªí1 ¥Îªº­p¼Æ¾¹ÅܼÆ
  Dim x As Double ' 1¤ë¿ï¾ÜÅv ¤u§@ªí¥Îªº­p¼Æ¾¹ÅܼÆ
  Dim sheets1 As Range     '­ì©l¿ï¾ÜÅvªº¤u§@ªí1ªí®æªº°ò·ÇÂI
  Dim month1data As Range  '1¤ë¿ï¾ÜÅv¾ã²z«á ¤u§@ªí ªº°ò·ÇÂIÀx¦s®æ

x = 2 '³]©w¦n°ò·ÇÂI´N¤£¥Î³]¬°2¡A¦]1¤ë¿ï¾ÜÅv ¤u§@ªí¬O±q²Ä2¦C¶}©l¶K¸ê®Æ¡A±N2©ñ¦bxÅܼÆ
  
  Set sheetsx = Worksheets("¤u§@ªí1").Range("A2")
  Set month1data = Worksheets("2011_1_6900").Range("A2")

'±N¿z¿ïªº­ì©l¿ï¾ÜÅv¸ê®Æ½Æ»s¨ì 1¤ë¿ï¾ÜÅv ¤u§@ªí

For i = 1 To sheetsx.CurrentRegion.Rows.Count                     '±qa2¨ì³Ì«á¤@Äæ¡A«Å§i­ì©l¿ï¾ÜÅv¸ê®Æ ¦C¼Æªº°j°é
  
    If Worksheets("¤u§@ªí1").Cells(i, 4).Value = "6900" Then                       '¦pªG¼i¬ù»ù¬°6900«h¶i¦æ
  
  Worksheets("2011_1_6900").Cells(x, 1).Value = Worksheets("¤u§@ªí1").Cells(i, 1).Value      '¥æ©ö¤é´Á

  Worksheets("2011_1_6900").Cells(x, 2).Value = Worksheets("¤u§@ªí1").Cells(i, 2).Value        '«´¬ù
  Worksheets("2011_1_6900").Cells(x, 3).Value = Worksheets("¤u§@ªí1").Cells(i, 3).Value         '¥æ³Î¤ë¥÷
  Worksheets("2011_1_6900").Cells(x, 4).Value = Worksheets("¤u§@ªí1").Cells(i, 4).Value       '¼i¬ù»ù
  Worksheets("2011_1_6900").Cells(x, 5).Value = Worksheets("¤u§@ªí1").Cells(i, 5).Value       '¶R½æÅv
  Worksheets("2011_1_6900").Cells(x, 6).Value = Worksheets("¤u§@ªí1").Cells(i, 6).Value       '¶}½L»ù
  Worksheets("2011_1_6900").Cells(x, 7).Value = Worksheets("¤u§@ªí1").Cells(i, 7).Value       '³Ì°ª»ù
  Worksheets("2011_1_6900").Cells(x, 8).Value = Worksheets("¤u§@ªí1").Cells(i, 8).Value       '³Ì§C»ù
  Worksheets("2011_1_6900").Cells(x, 9).Value = Worksheets("¤u§@ªí1").Cells(i, 9).Value       '¦¬½L»ù
  Worksheets("2011_1_6900").Cells(x, 10).Value = Worksheets("¤u§@ªí1").Cells(i, 10).Value   '¦¨¥æ¶q
  Worksheets("2011_1_6900").Cells(x, 11).Value = Worksheets("¤u§@ªí1").Cells(i, 11).Value   'µ²ºâ»ù
  Worksheets("2011_1_6900").Cells(x, 12).Value = Worksheets("¤u§@ªí1").Cells(i, 12).Value   '¥¼¨R¾P«´¬ù¼Æ
  Worksheets("2011_1_6900").Cells(x, 13).Value = Worksheets("¤u§@ªí1").Cells(i, 13).Value   '³Ì«á¶R¶i»ù®æ
  Worksheets("2011_1_6900").Cells(x, 14).Value = Worksheets("¤u§@ªí1").Cells(i, 14).Value   '³Ì«á½æ¥X»ù®æ
  
x = x + 1                   'Åý1¤ë¿ï¾ÜÅv¤u§@ªí¤u§@ªíªº½Æ»s¦ì¸m¦V¤U²¾°Ê¤@¦C
    End If
Next i
End Sub
-----------------------------------------------------------------------------------------------------------------------------

»¡©ú¡G¤u§@ªí1¬°2011¦~1¤ë¿ï¾ÜÅv«´¬ù¡A2011_6900¤u§@ªí¬°§Ú¼gµ{¦¡«á¾ã²z¦nªº¸ê®Æµ²ªG

¤W­±³o¬qµ{¦¡½X¥i¥H§â"¤u§@ªí1"¸Ì ¿z¿ï¥X ¼i¬ù»ù¬°"6900"ªº¤@¾ã¦C ½Æ»s¥X¨Ó¡A¶K¨ì§Ú·s¼Wªº¤u§@ªí¡C

¦ý¬O°ÝÃD1¬°¡G§Ú²{¦b¥u¯à§â¦³"6900"ªº¸ê®Æ§ì¥X¨Ó¡A¦ý¬O§ÚÁÙ¦³7000¡A7100¡D¡D¡D¨ì10200¡A³o¼Ë·|¤Ó¦h¡C

°ÝÃD2¬°¡G§Ú¥u¯à°µ¨ì¥Îµ{¦¡¿z¿ï¥X§Ú­nªº¸ê®Æ¡A¶K¨ì«ü©wªº¤u§@ªí¡C
¡u¦ý§Ú·Q°µªº¬O1 µ{¦¡±½¨ì"6900"&"¶RÅv"¡v
                       2 °¨¤W¶}¤@­Ó·sexcel ÀɦW¬°¡G 2011_1_6900_C.xls
                      3 §â­ì¤u§@ªí¿z¿ï¥X²Å¦X"6900"&"¶RÅv"±ø¥óªº¦C¸ê®Æ¥þ³¡½Æ»s¡A¶K¨ì                     
                         2011_1_6900_C.xls
                      4 ±N2011_1_6900_C.xls Àx¦s¡AÃöÀÉ
                      5 µ{¦¡¤S±½¨ì"7000"&"¶RÅv"
                      6 °¨¤W¶}¤@­Ó·sexcel ÀɦW¬°¡G 2011_1_7000_C.xls
                      7 ¦P¨BÆJ3©M4
                      8  Ä~Äò±½7100¨ì10200¡A»P¤W­z°µªk¬Û¦P
³Ì«á·|·s¼W²£¥Í2011_1_6900_C.xls ¨ì2011_1_10200_C.xls¡A¦@¦³¤­¤Q­ÓxlsÀÉ¥ª¥k
¥t¥~ÁÙ¦³½æÅvªº¸ê®Æ¤]»Ý­n¾ã²z¥X¨Ó¡A©Ò¥HÁÙ¦³ 2011_1_6900_P.xls ¨ì2011_1_10200_P.xls ¤]¤j·§¤­¤Q­ÓxlsÀÉ¥ª¥k

µ²ªG¬°2011_1ªº¸ê®Æ§¨¸Ì·|¦³2011_1_c¸ò2011_1_p¨â­Ó¸ê®Æ§¨¡A2011_1_c¸ê®Æ§¨¸Ì¦³2011_1_6900_C.xls ¨ì2011_1_10200_C.xls¡A¦@¦³¤­¤Q­ÓxlsÀÉ¥ª¥k¡A2011_1_6900_p¸Ì¥H¦¹Ãþ±À¡C
¦p¦¹¤@¨Ó´N§¹¦¨2011¦~1¤ëªº¸ê®Æ¾ã²z¡AÁÙ¦³2¤ë¨ì12¤ë¡D¡D¡D

¸Õ¤F«Ü¤[µLªk¦¨¥\¤~¦V¤j®a½Ð¯q¡C¤å³¹¦³ÂIªø¡A¥ýÁÂÁ¦U¦ì¤F¡C

Àɮצpªþ¥ó¡G
2011¦~ªñ¤ë¿ï¾ÜÅv.rar (326.36 KB)

¦^´_ 1# yagami12th
Àɮפ¤¥u»Ý³B¸Ì ¤u§@ªí1,¤u§@ªí2,¤u§@ªí3, ¤£»Ý­n{¿ï¾ÜÅv¾ã²z®æ¦¡] [2011_1_6900]
  1. Const ThePath = "d:\You\"   '«ü©w¦s©ñªº¥D¸ê®Æ§¨
  2. Sub Ex()
  3.     Dim d As Object, SavePath As String, Sh As Worksheet, R As Variant, E As Variant, Newbook As Workbook
  4.     Dim MonPath As String, ¿ï¾ÜÅv As String, ¼i¬ù»ù As String
  5.     Application.DisplayAlerts = False                           '°±¤î¨t²Î ªº´£¥Ü
  6.     Application.ScreenUpdating = False                          '°±¤î¿Ã¹õ§ó·s¥\¯à
  7.     Set d = CreateObject("scripting.Dictionary")                '«Ø¥ß¦r¨åª«¥ó
  8.     SavePath = Dir(ThePath, 16)                                 '¶Ç¦^«ü©w¦s©ñªº¥D¸ê®Æ§¨
  9.     If SavePath = "" Then MkDir (ThePath)                       '¦p¥D¸ê®Æ§¨¤£¦s¦b «Ø¥ß¥¦
  10.     For Each Sh In Sheets
  11.         d.RemoveAll                                             '¦r¨åª«¥ó ²MªÅ¤lª«¥ó
  12.         With Sh                                                 '¨Ì§Ç³B¸Ì ¨C¤@¤u§@ªí
  13.             For Each R In .Range(.[D2], .[D2].End(xlDown))      '¨C¤@¤u§@ªí¤¤¦bdÄæ
  14.                 d(R.Value) = ""                                 '¦r¨åª«¥ó ³]¥ß¤lª«¥ó(¼i¬ù»ù)
  15.             Next
  16.             MonPath = Mid(.[c2], 1, 4) & "_" & Mid(.[c2], 5)    '¤ë¸ê®Æ§¨
  17.             SavePath = Dir(ThePath & MonPath, 16)               '´M§ä¤ë¸ê®Æ§¨
  18.             If SavePath = "" Then MkDir (ThePath & MonPath)     '¦p¤ë¸ê®Æ§¨¤£¦s¦b «Ø¥ß¥¦
  19.             For Each E In Array("¶RÅv", "½æÅv")                 '¨Ì¿ï¾ÜÅv
  20.                 ¿ï¾ÜÅv = "\" & MonPath & IIf(E = "¶RÅv", "_C\", "_P\")   '¤ë¸ê®Æ§¨\¿ï¾ÜÅv¸ê®Æ§¨
  21.                 SavePath = Dir(ThePath & MonPath & ¿ï¾ÜÅv, 16)
  22.                 If SavePath = "" Then MkDir (ThePath & MonPath & ¿ï¾ÜÅv)
  23.                 For Each R In d.KEYS                            '¦r¨åª«¥ó ¨Ì§Ç³B¸Ì¤lª«¥ó  R (¼i¬ù»ù)
  24.                     .AutoFilterMode = False                     '¤u§@ªí¤¤¨ú®ø¦Û°Ê¿z¿ï
  25.                     .Range("A1").AutoFilter Field:=4, Criteria1:=R, Field:=5, Criteria1:=E
  26.                      'AutoFilter ¤èªk[¦Û°Ê¿z¿ï] ¿z¿ï¥X¤@­Ó²M³æ¡C
  27.                      'Field:=4 ²Ä4Äæ (¼i¬ù»ù) ,Criteria1:=R ·Ç«h=R (¼i¬ù»ù)
  28.                      'Field:=5 ²Ä5Äæ (¿ï¾ÜÅv) ,Criteria1:=E ·Ç«h=E (¿ï¾ÜÅv)
  29.                     ¼i¬ù»ù = Mid(.[c2], 1, 4) & "_" & Mid(.[c2], 5) & "_" & R & IIf(E = "¶RÅv", "_C", "_P")
  30.                     SavePath = ThePath & MonPath & ¿ï¾ÜÅv & ¼i¬ù»ù  '¦sÀɪº§¹¾ã¸ô®|¦WºÙ
  31.                     Set Newbook = Workbooks.Add(1)                  '·s¶}ÀÉ®×(1­¶)
  32.                     .UsedRange.SpecialCells(xlCellTypeConstants).Copy Newbook.Sheets(1).[a1]
  33.                     '¦Û°Ê¿z¿ïªº¸ê®Æ ½Æ»s¨ì·s¶}ÀɮײÄ1­¶ªº.[a1]
  34.                     Newbook.Close True, SavePath                    '·s¶}ÀÉ®×Ãö³¬ ¦sÀÉ
  35.                 Next
  36.             Next
  37.             .AutoFilterMode = False                                 'Â÷¶}¤u§@ªí«ì´_­ìª¬
  38.         End With
  39.     Next
  40.     Application.DisplayAlerts = True                                '«ì´_¨t²Îªº´£¥Ü
  41.     Application.ScreenUpdating = True                               '¿Ã¹õ§ó·s¥\¯à¬O¶}±Òªº«h¬° True¡C
  42.     MsgBox "¤u§@§¹¦¨"
  43. End Sub
½Æ»s¥N½X

TOP

¥ý»°ºò¦^¤å·PÁÂGBKEE¤j¤j¡A§Ú¥ý¦n¦n¬ã¨s¤@¤U¡C

TOP

µ{¦¡¯à§¹¾ã°õ¦æ¡A¨S¦³°ÝÃD¡A·Q¦A½Ð±Ð¡G

¥H2011_01¸ê®Æ§¨¬°¨Ò¡A¦b2011_01_Cªº¸ê®Æ§¨¡A"©Ò¦³ªº¸ê®Æ"¸Ó¦p¦ó§ï¤~¯à ¥u¯d"¶RÅv"ªº¸ê®Æ
¡A¦Ó2011_01_P ¥i¥H¥u¯d"½æÅv"ªº¸ê®Æ¡A¦]¬°C´N¬O¶RÅvªº·N«ä¡AP´N¬O½æÅvªº·N«ä¡A
¤£¦n·N«ä¡A¤S¦A¤@¦¸³Â·Ð¤j¤j¡C
­è¤@ª½¦bGOOGLE ¦r¨å¤¸¥ó¬O¤°»ò¡AÁÙ¦³«Ü¦h¦a¤è­n¬d¡C¼Ðª`ÃC¦â¬O¤è«K¬Ý¡A¦³®É¶R¸ò½æ·|¬Ý¤£²M·¡¡C

¥H¤U¬°¨Ò¤l
­ì¥»®æ¦¡¡G
----------------------------------------------------------------------
¥æ©ö¤é´Á                             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv       
2010/12/16        TXO        201101        6900        ¶RÅv       
2010/12/16        TXO        201101        6900        ½æÅv       
2010/12/17        TXO        201101        6900        ¶RÅv       
2010/12/17        TXO        201101        6900        ½æÅv
¡D¡D
2011/1/19                    TXO        201101        6900        ¶RÅv       
2010/1/19        TXO        201101        6900        ½æÅv

-------------------------------------------------------------------------------
·QÅܦ¨2011_01_6900_C¡G
----------------------------------------------------------------------
¥æ©ö¤é´Á                             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv       
2010/12/16        TXO        201101        6900        ¶RÅv               
2010/12/17        TXO        201101        6900        ¶RÅv       
¡D¡D
2011/1/19                    TXO        201101        6900        ¶RÅv
---------------------------------------
¸ò¡G
2011_01_6900_P¡G
----------------------------------------------------------------------
¥æ©ö¤é´Á                             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv       
2010/12/16        TXO        201101        6900        ½æÅv               
2010/12/17        TXO        201101        6900        ½æÅv
¡D¡D
2010/1/19        TXO        201101        6900        ½æÅv
-------------------------------------------------------------------------
¥ýÁÂÁ¤F¡C

TOP

¦^´_ 5# yagami12th
¦b2011_01_Cªº¸ê®Æ§¨¡A"©Ò¦³ªº¸ê®Æ"¸Ó¦p¦ó§ï¤~¯à ¥u¯d"¶RÅv"ªº¸ê®Æ¡A¦Ó2011_01_P ¥i¥H¥u¯d"½æÅv"ªº¸ê®Æ¡A
¬O¤°·N«ä
µ¹§Aªºµ{¦¡ :  Cªº¸ê®Æ§¨¤£´N¬O¥u¦³¶RÅv"ªº¸ê®Æ,Pªº¸ê®Æ§¨¤£´N¬O¥u¦³½æÅv"ªº¸ê®Æ

TOP

¦^GBKEE¤j¡GCªº¸ê®Æ§¨¬O"¶RÅv"¸ò"½æÅv"¬Ò¦³¡APªº¸ê®Æ§¨¤]¬O"¶RÅv"¸ò"½æÅv"¬Ò¦³¡C

¥H¤U¬°¨Ò¤l¡A¥H6900¼i¬ù»ù¬°¨Ò¡A2011_01¸Ì­±ªº2011_01_C¡A2011_01_P¨â­Ó¸ê®Æ§¨ªºÀɮ׳£¦P®É¥]§t¶RÅv¸ò½æÅv¡A¦p®æ¦¡1©Ò¥Ü

®æ¦¡1¡G
----------------------------------------------------------------------
¥æ©ö¤é´Á                             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv        
2010/12/16        TXO        201101        6900        ¶RÅv        
2010/12/16        TXO        201101        6900        ½æÅv       
2010/12/17        TXO        201101        6900        ¶RÅv        
2010/12/17        TXO        201101        6900        ½æÅv
¡D¡D
2011/1/19                    TXO        201101        6900        ¶RÅv       
2010/1/19        TXO        201101        6900        ½æÅv


¥ýÁÂÁ¤F¡Aµ{¦¡½XÁÙ¦b¬ã¨s¡A¦]¬°¾ÇVBA¤£¤[¡A³£¥u·|«Ü°ò¥»ªº¥Îªk¡A²{¦b¶}©l¶i¶¥¤F¡A¥Î¿ý»sªº¥h½s¿è¸Ì¾Ç¦n¹³¤£°÷¤F¡A­n¦n¦n¬ã¨s°j°é¡A¥Ø«eÁ٧䤣¨ì«Ü¦h½d¨Ò¸ò¸Ô²Óµù¸Ñªº°j°é®Ñ¡A¤Ï¦Ó¬O«Ü¦h¤é¥»¤H¼gªºVBA¤Jªù®Ñ¡Aµù¸Ñ³£«Ü¸Ô²Ó¡Aµ{¦¡³£¯à°õ¦æ¤~¯à¾Ç¨ì²{¦b³o¤@¨B¡A§Ú«Ü¦h¦P¾Ç³£©ñ±ó¾Çµ{¦¡¡A¥L­Ìı±oµ{¦¡¤ÓÃø¾Ç¡A¤@ª½¸õ¿ù»~µøµ¡¾Ç¤£¤U¥h¡C

TOP

©Ò¥H·QÅܦ¨¡G(»¡©ú¡GCªº·N«ä¬O¶RÅv ¡APªº·N«ä¬O½æÅv¡A6900_C´N¬O¼i¬ù»ù¦b6900ªº¶RÅv¡C

¥t¥~¡A¦]¬°2011/1¤ëªº«´¬ù¬O±q2010/12/16¶}©l¡A2011_01_6900_Cªº·N«ä¬°¦b2011¦~ªº1¤ë¶}­Ü¨ìµ²ºâ¡A¦@27¤é¥ª¥kªº¥æ©ö¤é¸Ì­±ªº¨C¤Ñ¡A¼i¬ù»ù¦b6900ªº¶RÅvªº»ù®æÅܤơA©Ò¥H¤~·|Åܦ¨¥H¤U®æ¦¡©Ò¥Ü¡A½æÅv¥H¦¹Ãþ±À)
·QÅܦ¨2011_01_6900_C¡G
----------------------------------------------------------------------
¥æ©ö¤é´Á                             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv        
2010/12/16                          TXO        201101         6900           ¶RÅv               
2010/12/17                          TXO        201101         6900           ¶RÅv        
¡D¡D
2011/1/19                             TXO        201101        6900          ¶RÅv
---------------------------------------
¸ò¡G
2011_01_6900_P¡G
----------------------------------------------------------------------
¥æ©ö¤é´Á                             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv        
2010/12/16                         TXO        201101         6900           ½æÅv               
2010/12/17                         TXO        201101         6900           ½æÅv
¡D¡D
2010/1/19                           TXO        201101        6900            ½æÅv
-------------------------------------------------------------------------
¥ýÁÂÁ¤F¡C

TOP

¦^´_ 8# yagami12th
§ó¥¿5#    Cªº¸ê®Æ§¨¬O"¶RÅv"¸ò"½æÅv"¬Ò¦³¡APªº¸ê®Æ§¨¤]¬O"¶RÅv"¸ò"½æÅv"¬Ò¦³¡C
§ï³o¸Ì¥X¿ù  .Range("A1").AutoFilter Field:=4, Criteria1:=R, Field:=5, Criteria1:=E  ­n¤À¬°2­Óµ{¦¡½X?
  1.                     .Range("A1").AutoFilter Field:=4, Criteria1:=R
  2.                     .Range("A1").AutoFilter Field:=5, Criteria1:=E
½Æ»s¥N½X

TOP

ÁÂÁÂGBKEE¤j¡A§Ú¸Õ¤@¤U¥i¤£¥i¥H¶¶§Q¹B¦æ¡C

¥H2011_1¤ë«´¬ù¬°¨Ò¡G¬O±q2010/12/16¶}©l¥æ©ö¡A¦ý¥H6900ªº¼i¬ù»ù¨Ó»¡¡A¶RÅv¸ò½æÅv»Ý¤À¶}­pºâ¡A²³æ¨Ó»¡·|¥h·|¥h¶R¶i¶RÅvªº¤H´N¬O½ä½L¶Õ¤Wº¦¡A¶R¶i½æÅvªº¤H´N¬O½ä½L¶Õ·|¤U¶^¡A©Ò¥H¨â­ÓªF¦è·N¸q¤£¦P¡A»Ý¤À¶}­pºâ¡C

¿ï¾ÜÅv¸ê®Æ¦³«Ü¦hÃø¥H³B²zªº³¡¥÷¡A¹³2011_1¤ë«´¬ùªº¶}­Ü¨ìµ²ºâ¬O±q2010/12/16¨ì2011/1/19¡A¨Ã¤£¬O­è¦nªº1/1¨ì1/31¡A¥[¤W¸ê®Æ½ÆÂø¡A³o¼Ë¸ê®Æªº¾ã²z¬O¤ñ¸û½ÆÂø¡A°£«D¬OVBA°ª¤â¤~¦³¿ëªk¡A¹³¥ÎMATLAB³£¤£¤@©w¦n¾ã²z¡C

«e­±¦]¬°¿ï¾ÜÅv¸ê®Æ¥]¬Aªñ¤ë¸ò»·¤ë¸ê®Æ«Ü¶Ã¡A©Ò¿×ªñ¤ë¬O«ü·í¤ë¡A¤]´N¬O¤W­±Á|ªº¨Ò¤l¡A»·¤ë´N¬O¤U­Ó©Î¤U¤U­Ó¤ë¥÷µ¥µ¥¡A¤W­z¸ê®Æ¬O§Ú¥Î¸£´Ýµ{¦¡¿z¿ï¥X¨Ó¡A´N·íªì¨S¿ëªk°µ¨ì«ü©wSHEETŪ«ü©wÀɮסA·|Åܦ¨¤@ª½¶}·sEXCEL¡A¥[¤W¤£¤Ó·|¼g°j°é¡A´N¿ý¤@¿ý¡A½Æ»s¶K¤Wµ{¦¡½X§Ë­Ó«Ü¦h¦æ´N¸Ñ¨M¡C¦³ªÅ§Ú¦AÄmÁà¡A©ñ¤W§Úªº¸£´Ýµ{¦¡½X¡C

TOP

¦VGBKEE¤j ­P·q¡A¯uªº¤Ó±j¤F¡Aµ{¦¡½X¾ã²z¦¨¥\¡A¤Ó·PÁ¤F¡C§Ú¦bÄ~Äò§äexcel½d¨Ò½m²ß¡A°j°é§ÚÆZ®zªºÂù¼h´N¶}©l©ü¤F¡A¤£ª¾³o¬O§_¬°¥¿±`²{¶H¡C

¸g¹L³o­Ó½d¨Ò¤~ª¾¹D¡A­n¾ÇªºÁ٫ܦh¡A½×¾Â¤W«Ü¦h¤å³¹­n¬ã¨s¡C¥Ø«eÁ٧䤣¨ì±Mªù»¡©ú¤j¶q¼Æ¾Ú³B²zªºexcel®Ñ¡C

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD