VBA
一个vba小白的试用
zuopinde
这个作者很懒,什么都没留下…
展开
-
下载上市公司财报并可视化某科目
1、输入相应股票代码后点击下载财报,存放至f盘2、选择需要展示的指标是第几项,点击生成图表原创 2022-01-31 16:27:11 · 711 阅读 · 0 评论 -
MACD制作方法
MACD涉及7个指标:日期 收盘价 EMA12 EMA26 DIFF DEA MACD12、26天的平均数之差与其九日平均数之差*2文件模板见共享链接:https://pan.baidu.com/s/11imsrNkT2ddVeI-eRLjWww提取码:t4io...原创 2022-01-31 15:51:43 · 546 阅读 · 0 评论 -
用excel实现工作日志的更新和汇总
工作日志包括类别、子任务、优先级和用时。把当日工作更新后点更新按钮,存到sheet2的“数据库”(其实就是复制sheet1的内容到2)代码如下:Sub q()Dim n, m As Integern = 1m = 30For a = 1 To 100 n = a * 30 + 1 m = a * 30 + 1 While WorksheetFunction.CountA("a" & n & ":b" & m) = 0 Sh原创 2020-07-30 11:49:14 · 2314 阅读 · 0 评论 -
用vba对数据进行合并计算、自动填写数据
合并计算:利用数组去重的方法把相同名称的行汇总计算Private Sub CommandButton1_Click()Set d = CreateObject("scripting.dictionary")myArray = SelectionDim nFor Each n In myArray If Not d.exists(n) Then d.Add n, Application.WorksheetFunction.Match(n, Selection, 0)Nextk原创 2020-07-19 15:47:20 · 2102 阅读 · 0 评论 -
用vba创建图表分析上市公司财报
表格界面,填写股票代码后点击“下载报表”。即下载财报到f盘,(此处需手动先打开下载好的文件)选择好要分析的科目,然后贴数据到主页面并生成折线图,可手动挪动图表行改分析的科目,嘻嘻。以下为两个按钮的代码。Sub dl()Dim code As StringDim kemu As Stringcode = Range("j3").ValueDim H, SSet H = CreateObject("Microsoft.XMLHTTP")H.Open "GET", "http://m原创 2020-07-19 13:22:34 · 776 阅读 · 0 评论