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

[µo°Ý] 劵°ÓDDE¶ÇExcel ¨C¤À¦Û°Ê°O¿ý¼Æ¾Ú

[µo°Ý] 劵°ÓDDE¶ÇExcel ¨C¤À¦Û°Ê°O¿ý¼Æ¾Ú

¥»©«³Ì«á¥Ñ andylin ©ó 2011-7-28 16:08 ½s¿è

¦U¦ì«e½ú¥ý¶i ¤j®a¦n Orz
¦bª©ºô­¶¤W¦³ ¦ý§ÚµLÅv­­¬ÝªþÀÉ ·sª©½×½Í¤£ª¾­n¥h¨º·j¬d´M§ä
«D±`·PÁ±z
·P®¦ Orz

¥»©«³Ì«á¥Ñ andylin ©ó 2011-7-24 18:04 ½s¿è

­Y¦³¥ý¶i«e½ú­Ì­Ìª¾¨ì
ÁٽЦU¦ì¤j¤j«ü¾É Orz
«D±`«D±`·P®¦ Orz

TOP

¦^´_ 2# andylin
½×¾Â¸Ì,©T©w®É¶¡¦Û°Ê­p¿ý¼Æ¾Úªº°Q½×«Ü¦h,§A¬Q¤é¤~µù¥U¬°·|­û,¤£¥²«æµÛµo¤å§äµª®×,
VBAªº¨C¤@µ{§Ç¤ºªºµ{¦¡½X³£¬O®Ú¾Ú­Ó®×ªº»Ý¨D©Ò¼g,µLªkª½±µ®M¥Îªº,
§A¶·¦h¬Ý¬Ý½×¾Â¸Ìªº¤å³¹,¤£À´,¤£·|,¦Aµo¤å¤£¿ðªº.

TOP

GBKEE¤j¤j±z¦n Orz
·PÁ±z¨³³t¦^ÂÐ ¤p§ÌÁÙ¨Ó¤£¤Î¤ÏÀ³
·PÁ±zÄ_¶Q·N¨£ §Ú·|¥ý±q°ò¥»ªº¤å³¹¬Ý°_
§Ú±ßÂI¦^¥hÀ£ÁYÀɮצA¤W¶Ç½×¾Â½Ð±z¶EÂ_
¯uªº«D±`«D±`ÁÂÁ±z
·P®¦ Orz

TOP

¥»©«³Ì«á¥Ñ andylin ©ó 2011-7-24 17:47 ½s¿è

¦^´_ 4# andylin±a¥X

for GBKEE¤j_20110705.rar (83.86 KB)

TOP

¦^´_ 5# andylin
§Ú·Q§â"MSCIÅv­«50"sheet¸ÌÀYªº¼Æ¾Ú  ¦Û°Ê¨C¤ÀÄÁ³£¦³¼Æ¾Úlist¨ì "sheet2"¸ÌÀY
sheet2ªÅªÅ¦p¤] ¤£ª¾§A­nªº¼Æ¾Ú¦p¦ó±Æ¦C,½Ðµ¹­Ó½d¨Ò¤~ª¾¦p¦ó°_ÀY.

TOP

¦^´_ 6# GBKEE


¤j¤j±z¦n
¤£¦n·N«ä
§Ú¤H¥Ø«e¥¿¦bÂå°|
±ß¤W¦^¥h®É§Ú¦A±Nsheet2 listªþÀɵ¹±z

¯uªº«D±`·PÁÂ
·P®¦ Orz

TOP

¥»©«³Ì«á¥Ñ andylin ©ó 2011-7-24 17:48 ½s¿è

¦^´_ 6# GBKEE

¤j¤j±z¦n
¤£¦n·N«ä ³o»ò±ß¤~¦^±z ÁٽШ£½Ì Orz

ªþ¥ó¬O§Ú¦A­×§ïªºexcelÀÉ
ªþ¤Wªþ¥óÁÙ¦³³Ò±z¼·É¯´£ÂI
­Y¦³³y¦¨±z§xÂZ ¾á»~±zÄ_¶Q®É¶¡¤§³B Áٽбz¨£½Ì Orz

«D±`«D±`·PÁ±z
·P®¦ Orz

for GBKEE¤j_20110707.rar (102.46 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-7 08:48 ½s¿è

¦^´_ 8# andylin
§A¤W¶Çªº¬O2007ª© ¹Ï§Î 2003µLªk³B¸Ì
§AµLªk¤U¸üÀÉ®×.¤U¦Cµ{¦¡½X§A¥ý¦sÀÉ«á¦A¶}±Ò¸Õ¸Õ¬Ý.
PS:¨C¤é08:45«e¶}±ÒÀɮ׼ƾڤ~·|¸¨©ó¥¿½T®É¶¡¦ì¸m
  1. 'ThisWorkbook¼Ò²Õªºµ{§Ç
  2. Private Sub Workbook_Open()    '¦¹µ{¦¡¬OÀɮ׶}±Ò®É¦Û°Ê°õ¦æªºµ{¦¡
  3.     Dim E As Range
  4.     If MsgBox("±Ò°Ê¦Û°Ê°O¿ý¸ê®Æ??", vbYesNo) = vbNo Then Exit Sub   
  5.     Sheets("1¤ÀK").UsedRange.Offset(1, 1) = ""       '  ²M°£¬Q¤é¸ê®Æ
  6.     Sheets("5¤ÀK").UsedRange.Offset(1, 1) = ""
  7.     Sheets("15¤ÀK").UsedRange.Offset(1, 1) = ""
  8.     For Each E In Sheets("1¤ÀK").[A2:A302]
  9.         Application.OnTime E, "ThisWorkbook.¸ê®Æ¿é¤J"  '¨Ì[A2:A302]¤ºªº®É¶¡°õ¦æµ{¦¡ ->¸ê®Æ¿é¤J
  10.     Next
  11. End Sub
  12. Sub ¸ê®Æ¿é¤J()
  13.      Dim Ar()
  14.      Ar = Array([MSCIÅv­«50ªÑ!D2], [MSCIÅv­«50ªÑ!E2], [MSCIÅv­«50ªÑ!B2], "", _
  15.                 [Matrix!F2], [Matrix!F3], [Matrix!F4], [Matrix!F144], "", _
  16.                 [SUM(Matrix!AF16:AF47)], [SUM(Matrix!AF48:AF79)], [SUM(Matrix!AF80:AF111)], [SUM(Matrix!AF112:AF143)])
  17.     'Ar°}¦C ->  ¦s¤J§A­nªº¼Æ¾Ú
  18.      If Minute(Time) Mod 1 = 0 Then Sheets("1¤ÀK").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8).Value = Ar  'Minute(Time) Mod 1=0  ¨C¤ÀÄÁ
  19.      If Minute(Time) Mod 5 = 0 Then Sheets("5¤ÀK").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8).Value = Ar  'Minute(Time) Mod 1=0  ¨C5¤ÀÄÁ
  20.      If Minute(Time) Mod 15 = 0 Then Sheets("15¤ÀK").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8).Value = Ar 'Minute(Time) Mod 1 =0 ¨C15¤ÀÄÁ
  21.      'Range("B" & Rows.Count) -> Rows.Count¦CªºÁ`¦C¼Æ 2003ª©: Range("B65536")
  22.      'Range("B" & Rows.Count).End(xlUp) ->Range("B65536")©¹¤W²¾°Ê¨ì¦³¸ê®Æªº¦ì¸m
  23.      '©¹¤W²¾°Ê¨ì¦³¸ê®Æªº¦ì¸m.Offset(1)->Offset(1,0)->©¹¤U¦ì²¾(1¦C,0Äæ)
  24.      '©¹¤W²¾°Ê¨ì¦³¸ê®Æªº¦ì¸m.Offset(1).Resize(1, 8)->ResizeÂX¥R½d³ò(1¦C,8Äæ)
  25. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# GBKEE


GBKEE¤j¤j±z¦n

¤£¦n·N«ä §Ú¥u¦³office2007(·í¦~¶R¹q¸£©±®a°eªº) ¨S¦³Äé2003
³y¦¨±z¤£«K¤§³BÁٽШ£½Ì Orz

§Ú¤w¨Ì·Ó±z¦^¤å«ü¥Ü ±N±z©Ò¼gªºµ{¦¡½Xsave¦b¸ÓexcelªºVBA¸Ì
¦pªþ¹Ï©Ò¥Ü ¤£ª¾§Ú³o¼Ë°µ¹ï¤£¹ï?

20110707 from GBKEE¤j Excel µ{¦¡½X.rar (150.52 KB)

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD