韭零后还有救吗？Excel制作动态折线脉搏图。2021年1-3月上证指数历史数据

Excel制作动态折线脉搏图

韭零后还有救吗？

    大盘起起伏伏，基金潮起潮落，小编也决定追个热点，用Excel折线图作为基础，用上证指数反映韭零后的脉搏。看完以后，身为韭零后的我，感觉彻底晾凉。

制作指南-准备源数据

    红色区域上证指数数据是从中证指数有限公司官网获取。绿色区域的辅助数据是我们为这次制图特别提供的助攻数据。

图上没有的查询天数：I1=72，很多地方会用到它。

辅助脉搏线：=IF(ROW()-1<=$I$1,B2,NA())，如果当前行数，还没到最大天数，那么返回B列数据，否则返回#N/A。

辅助箭头：=IF(ROW()-1=$I$1,B2,NA())，如果当前行数达到最大天数，返回B列数据，否则返回#N/A。

上限：=MAX($B$2:$B$73)+100

下限：=MIN($B$2:$B$73)-100

多系列折线图

    选择A1:F73单元格区域，工具栏【插入】→【图表】→【二维折线图】，创建一个最标准的多系列折线图。

1、隐藏【收盘】系列图表。点击图表→【格式】→【格式】在下拉菜单中选择【系列 "收盘"】→【形状和轮廓】设为无轮廓、无填充，将它隐藏。

2、设置箭头格式。点击图表→【格式】→【格式】在下拉菜单中选择【辅助圆点】→【设置所先内容格式】→【填充】→【标记】→【数据标记选项】→点选【内置】类型为箭头大小为6，填充颜色设为红色无线条。

3、设置辅助脉搏线格式。点击图表→【格式】→【格式】在下拉菜单中选择【辅助脉搏线】→【形状和轮廓】设为1磅粗细。

4、删除不必要的图例，增加图表标题，设置图表背景填充。

宏代码设置自动播放

    开启耍帅模式，实现自动播放。其实实现起来挺简单的，总共就两步。

1、添加如下VBA代码：

Sub jiulinghoumaibotu()

ActiveSheet.EnableCalculation = True

Application.ScreenUpdating = True

For i = 1 To 72

[I1] = i  '根据单元格实际位置修改

DoEvents

DoEvents

    Application.Wait (Now + 0.00000575)  '数字越小，绘制速度越快

Next i

End Sub

2、创建播放按钮。工具栏【插入】→【形状】→【椭圆】，右键椭圆形，在弹出的快捷命令列表中选择“指定宏”，弹出指定宏窗口，选择上一步创建好的宏代码，点击【确定】按钮。至此，大功告成，点击椭圆按钮，就可以看韭零后的脉搏了。