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

[µo°Ý] ¡¹(µo°Ý)¤@­Ó¸ê®ÆÄæ¦ì¤£¹ïºÙªº¸ê®Æ¿z¿ï°ÝÃD

[µo°Ý] ¡¹(µo°Ý)¤@­Ó¸ê®ÆÄæ¦ì¤£¹ïºÙªº¸ê®Æ¿z¿ï°ÝÃD

¥»©«³Ì«á¥Ñ yagami12th ©ó 2012-1-5 12:23 ½s¿è

½Ð±Ð¤@¤U¤j®a¡A¬Q¤Ñ±ß¤W¦b«ä¦Ò¤@­Ó¸ê®Æ³B²zªº°ÝÃD¡A°ÝÃD¦p¤U¡G

ªþÀÉ¡G 2010¦~ªñ¤ë¿ï¾ÜÅv.rar (249.22 KB)

¥H¤U¬°2010/1¤ë«´¬ù¸ê®Æ¡A¥H¤u§@ªí1¬°¨Ò ¡G                                            (µù¸Ñ¡G¤u§@ªí1¥Nªí2010/1¤ë¡A¤u§@ªí2¥Nªí2010/2¤ë¡A¥H¦¹Ãþ±À)

±qa2Àx¦s®æ¨ìa37Àx¦s®æ¬°2009/12¤ë17¤éªº"¶RÅv"©M"½æÅv"¦U¼i¬ù»ù¸ê®Æ¡A
±qa38Àx¦s®æ¨ìa73Àx¦s®æ¬°2009/12¤ë18¤éªº"¶RÅv"©M"½æÅv"¦U¼i¬ù»ù¸ê®Æ¡A
¥H¦¹Ãþ±À ¡D¡D
¨ì2010/1/20(µù¸Ñ¡G¥¼¨R¾P«´¬ù¼Æ¬°¥¼¥­­Ü¶q¡A¶RÅv¦³¶RÅvªº¥¼¥­­Ü¶q¡A½æÅv¦³½æÅvªº¥¼¥­­Ü¶q)
(ÀÉ®×½s±Æ¤@ª½±Æ¤£¦n¡Asorry¡A¥HÆ[¹î¥¼¨R¾P«´¬ù¼Æ¨ºÄ欰¥D)
----------------------------------------------------------------------------------
¥æ©ö¤é´Á             «´¬ù        ¥æ³Î¤ë¥÷        ¼i¬ù»ù        ¶R½æÅv        ¶}½L»ù        ³Ì°ª»ù        ³Ì§C»ù        ¦¬½L»ù        ¦¨¥æ¶q        µ²ºâ»ù        ¥¼¨R¾P«´¬ù¼Æ       
2009/12/17        TXO        201001        6900        ¶RÅv        830        895        805        805        45                 820                                                         176       
2009/12/17        TXO        201001        6900        ½æÅv        16        20        12.5        19.5        7294                 19.5                                                         24820       
2009/12/17        TXO        201001        7000        ¶RÅv        750        775        720        720        11                 725                                                         85       
2009/12/17        TXO        201001        7000        ½æÅv        20        28        17.5        27        4631                  27                                                         20925       
2009/12/17        TXO        201001        7100        ¶RÅv        700        700        630        630        2                 630                                                         132       
2009/12/17        TXO        201001        7100        ½æÅv        33        38        23        36.5        5276                  36.5                                                         11340
¡D¡D¡D
¡D¡D¡D
2010/1/20
-----------------------------------------------------------------------------------------------------------------------------------------------------
excel¬ÛÃöªº²[¼Æ¦³max¡Amin¡Alarge¡Asmall¡C§ä³Ì¤j¥Îmax¡A§ä²Ä¤G©Î²Ä¤T¤j¥Îlarge


¦]¬° ¨C¤@¤Ñªº¶RÅv¦³36ÀÉ¡A½æÅv¤]¬O36ÀÉ¡A
©Ò¥H¥ý·s¼W¤@­ÓexcelÀɮ׬°"2010³Ì¤joi"¡A·s¼W12­Ósheet(¦]¬°¬O12­Ó¤ë)¡A¦]¬°¦³¦U­Ó¤£¦Pªº¼i¬ù»ù¡A­n§ä¥X"¨C¤@¤Ñ"ªº¥¼¥­­Ü¶q³Ì¤j­È¬O¸¨¦b­þ¤@­Ó¼i¬ù»ù
¡A¥H¤W­zªº¨Ò¤l¬°(2010/1¤ë«´¬ù)´N±N§ä¨ìªº¸ê®Æ©¹2010³Ì¤joi.xlsx¸Ìªºsheet1¶K¤W(»¡©ú¡G¦]¬°¦b¦P­Óexcel·s¼Wsheet·|Åܪº¤Ó¦h¡AÁöµM·s¼Wsheet¤ñ¸û¦n¼g¡A)

©Ò¥H·|³Ì«á¦¨ªG·|Åܦ¨¡G
(¦b12/17ªº¦UÀɼi¬ù»ùªº¶RÅv¦³36µ§)>¦ý¹ïÀ³ºâ¥Xªº³Ì¤j¥¼¨R¾P«´¬ù¼Æ], "(µù¡G³Ì¤j¥¼¨R¾P«´¬ù¼Æ¤SºÙ³Ì¤j¥¼¥­­Ü¶q)¸¨¦b³o36µ§ªº­þ¤@Àɼi¬ù»ù"¦p12/17¬O¸¨¦b8400ªº¼i¬ù»ù"¡A¥¼¥­­Ü¶q¬°23299(¬°³Ì¤j)¡A ²Ä¤G¤j¥¼¥­­Ü¶qªº¼i¬ù»ù¸¨¦b 8000ªº¼i¬ù»ù¡A¥¼¥­­Ü¶q¬° 21482(²Ä¤G¤j)

¥t¥~¦UÀɼi¬ù»ùªº½æÅv¤]¦³36µ§>>¤]·|ºâ¥X¤@­Ó³Ì¤j¥¼¨R¾P«´¬ù¼Æ]"¬O¸¨¦b­þ¤@Àɼi¬ù»ù¡A»P¤W­zªº¶RÅv»¡©úÃþ¦ü¡C
---------------------------------------------------
ªí®æ®æ¦¡¬°¡G¶RÅv¬°¨Ò(¥H³Ì¤j­È¬°¨Ò)
¤é´Á         ¶RÅv³Ì¤j¥¼­Ü¶q             ¶RÅv³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù-
12/17       23299                              8400------
12/18       25593                              8400------
12/21      26094                             8400------
¡D¡D
¡D¡D
---------------------------------------------------
ªí®æ®æ¦¡¬°¡G½æÅv¬°¨Ò(¥H³Ì¤j­È¬°¨Ò)
¤é´Á         ½æÅv³Ì¤j¥¼­Ü¶q             ½æÅv³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù-
12/17       24820                             6900------
12/18       25593                             6900------
12/21      26450                              6900------
----------------------------------------------------
§¹¦¨ªºªí®æ®æ¦¡¬° ³Ì«á¦X¨Ö¡G

¤é´Á         ¶RÅv³Ì¤j¥¼­Ü¶q             ¶RÅv³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù-          ½æÅv³Ì¤j¥¼­Ü¶q             ½æÅv³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù-
12/17       23299                              8400------                                                         24820                             6900------
12/18       25593                              8400------
12/21      26094                             8400------                                                          26450                             6900------

  ³Ì«á·|µe¦¨³o¼Ëªº¹Ï¡Ghttp://2330.tw/Option_Master.aspx

¤W­±¨Ò¤l¬O­è¦n¶RÅv³Ì¤j¥¼¥­­Ü¶q¼i¬ù»ù¤@ª½¦b"8400"¡A±`±`·|¦³7500¸õ¨ì7800¡A¤S¸õ¨ì8000ªºª¬ªp¡CÆZ¦³½ìªº¤@­Ó²{¶H
¤j·§¬O³o¼Ë¡A¤£ª¾¹D§Ú»¡©úªº²M¤£²M·¡¡D¡D§Ú¤]ÁÙ¦b§ä³B²z³o­Ó°ÝÃDªº¸ê°T¡A³o­Ó½d¨Ò¯à¾Ç·|À³¸Ó¤]¯à¥\¤O¤j¼W¡AÁÂÁ¦U¦ì¡C

¦^´_ 1# yagami12th
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Worksheet, i As Date, M As Variant, AR(), C As Variant
  4.     ReDim AR(1 To 5, 1 To 1)                               '²Ä¤@ºû ¦³5­Ó¤¸¯À ,²Ä¤Gºû ¦³1­Ó¤¸¯À
  5.     AR(1, 1) = "¤é´Á"
  6.     AR(2, 1) = "¶RÅv ³Ì¤j¥¼­Ü¶q"
  7.     AR(3, 1) = "¶RÅv ³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù"
  8.     AR(4, 1) = "½æÅv ³Ì¤j¥¼­Ü¶q"
  9.     AR(5, 1) = "½æÅv ³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù-"
  10.     Application.ScreenUpdating = False
  11.     For Each E In Sheets                                     '¤u§@ªí1,¤u§@ªí2,¤u§@ªí3
  12.        If E.FilterMode Then E.AutoFilterMode = False         '¦³¿z¿ï®É ¨ú®ø[¿z¿ï]
  13.         For i = E.[A2] To E.[A2].End(xlDown)                 '¤é´Á[A2]ª½¨ì³Ì«áªº¤é´Á
  14.             E.AutoFilterMode = False
  15.             E.Range("A1").AutoFilter 1, i
  16.             If E.Range("A1").End(xlDown).Row <> Rows.Count Then   '¦]¤¤¶¡¦³¨S¥æ©ö¤é´Á[¿z¿ï]¤£¨ì¸ê®Æ
  17.                 ReDim Preserve AR(1 To 5, 1 To UBound(AR, 2) + 1) '²Ä¤Gºû ­ì¦³¤¸¯À¦A¥[1¤¸¯À
  18.                 AR(1, UBound(AR, 2)) = i                          '¤é´Á: i
  19.                 For Each C In Array("¶RÅv", "½æÅv")
  20.                     E.AutoFilterMode = False
  21.                     E.Range("A1").AutoFilter 1, i
  22.                     E.Range("A1").AutoFilter 5, C
  23.                     M = Application.Max(E.Range("L:L").SpecialCells(xlCellTypeVisible))
  24.                     AR(IIf(C = "¶RÅv", 2, 4), UBound(AR, 2)) = M              '³Ì¤j¥¼­Ü¶q
  25.                       'IIf(C = "¶RÅv", 2, 4)     C = "¶RÅv"->2  ,C <> "¶RÅv"-> 4
  26.                     Set M = E.Range("L:L").SpecialCells(xlCellTypeVisible).Find(M, LookIn:=xlValues)
  27.                     AR(IIf(C = "¶RÅv", 3, 5), UBound(AR, 2)) = M.Offset(, -8) '³Ì¤j¥¼¥­­Ü¶q¸¨¦b­þ­Ó¼i¬ù»ù
  28.                 Next
  29.             End If
  30.         Next
  31.     Next
  32.     With Sheets.Add(Sheets(1))    '·s¼W¤u§@ªí
  33.         .[A1].Resize(UBound(AR, 2), UBound(AR)) = Application.WorksheetFunction.Transpose(AR)
  34.         .Cells.EntireColumn.AutoFit
  35.     End With
  36.     Application.ScreenUpdating = True
  37. End Sub
½Æ»s¥N½X

TOP

¦^¼i GBKEE¤j¡GÁÂÁ¡A§Ú¦³¸Õ¤Fµ{¦¡½X¡A¦ý¥X²{¥H¤U°ÝÃD¡G

13¡D                   For i = E.[A2] To E.[A2].End(xlDown)                 '¤é´Á[A2]ª½¨ì³Ì«áªº¤é´Á

°õ¦æ¨ì¤W­±³o¦æ¡A¸õ¥Xµøµ¡Åã¥Ü¡G
¥X²{°õ¦æ¶¥¬q¿ù»~ '16':
¹Bºâ¦¡¤Ó¹L½ÆÂø

TOP

¦^´_ 3# yagami12th
¥X²{°õ¦æ¶¥¬q¿ù»~ '16':  ¹Bºâ¦¡¤Ó¹L½ÆÂø     ·í¯u¦p¦¹
2003¥¿±`  ½Ð±N§Aªº¤W¶Ç¬Ý¬Ý

TOP

¥»©«³Ì«á¥Ñ yagami12th ©ó 2012-1-5 20:53 ½s¿è

³Â·ÐGBKEE¤j¤F¡AÁÂÁ¡C§Ú¬O2010ª©¥»ªº¡A§Ú°O±oªþÀɸ̪ºsheet¥u©ñ¤@¤ë¡A¤G¤ë¡A¤T¤ë¡A·N«ä¬°= ¤u§@ªí1¨ì3¡A¬O¨S¦³±N¤u§@ªí1¨ì12¥þ©ñ¤W¥h ¡C

¹q¸£°t³Æ¤]ÁÙ¥i¥H¡AÀ³¸Ó¬O¤£·|¦³°ÝÃD¤~¹ï¡AÆZ¤Ö¨£ªº·Pı¡C

¥H¤U¬°ªþÀÉ¡Acode©ñ¦bmodule1¡G

problem2010¦~ªñ¤ë¿ï¾ÜÅv.rar (249.14 KB)

TOP

¦^´_ 5# yagami12th
¥H¤U¬°ªþÀÉ¡Acode©ñ¦bmodule1¡G
ªþÀɨS¦³module1 ¤]¨Scode
§Ú2003 ¤w§ó·s¥i³B¸Ì2007ÀÉ®× ¨Ã¨S¿ù»~µo¥Í

TOP

¥»©«³Ì«á¥Ñ yagami12th ©ó 2012-1-5 21:21 ½s¿è

GBKEE¤j¡A§Ú­«·s¸Õ¤F¤@¤U¡AÁÙ¬O¤@¼Ë¡AªþÀɧڦA¤TÀˬd¤F¡A­è­è¨Sª`·N¨ì¡A©êºp¡C

ªþÀÉ¡G(excel)
2011¦~ªñ¤ë¿ï¾ÜÅv.rar (644.44 KB)

TOP

¦]¬°¨â±i¹Ïªº®e¶q¤Ó¤j¡A§Ú¦A¥t¥~¶Ç¹Ïªº³¡¥÷¤ñ¸û¸Ô²Ó¡C

¹ÏªºªþÀɬ°¡G
°»¿ù§ì¹Ï1.rar (383.03 KB)
°»¿ù§ì¹Ï2.rar (493.28 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-5 21:42 ½s¿è

¦^´_ 8# yagami12th
¿ù»~­ì¦]: ¤u§@ªí3 ²Ä¤@¦C¬OªÅ¥Õ¦C   ½Ð­×¥¿ ¬°¦P¨ä¥L¤u§@ªí ¬OÄæ¦ì¦WºÙ
¹Ï¤ùÀɮפӤj??  «ö (§ìµe­±Áä)  Print Screen Sys Rq   ¤pµe®a ½s¿è  (¦s gif Àɮפ£·|¤Ó¤j)

TOP

¯uªº­C¡AÁÂÁ¡A§Ú¯u¬O­ÓÄød¡A¦]¬°§Ú®à­±¤W¦n´X­Ó2011ªº¿ï¾ÜÅv¡A§Ú­è¦nÂI¨ì¨º­Ó¦³ªÅ¥Õ¦Cªº¥htray¡C§Ú¦A¸Õ¤@¦¸¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD