excel怎么启用宏_用VBA让EXCEL变成股票查看软件
通过简单的VBA编写,我们可以让EXCEL变成股票查看软件,可以查看股票涨跌情况。如果录入了自己的持股信息,还可以查看自己的收益情况。也许有人会说有股票软件为什么还要用EXCEL来查看,这我就不解释了。
以下是EXCEL查看的界面,点“刷新”按钮可以实时刷新股票信息, 红框中的数据是VBA代码会更新的。点“刷新启停”按钮,可以让EXCEL自动刷新信息(5秒刷新一次),再点一次停止自动刷新。
主界面
下面我们简单说下操作的步骤及代码。
1. 新建一个EXCEL文件,另存成“Excel启用宏的工作簿(*.slsm)
2. 打开菜单"开发工具",点工具栏"插入",选择铵钮进行,宏名输入宏名输入“refresh", 按钮名称改为“刷新”。
3. 点上图中的"新建"打开VBA的编辑界面,在右边的代码窗口清空代码,输入文末的代码,保存后关闭VBA代码窗口。
由于代码有400多行,为避免影响阅读,放在了最后。
代码的原理是会针对EXCEL中的市场代码和股票代码,去特定的网址查询股票信息,解析后在页面显示。
4. 参照"刷新"按钮的创建方法,创建“刷新启停”按钮并指定宏名为startRefresh。
5. 参照主界面图输入基本信息,股票的代码根据自己的要求来填写。注意数据的开始位置必须和主界面图一致,否则就要自己调整了代码了。
通过以上步骤,属于你自己的EXCEL股票查看软件就创建完成了,点刷新就可以看到自己录入的股票的行情了。
需要原始EXCEL文档的,可以在留言区留下您的邮箱地址,我会在看到后邮件发送给你们。
代码:
Public startFlag As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub refresh()
info ("刷新中...")
Application.ScreenUpdating = False '关闭屏幕刷新
displayMarket (6)
display (11)
Application.ScreenUpdating = True '打开屏幕刷新
info ("完成!")
End Sub
Sub refreshDetail()
If isExcelTradeOpen() Then
Exit Sub
End If
info ("刷新中...")
Application.ScreenUpdating = False '关闭屏幕刷新
'显示第1个股票
displayDetailInfo "C"
'显示第2个转债
displayDetailInfo "I"
'显示转债的股票
displayDetailInfo "O"
Application.ScreenUpdating = True '打开屏幕刷新
info ("完成!")
End Sub
Sub display(row As Integer)
'Dim row As Integer
'数据开始行
'row = 11
Do While True
Set cellName = Cells(row, "C")
If cellName = "" Then Exit Do
displayRow row
row = row + 1
Loop
End Sub
Sub displayMarket(row As Integer)
Do While True
Set cellName = Cells(row, "C")
If cellName = "" Then Exit Do
displayMarketRow row
row = row + 1
Loop
End Sub
Sub startRefresh()
If IsEmpty(startFlag) Then startFlag = False
Set cellAutoRefresh = Cells(4, "E")
startFlag = Not startFlag
If startFlag Then
cellAutoRefresh.Value = "自动刷新中..."
refreshTimerAction
Else
cellAutoRefresh.Value = "停止!"
End If
End Sub
Sub refreshTimerAction()
'Cells(8, "C").value = Cells(8, "C").value + 1
refresh
Dim newTime
'每5秒执行一次
newTime = Now + TimeValue("00:00:05")
If startFlag Then
Application.OnTime newTime, "refreshTimerAction"
End If
End Sub
Sub displayMarketRow(row As Integer)
Set cellCode = Cells(row, "D")
Dim stockCode As String
stockCode = cellCode.Value
displayInfo getSinaMarketCode(stockCode), row, False
End Sub
Sub displayRow(row As Integer)
Set cellCode = Cells(row, "D")
Dim stockCode As String
stockCode = cellCode.Value
displayInfo getSinaStockCode(stockCode), row, False
End Sub
Function getStockInfo(stockCode As String)
Dim url As String
'url = "http://hq.sinajs.cn/list=sh110032"
url = "http://hq.sinajs.cn/list="
url = url + stockCode
Dim responseText As String
responseText = getResponseText(url)
Dim array1, infoStr, infos
array1 = Split(responseText, """")
If UBound(array1) > 1 Then
infoStr = array1(1)
infos = Split(infoStr,
excel怎么启用宏_用VBA让EXCEL变成股票查看软件相关推荐
- excel怎么启用宏_轻便免费的Excel合并工具,支持wps和office全系统
Excel合并工具绿色程序版是一款由吾爱网友ermituofo分享制作的Excel合并软件,软件支持wps和office全系统,很多用户发表格给其他用户之后自己要使用合并处理就很麻烦,有了这个工具,就 ...
- excel怎么启用宏_如何用Excel制作一个高逼格的项目管理模板
在工作中我们经常用到项目管理,尤其是公司里的PM们(ProgramManager),从专业应用角度讲我们可以使用Project等软件进行项目管理,但这类软件一般需要经过专业培训才能上手,并且需要额外收 ...
- excel怎么启用宏_#数据同步#Excel + mysql 制作自动化报表
问题描述:Excel数据更新繁琐 虽然市面上各类报表工具,可视化工具种类繁多,比如Tableau,Power BI,FineBI 等等,但是Excel 依旧是日常数据工作中的主力,我们依旧使用Exce ...
- excel怎么启用宏_天水市便桥阿姨买擀面皮月入过万!房子、车子都有了,Excel揭秘其中的奥妙........
那一年在市五中上学时.... 我是农村孩子,上学需要住校:在五中便桥那租的房子,不管是早上还是周末赖得做饭是会吃那位阿姨的擀面皮:味道自然是不用说.....主要有一天跟阿姨聊起来,她也是农村人说房子卖 ...
- excel怎么启用宏_怎么使用Excel制作条形码?操作如此简单
条形码与我们生活息息相关,几乎每一件物品上都有条形码.那么条形码怎么制作呢?今天我们将使用Microsoft Excel制作条形码,一起来看一下具体操作流程吧. 使用Microsoft Excel制作 ...
- python写excel宏_使用python执行excel的VBA(宏)
1.将excel表格的操作流程指定宏名称录制成宏,复杂操作可以录制多个宏,以不同的宏名称保存. 录制宏,在菜单中找到宏功能区,本人的宏放在视图菜单里 image.png 开始录制 image.png ...
- excel怎么启用宏_EXCEL制作的小升初毕业生登记表,全自动填充,包括照片
先看看打印效果,高大上吧,若喜欢往下看-- 把县局下发的毕业生登记表.xlsx存到硬盘的某个文件中,例如我保存在初招文件夹中,在这个文件夹内再新建一个文件夹,重命名为"照片".照片 ...
- vba 自定义function返回值_用vba解决excel如何求前面连续为0的个数
领导布置了任务,要求每天统计当月的发展量,并且统计有多少业务员最多连续多少天发展为0的情况,统计的表格是这样的. 用几行简单的VBA语言就能解决这个问题 首先打开vba编辑窗口,点击开发工具--vis ...
- 安卓启用宏_可在安卓、苹果手机中运行ExcelVBA的方法
概要:现在普及的手机操作系统有两种:苹果和安卓,由于该操作系统受限无法在安卓和苹果中运行Excel带有VBA的文件,不过有一款APP可以实现在安卓和苹果中运行ExcelVBA测量程序,那就是UZER. ...
最新文章
- The note of Developing Innovative Ideas for New Companies Course
- 星云测试-给你的Android应用做个深度体检
- 用到lucene的爬虫的简单实现
- lamp介绍,wordpress,phpmyadmin,discuzz安装
- java中 set,list,array(集合与数组)相互转换
- RedLock 实现分布式锁
- IP应用加速技术详解:如何提升动静混合站点的访问速率?
- 淘汰率最高的腾讯产品面试题
- python 之 ------- 协程(微线程)
- 国潮艺术插画设计没有灵感看这里
- PHP程序无法设置cookie
- MyBatis 拦截器执行顺序
- Nordic-nRF52840环境搭建及学习
- 高中教师计算机水平要求,高中信息技术教师考试大纲
- 头的各个部位示意图_牛肉的部位图解与做法+牛肉各个部位分布图及质地简介...
- Python实现自动挂机脚本(基础篇)
- 阿里巴巴java工程师应聘条件_【全国】—前端/Java工程师—阿里巴巴(长期招聘)...
- 【无标题】AD导入CAD文件发现找不到图形
- 存token的最佳方式
- Tesla P40在Windows10专业版下走核显输出
热门文章
- 傻瓜教学——二进制数转换十进制数,十进制数转换二进制数的方法(方法特简单)
- 高考平行报志愿计算机录取规则,2018天津高考平行志愿录取规则
- MFC中的MoveWindow and SetWindowPos
- Realflow制作融化特效
- svn服务器配置如何修改,windows 下配置svn服务器(+修改)
- 锁屏界面提示某些设置已隐藏_华为微信来消息不提示/不显示内容/没声音/不亮屏等解决方法...
- 仪器仪表行业aps高级排产的实例
- 告别破窗效应!月薪过万原来如此简单……
- 苹果手机sim卡无效怎么办_苹果手机待机时间短怎么办
- eclipse设置经典黑色主题样式