[µo°Ý] 1¤ÀKÂà´«¤éKªº¶}°ª§C¦¬

bill740615

¦U¦ì¤j¤j¦n¡A
¤p§Ì¤~²¨¾Ç²L¡A½Ð°ÝÀɮסu20160812.xlsx¡v¦p¦óÂà´«1¤ÀKªº¸ê®Æ¬°¤éKªº¶}°ª§C¦¬
Àɮ׸û¤j¡A¤À¨É¦b¶³ºÝªÅ¶¡¡Ahttps://mega.nz/#!g0hCjRwR!YC2ZPOI7ISgFfx3567wr8jQGMMq_WAEP8E4eWYheeRQ
¦A½Ð¤j¤jµ¹¤©«ü±Ð!!

¤U¸ü (27.24 KB)

2018-5-3 20:35

Scott090

¦^´_ 14# quickfixer


    ÁÂÁ´£ÂI
¦³§ä¨ì 01 ªººâªk

quickfixer

¦^´_ 13# Scott090

¨º13­Ó¼Æ¦r¬O unix time,¦³ªººô¯¸¬O¥Î10¦ì¼Æ
¬OÀH®ÉÅܰʪº
#11«Øij­n§ï¦¨Åܰʪºurl,
¦³¨Çºô¯¸·|Àˬd®É¶¡ÂW°O,®t¤Ó¦h¬O¤£¯à¤U¸üªº

01¨ºÃä#271¦³²{¦b®É¶¡Âনunix time¥Îªº°Æµ{¦¡10½X¡B13½X³£¦³
¥i¥H¥h¬Ý¬Ý

Scott090

¦^´_ 12# f3202
¦^´_ 11# iamaraymond

    http://webrtqt.fortunengine.com.tw/rtdata/k-chart/day-9904.txt?ts=1526775289018
½Ð°Ý ¤W¦Cºô§} ªº°Ñ¼Æ "ts=1526775289018" ¬O¤°»ò?

ÁÂÁÂ

f3202

¦^´_ 11# iamaraymond

ÁÂÁª©¤jAP1 AP2 AP3 AP4 AP5 AP6 CHG ROI
       5,10,20,60,120,240pma  º¦¶^  º¦¶^´T

iamaraymond

¦^´_ 10# f3202

¤w¸gÀ°±z§ì¨ì¸ê®Æ¤F
https://raymondchiendtrt.blogspot.tw/2018/05/excel-vba_20.html
¤£¹L¥i¥H½Ð±Ð±z¡A§ì¤U¨Óªº
AP1        AP2        AP3        AP4        AP5        AP6        CHG        ROI
³o¨Ç¬O¬Æ»ò«ü¼Ðªº¸ê®Æ¶Ü?·PÁÂ

f3202

¦^´_ 9# iamaraymond

³o¬O 9904 ªÑ²¼£§Kªº¸ê®Æ
ÁöµMweb¥i¨ú¥X¦ý¬OÁٻݸê®Æ­åªR¦³¨Ç³Â·Ð
¥Î6¼Óµ{¦¡­×§ï°}¦C·d¤£¤F
¥ýÁÂÁª©¤j

iamaraymond

¦^´_ 8# f3202

¥i¥HÀ°±z­×§ï¡A¦ý¥i¥H°Ý¤@¤U³o¬O¬Æ»ò¸ê®Æ¶Ü?

f3202

¦^´_ 7# iamaraymond
½Ð°Ý坂¤j
http://webrtqt.fortunengine.com.tw/rtdata/k-chart/day-9904.txt?ts=1526775289018
³oÁ`¸ê®Æ µ{¦¡¸Ó¦p¦ó­×§ï
ÁÂÁÂ

iamaraymond

¦^´_ 6# bill740615
¤§«e¦³¼g¹L§ì5¦~ªÑ»ùªº¸ê®Æ¡A¤£ª¾¹D²Å¤£²Å¦X§Aªº»Ý¨D

1. Sub test()
   
2. 
   
3. Cells.Clear
   
4. 
   
5. stockno = InputBox("¿é¤JªÑ²¼¥N¸¹")
   
6. 
   
7. Dim t: t = Timer
   
8. Dim myXML As Object
   
9. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
10. 
    
11. Dim myArr(1 To 1500, 1 To 6)
    
12. 
    
13. With myXML
    
14.     .Open "GET", "http://justdata.yuanta.com.tw/Z/ZC/ZCW/CZKC1.djbcd?a=" & stockno & "&b=D&c=1440", False
    
15.     .send
    
16.     myText = .responseText
    
17. End With
    
18. 
    
19.     myText1s = Split(myText, " ")
    
20.     j = 1
    
21.     For Each myText1 In myText1s
    
22.         i = 1
    
23.         myText2s = Split(myText1, ",")
    
24.         For Each myText2 In myText2s
    
25.             If j > 6 Then Exit For
    
26.             myArr(i, j) = myText2
    
27.             i = i + 1
    
28.         Next
    
29.         j = j + 1
    
30.     Next
    
31. 
    
32. [A2:F2] = Array("¤é´Á", "¶}", "°ª", "§C", "¦¬", "¦¨¥æ¶q")
    
33. [A3].Resize(1500, 6).Value = myArr
    
34. 
    
35. Set myXML = Nothing
    
36. Erase myArr
    
37. Debug.Print Format(Timer - t, "0.00’")
    
38. 
    
39. End Sub

½Æ»s¥N½X