½Ð°Ý ¥ÎvbaºI¹Ï «D¿z¿ïª¬ºA¥i¥HÂ^¨ú ¦ý ¿z¿ï«á¤£¯à½Ð°Ý ¸Ó«ç»ò§ï©O
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
½Ð°Ý ¥Î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") & "¦Xp¶R½æ¤ñbuy" & ".png"
' .Chart.Export FileName = "D:\" & Format(Date, "yyyy-mm-dd") & ".png" '¶×¥X ¹Ï¤ù"
.Delete '§R°£ ¹Ïªí
End With
Selection.AutoFilter |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
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¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
¤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 |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
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 |
|
|
|
|
|
|