股票監(jiān)控助手是一款利用excel制作的股票行情監(jiān)控工具，軟件體積小巧，是由吾愛論壇網(wǎng)友分享提供的，軟件使用起來(lái)非常方便，非常適合不敢在工作時(shí)間大張旗鼓在網(wǎng)頁(yè)查看行情的朋友，有需要的朋友快來(lái)下載試試吧。

軟件說(shuō)明

最近上班無(wú)聊，但是又不敢大張旗鼓打開瀏覽器去看股票，

于是在Excel里弄了個(gè)股票監(jiān)控小助手，老板還以為我在認(rèn)真分析數(shù)據(jù)

使用方法

在A列輸入你的股票代碼，然后點(diǎn)擊按鈕更新即可

系統(tǒng):Win10 64OFFICE 365測(cè)試使用正常

源碼分享

Sub GET_STOCK()

'-------------Clean old data--------------------------------

Dim bb%, aa%

aa = [d1048576].End(xlUp).row

bb = [b1048576].End(xlUp).row

Range("b3:r3" & bb).ClearContents

'--------------data update time-------------------------------

Range("B1") = Format(Now, "mm-dd / hh:mm:ss") 'update time

'---------------judge stock of SH or SZ------------------------------

  For r = 3 To Range("A1").CurrentRegion.Rows.Count

  dm = Cells(r, 1).Value

        If left(dm, 1) = 6 Or dm = "000001" Then

               url = "http://qt.gtimg.cn/q=sh" & dm 'Shanghai stock

        Else

               url = "http://qt.gtimg.cn/q=sz" & dm 'Shenzhen stock

        End If

          With CreateObject("msxml2.xmlhttp")

        .Open "GET", url, False

        .send

        sp = Split(.responseText, "~")

        If UBound(sp) > 3 Then

'---------------get data part------------------------------

Cells(r, 2).Value = sp(1)   'Name

Cells(r, 3).Value = sp(3)   'Current Price

Cells(r, 5).Value = sp(32)   'Up down %

Cells(r, 6).Value = sp(4)   'Yesterday Price

Cells(r, 7).Value = sp(5)   'Opening price

Cells(r, 8).Value = sp(33)   'Highest

Cells(r, 9).Value = sp(34)   'Minimum

Cells(r, 10).Value = sp(47)   'Harden price

Cells(r, 11).Value = sp(48)   'Drop stop price

Cells(r, 12).Value = sp(38)   'Turnover rate

Cells(r, 13).Value = sp(43)   'Amplitude

Cells(r, 14).Value = sp(6)   'Trading volume

Cells(r, 15).Value = sp(39)   'P/e ratio

Cells(r, 16).Value = sp(44)   'Current market

Cells(r, 17).Value = sp(45)   'Total market value

Cells(r, 18).Value = sp(46)   'price-to-book

'---------------Up or Down color------------------------------

Dim zhangDie As Double

            zhangDie = sp(31)  'up down price

            Cells(r, 4).Value = zhangDie  'up down price

            If zhangDie > 0 Then

                Cells(r, 4).Font.Color = vbRed

                Cells(r, 5).Font.Color = vbRed

            Else

                Cells(r, 4).Font.Color = &H228B22

                Cells(r, 5).Font.Color = &H228B22

            End If

        Else

        End If

    End With

    Next

 End Sub