Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板

本文来自网络资料参阅加以修改，如有侵权联系作者删除，谢谢
找了好久的资料没有很齐全的想要的那种盯盘方式，于是就自己动手制作了个盯盘的Excel模板，如图

废话不多说直接上源码：
打开Excel，添加3个模块
模块1：

Private Sub Workbook_Open() '点击此处循环获取开始，结束记得保存，关闭Excel
If Range("Sheet1!a2").Value <> "" ThenApplication.Goto Reference:="R2C2:R50C6"Selection.ClearContents
Range("A1").SelectElse'Range("Sheet1!a2").Value = ""
End IfApplication.OnTime Now + TimeValue("00:00:01"), "GetData"'ActiveWorkbook.Save '保存
End Sub

以上代码是延时1秒运行名字是GetDatade的宏

模块2

Function FillOneRow(url As String, r As Integer) As IntegerWith CreateObject("msxml2.xmlhttp").Open "GET", url, False.send'Application.Wait Now + TimeValue("00:00:01") '延时一秒sp = Split(.responsetext, "~")If UBound(sp) > 3 ThenApplication.Wait Now + TimeValue("00:00:01") ' 提示音延时一秒FillOneRow = 1Cells(r, 2).Value = sp(1) '名称Cells(r, 3).Value = sp(3) '当前价格Cells(r, 4).Value = sp(4) '昨日收盘价Dim zhangDie As DoubleDim chengjiaoliang As DoublezhangDie = sp(32)Cells(r, 5).Value = zhangDieCells(r, 6).Value = chengjiaoliang '8列为自定义规则，声音接口调用If zhangDie > 0 Then'上涨使用红色Cells(r, 5).Font.Color = vbRedCells(r, 3).Font.Color = vbRedElse'下跌使用绿色Cells(r, 5).Font.Color = &H228B22Cells(r, 3).Font.Color = &H228B22End IfElseFillOneRow = 0End IfEnd With
End FunctionSub GetData()Dim succeeded As IntegerDim url As StringDim row As IntegerDim code As StringFor row = 2 To Range("A1").CurrentRegion.Rows.Count '从第二行开始code = Cells(row, 1).ValueIf code <> "" Thenurl = "http://qt.gtimg.cn/q=sh" & code '沪市succeeded = FillOneRow(url, row)If succeeded = 0 Thenurl = "http://qt.gtimg.cn/q=sz" & code '深市succeeded = FillOneRow(url, row)End IfIf succeeded = 0 ThenApplication.OnTime Now + TimeValue("00:00:27"), "Workbook_Open"'MsgBox ("获取失败")End IfEnd IfNextApplication.OnTime Now + TimeValue("00:02:06"), "Workbook_Open"ActiveWorkbook.Save '保存
End Sub在这里插入代码片

这个模块是获取资料并写入excel，运行完后再运行模块1，两个相互循环运行

模块3

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
'下面是自定义的SYTS(）声音函数，要添加别的声音只用更换下面的SYTS，和想要的声音文件即可
Function SYTS(str As String) As String
Dim WAVFile As String
SYTS = str
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
WAVFile = "C:\Windows\Media\tada.wav" 'wind系统的声音文件，可以改为自己需要的
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Function

此模块是声音提示，H1:H20000设置结果使用上自定义的SYTS(）就会发出指定的声音，自定义函数使用方法:

比如：SYTS(“随便填写”)

状态函数公式：
H2填写：
=IFERROR(IF(A2<>"",IF(C2="",“待更新”,IF(-(G2-C2)/G2>11.42875%,SYTS(“赚啦！待出仓”),IF(-11.42857%>-(G2-C2)/G2,SYTS(“亏了,待补仓”),“监听中”))),""),"")
然后选定H2下拉充填到合适位置

创建走势图超链接两步搞定：
1.组合函数组合走势图链接(此链接是调用新浪截图)：

J2填写：
=IF(Sheet1!A2+0>600000,“http://image.sinajs.cn/newchart/min/n/sh"&Sheet1!A2&".gif",“http://image.sinajs.cn/newchart/min/n/sz”&Sheet1!A2&".gif”)
K2填写：
=IF(Sheet1!A2+0>600000,“http://image.sinajs.cn/newchart/daily/n/sh"&A2&".gif",“http://image.sinajs.cn/newchart/daily/n/sz”&Sheet1!A2&".gif”)
L2填写：
=IF(Sheet1!A2+0>600000,“http://image.sinajs.cn/newchart/weekly/n/sh"&A2&".gif",“http://image.sinajs.cn/newchart/weekly/n/sz”&Sheet1!A2&".gif”)
M2填写：
=IF(Sheet1!A2+0>600000,“http://image.sinajs.cn/newchart/monthly/n/sh"&Sheet1!A2&".gif",“http://image.sinajs.cn/newchart/monthly/n/sz”&Sheet1!A2&".gif”)
填完后选定J2:M2下拉充填到需要的位置(此J:M列为辅助列)，然后隐藏J:M

2.创建走势图链接(使用HYPERLINK()函数);
N2填写（日k线图）：
=IF(B2="","",IF(A2="","",HYPERLINK(J2,B2)))
O2填写（周k线图）：
=IF(B2="","",IF(A2="","",HYPERLINK(K2,B2)))
P2填写（月k线图）：
=IF(B2="","",IF(A2="","",HYPERLINK(L2,B2)))
Q2填写（年k线图）：
=IF(B2="","",IF(A2="","",HYPERLINK(M2,B2)))
选定N2:O2下拉充填到需要的位置，盯盘助手模板制作完毕！
有什么问题欢迎一起来讨论学习 @_@

最后提示各位，股市有风险，投资谨慎！

作者：则有
联系邮箱：verbautumn@gmail.com

Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板相关推荐

【金融工程实验】【matlab】使用candle函数画日均k线图
使用candle函数画日均k线图要求数据数据读入数据处理显示图形本实验为课程设计需求要求下载一支股票2020年2月.3月的日线数据,并用MATLAB绘制日K线图,要求绘制5日均线和20 ...
R语言使用quantmod包的getSymbols函数从指定金融数据源获取指定时间段的股票数据、获取美国10年期债券收益率数据
R语言使用quantmod包的getSymbols函数从指定金融数据源获取指定时间段的股票数据.获取美国10年期债券收益率数据目录 R语言使用quantmod包的getSymbols函数从指定金融数 ...
HQChart使用教程2- 如何把自定义指标显示在K线图页面
如何把自定义指标显示在K线图页面自定义一个指标通过Option设置指标自定义一个带参数的指标让我们用上证指数来回测这个奇葩的BS指标吧 HQChart代码地址效果图自定义一个指标假设我们 ...
HQChart使用教程4- 如何自定义K线图颜色风格
如何自定义K线图颜色风格切换整体风格函数 uniapp/小程序修改部分配置颜色风格配置字段说明配置项说明 y轴顶部刻度文字向下偏移 X轴底部刻度文字,向下偏移 K线标题字段配色修改 PC端to ...
通达信导出个股某段时间的数据以及在 Excel 中画 K 线图
打开通达信软件以中盐化工这支股票为例,输入股票首字母拼音即可找到相应股票双击进入该支股票盘后数据下载点击左上角的 ' 系统 ' ,下拉菜单中选择 ' 盘后数据下载 ' 勾选 ' 日线和实时行情 ...
R语言使用quantmod包的getSymbols函数从指定金融数据源获取指定时间段的股票数据、获取欧元兑美元汇率数据、每次请求只能获取500天以内的数据、多了会报错
R语言使用quantmod包的getSymbols函数从指定金融数据源获取指定时间段的股票数据.获取欧元兑美元汇率数据.每次请求只能获取500天以内的数据.多了会报错目录 R语言使用quantmod ...
plotly基于dataframe数据绘制股票自定义K线图
plotly基于dataframe数据绘制股票自定义K线图 # 绘制蜡烛图并自定义可视化形式: import plotly as py import plotly.graph_objs as go ...
【python量化交易学习】从tushare获取股票交易数据，存入后再从mysql或excel读取数据，筛选股票，用pyecharts画出K线图。
选定日期,筛选涨幅达到10%的股票,并画出K线图.观察涨停后股票走势. 由于创业板涨停板为20%,科创板20%,北交所30%.因此筛选出的涨停股票不完全准确.考虑到目前市场打板主要集中在10%的主板股 ...
Android使用自定义View来实现K线图、分时图
使用自定义View来实现K线图.分时图实现原理 1.分时图 2.K线图 3.十字标 4.缩放.滑动实现步骤基类BaseChart 画图总结下面附上Demo的下载地址废话不多说先上效果图 ...
android自定义实现分时图,Android专业版K线图、分时图 android-kline
android-kline 基于MPAndroidChart的专业K线图简介 android-kline是Android平台的金融图表库,包括分时图和K线图.本项目通过继承的方式定制了最新版本的MP ...

Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板

Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板相关推荐

最新文章

热门文章

Excel 函数 自定义规则 VBA 实现 实时 语音 声音 提示 功能 股票 数据 资料 获取 盯盘 助手 K线图 模板

Excel 函数 自定义规则 VBA 实现 实时 语音 声音 提示 功能 股票 数据 资料 获取 盯盘 助手 K线图 模板相关推荐

最新文章

热门文章

Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板

Excel 函数自定义规则 VBA 实现实时语音声音提示功能股票数据资料获取盯盘助手 K线图模板相关推荐