2022年六月跑马场

查看数: 17006 | 评论数: 144 | 收藏 0
关灯 | 提示:支持键盘翻页<-左 右->
    组图打开中,请稍候......
发布时间: 2022-5-25 15:13

正文摘要:

(1)每人推荐一只股票,截至时间该月第一个交易日早上9:15分,截至时间前可以修改。格式:中文名称,代码(可选),推荐理由!         如:中国石化,600028,原油下跌利好加工厂 ...

回复

xclchw 发表于 2022-7-5 14:28
6月推内蒙华电,结果7月开始涨
犇不犇 发表于 2022-7-3 11:44
恭喜获奖的大佬们,今后多多跟他们学习
WZS417 发表于 2022-7-1 09:07
恭喜获奖的大佬们,今后多多跟他们学习
赚赚A 发表于 2022-6-30 21:37
唉,差点点就可以那奖金了!
7到8 发表于 2022-6-30 19:52
第一次拿冠军,虽然这收益和以前的冠军相比,比较一般,但还是有点小开心
快乐鱼 发表于 2022-6-30 17:06
ningmin 发表于 2022-6-30 16:46
坚守了无穷岁月的欧菲光终于在这个月站起来,下个月大佬还继续欧菲光参赛么啊

换朗特智能,是否填权
ningmin 发表于 2022-6-30 16:50
转账转出        现金 -200000        向 shinenande 进行积分转帐        2022-06-30 16:48
转账转出        现金 -300000        向 纪69 进行积分转帐        2022-06-30 16:48
转账转出        现金 -500000        向 7到8 进行积分转帐        2022-06-30 16:47

奖金已发放,注意查收!

ps:用纪大佬给的奖金给纪大佬发钱,别有一番滋味。哈哈
ningmin 发表于 2022-6-30 16:46
快乐鱼 发表于 2022-6-29 16:47
一下冲到第五了,加油

坚守了无穷岁月的欧菲光终于在这个月站起来,下个月大佬还继续欧菲光参赛么啊
ningmin 发表于 2022-6-30 16:45
7到8 发表于 2022-6-30 15:17
只是个人浅见,在大佬面前班门弄斧了,请别介意

哈哈,友谊第一,比赛第二。都是大佬
ningmin 发表于 2022-6-30 16:44
本月未有斩获的朋友可以参与下月比赛。正在报名中。截止日期 2022.07.01 9:15AM
7到8 发表于 2022-6-30 15:17
纪69 发表于 2022-6-30 15:07
早割早安心。。

只是个人浅见,在大佬面前班门弄斧了,请别介意
纪69 发表于 2022-6-30 15:07
7到8 发表于 2022-6-30 14:07
这才刚启动,就扔了?

早割早安心。。
shinenande 发表于 2022-6-30 15:06
7到8 发表于 2022-6-30 14:07
这才刚启动,就扔了?

这是跑马场,又不是实盘,要是川金诺今天能大涨我还不是说34.78卖
7到8 发表于 2022-6-30 14:07
纪69 发表于 2022-6-30 10:14
现价卖出闻泰科技。。

拉涨停也得不了第一。

这才刚启动,就扔了?
纪69 发表于 2022-6-30 10:14
现价卖出闻泰科技。。

拉涨停也得不了第一。
快乐鱼 发表于 2022-6-30 10:04
快乐鱼 发表于 2022-6-30 09:24
欧菲光,集合兑价卖出

7.14元卖出
快乐鱼 发表于 2022-6-30 09:24
欧菲光,集合兑价卖出
快乐鱼 发表于 2022-6-29 16:47
一下冲到第五了,加油
ningmin 发表于 2022-6-29 15:26
纪69 发表于 2022-6-29 09:44
我一直用这个,
第2列是代码,第3列是最新股价,你需要的其它数据它也有,只是我没提取。

感谢大佬!
纪69 发表于 2022-6-29 09:44
我一直用这个,
第2列是代码,第3列是最新股价,你需要的其它数据它也有,只是我没提取。


Sub 更新股价()
For r = 2 To 99
    ds = Cells(r, 2)
    If ds <> "" Then
        dm = Cells(r, 2).Value
        
        If Val(dm) < 600000 Then
            URL = "http://qt.gtimg.cn/q=sz" & dm
        Else
            URL = "http://qt.gtimg.cn/q=sh" & dm
        End If
        
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", URL, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 3 Then
                Cells(r, 3).Value = sp(3)
                Else
                Cells(r, 3).Value = "证券代码错误"
            End If

        End With

    End If
Next

End Sub
ningmin 发表于 2022-6-28 21:58
弃用一个月20块的歪枣网数据。用爬虫白嫖中财网的数据。哈哈
ningmin 发表于 2022-6-28 21:05
数据接口又坏了,有朋友使用什么平台的接口么?推荐一下。
小飞说财经 发表于 2022-6-28 15:19
看不懂,有没有大佬教教我
相聚是缘 发表于 2022-6-23 20:23
进前10了,实盘没有这个好

QQ|小黑屋|手机版|海风股票论坛 ( 闽ICP备05030991号-1 )|网站地图51La

GMT+8, 2025-4-10 00:21

 
快速回复 返回顶部 返回列表