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

½Ð°Ý ¥ÎvbaºI¹Ï «D¿z¿ïª¬ºA¥i¥HÂ^¨ú ¦ý ¿z¿ï«á¤£¯à½Ð°Ý ¸Ó«ç»ò§ï©O

½Ð°Ý ¥ÎvbaºI¹Ï «D¿z¿ïª¬ºA¥i¥HÂ^¨ú ¦ý ¿z¿ï«á¤£¯à½Ð°Ý ¸Ó«ç»ò§ï©O

¤j¤j
½Ð°Ý ¦pªG
§Ú¬O ±Æ§Ç³o³£ÁÙ¥i¼gvbaºI¹Ï

¦pªG¬O¼Æ­È¿z¿ï«á
¦pªG»Ý­n¨ú23ÀɼЪº ¸ò¨ìw¦C

½Ð°Ý¸Ó«ç»ò­×¥¿¤U­±³o¤@¬q©O

    Dim Rng As Range
    Set Rng = Range("A1:v35") '«ü©wªº½d³ò
    'Set Rng = Selection      '·Æ¹«¿ï©wªº½d³ò
    Rng.CopyPicture
    With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '·s¼W ¹Ïªí
        .Chart.Paste                                           '¶K¤W ¹Ï¤ù
        .Chart.Export FileName:="d:\" & Format(Date, "yyyy-mm-dd") & "¦X­p¶R½æ¤ñbuy" & ".png"
        
       ' .Chart.Export FileName = "D:\" & Format(Date, "yyyy-mm-dd") & ".png"     '¶×¥X ¹Ï¤ù"
        
        .Delete                                                '§R°£ ¹Ïªí
    End With
    Selection.AutoFilter

2015-6-7 ¤U¤È 01-24-01.png (114.9 KB)

2015-6-7 ¤U¤È 01-24-01.png

¦^´_ 1# vavashop

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub EX()
  3.     Dim Sh As Worksheet, Rng As Range
  4.     Set Rng = ActiveSheet.Range("A1:v35")   '«ü©wªº½d³ò
  5.     Set Sh = Sheets.Add         '·s¼Wªº¤u§@ªí
  6.     Rng.AutoFilter 1, "A"       '*** ½Ð­×§ï§Aªº¦Û°Ê¿z¿ï ±ø¥ó ***
  7.     With Sh '·s¼Wªº¤u§@ªí
  8.         Rng.Copy .[A1]          '½Æ»s ¤w¦Û°Ê¿z¿ïªº½d³ò
  9.         .UsedRange.CopyPicture  '¨Ï¥Î½d³òÀx¦s®æªº¿Ã¹õ¼v¹³½Æ»s¨ì°Å¶Kï
  10.         With .ChartObjects.Add(1, 1, .UsedRange.Width, .UsedRange.Height)  '·s¼W ¹Ïªí
  11.             .Chart.Paste                                           '¶K¤W ¹Ï¤ù
  12.             .Chart.Export Filename:="d:\" & Format(Date, "yyyy-mm-dd") & "¦X­p¶R½æ¤ñbuy" & ".png"
  13.         End With
  14.         
  15.         'DisplayAlerts ÄÝ©Ê  ¯S©w¦pªG¥¨¶°¦b°õ¦æ®É Microsoft Excel Åã¥Ü¯S©wªºÄµ§i©M°T®§«h¬° True¡CŪ/¼g Boolean¡C
  16.         Application.DisplayAlerts = False
  17.         .Delete                 '§R°£'·s¼Wªº¤u§@ªí
  18.         Application.DisplayAlerts = True
  19.     End With
  20.     Rng.AutoFilter
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

Rng.AutoFilter 1, "A"       '*** ½Ð­×§ï§Aªº¦Û°Ê¿z¿ï ±ø¥ó ***
    With Sh '·s¼Wªº¤u§@ªí
        Rng.Copy .[A1]          '½Æ»s ¤w¦Û°Ê¿z¿ïªº½d³ò

¤j¤j¬O§ï³o­Ó??

§Ú»Ý­nªº¬O ¾î¦V¨ìV
¦C©¹¤U§ì35­Ó

©ç¥X¨Óªºµe­±¬O¹Ï¤ù³o¼Ë ¦³ÂI©Ç
¬O­þÃä¿ù¤F¶Ü?

2015-06-07¦X­p¶R½æ¤ñbuy.png (20.27 KB)

2015-06-07¦X­p¶R½æ¤ñbuy.png

TOP

¤j¤j§Ú¥Î¦n¤F ·PÁÂ

½Ð°Ý¦pªG§Ú­n©T©w§ì³oºô­¶ªº
EXCEL ¹F¤HÄ_¨å ªºÀÉ®× ¨ì§Úªº EXCEL¸Ó«ç»ò§ì §Ú·Q§â ¥LªºÀɦW·í¦¨¤À­¶ªº¦WºÙ§Y¥i
§Ú¦³·Q¹L ´N¬O¦Û¤v¦bA1¼W¥[¤@­ÓÄæ¦ì¬°¤é´ÁµM«á§â¥¦Åܦ¨¶W³sµ² ¦b§ì¤U¨Ó¤§«á¦A§ï¤À­¶¦WºÙ
¤£ª¾¹D¤j¤j¦³¤ñ¸û«Øijªº¤è¦¡¶Ü?

http://iwarrant.capital.com.tw/wdataV2/canonical/capital/%E6%AC%8A%E8%AD%89%E9%81%94%E4%BA%BA%E5%AF%B6%E5%85%B82015-06-05.xls  

http://iwarrant.capital.com.tw/warrants/wCanonical.aspx

TOP

Sub aw2e()


Dim y, m, d, param As String ' «Å§i y, m, d, param ¬°¦r¦êÅܼÆ

    y = Sheets("¤W¥«").Range("B2") ' ¦è¤¸¦~
    m = Format(Sheets("¤W¥«").Range("B3"), "00") ' ¤ë¡A¨Ï¥ÎFormat¨ç¼Æ±j¨î¤Q¦ì¼Æ¸É0
    d = Format(Sheets("¤W¥«").Range("B4"), "00") ' ¤é¡A¨Ï¥ÎFormat¨ç¼Æ±j¨î¤Q¦ì¼Æ¸É0
    param = (y - 1911) & "/" & m & "/" & d ' ¥Á°ê¦~/¤ë/¤é
   

Range("A1").Select
    ActiveCell.FormulaR1C1 = _
     "http://iwarrant.capital.com.tw/wdataV2/canonical/capital/%E6%AC%8A%E8%AD%89%E9%81%94%E4%BA%BA%E5%AF%B6%E5%85%B8" & y & "-" & m & "-" & d & ".xls"
   
    '¤U¤è¶}©lÂI¿ïa1ºô§}¦C
    '¤U¸ü«á½Æ»s ¶K¦^     Sheets("¹F¤HÄ_¨å¼È¦s").Select
    '
    '
     Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Cells.Select
   
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Selection.Copy
    Windows("2012-2015¤ëÀ禬(Á`¸ê®Æ®w2)new¤j­×§ï20150511.xlsm").Activate
    Sheets("¹F¤HÄ_¨å¼È¦s").Select
    Cells.Select
    ActiveSheet.Paste
   
    Windows("ÅvÃÒ¹F¤HÄ_¨å" & y & "-" & m & "-" & d & " .xls").Activate
    ActiveWindow.Close
    Application.DisplayAlerts = False  'Ãö³¬Äµ¥Üµøµ¡
   

½Ð°Ý¤@¤U³o¤@¬q     Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ·|¥d¦í

½Ð°Ý¬O¤£¬O­þÃä¥X¤F°ÝÃD??

½Ð¤j¤j«üÂI¤@¤U

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD