订阅利用Excel绘制百度经验每日收入变化情况趋势图
来源：网络收集 点击： 时间：2024-04-01首先制作如图所示的表格。当然大家也可以根据自己实际的喜好设计出更具个性的表格。
2/15切换至“数据”选项卡，然后点击“自网站”按钮。
3/15接着在打开的“新建Web查询”窗口中，输入百度经验地址（http://jingyan.baidu.com)进入，同时点击“登陆”按钮，使用自己的百度ID和密码进入登陆操作，同时勾选“记住我的登陆状态”项。
4/15登陆完成后，直接进入“每日收入”列表，如果无法在“新建Web查询”页面中打开，请直接复制网址（http://jingyan.baidu.com/user/nuc/income?type=2）到该窗口中，才行进入“每日收入”列表。
5/15在“每日收入”窗口中，就会发现存在“导入”按钮，点击收入部分的导入按钮，将收入部分选中，然后点击“导入”按钮。
6/15然后在打开的“导入数据”窗口中，将“数据放置位置”设置为工作表中合适的位置，最后点击“确定”按钮完成导入操作。效果如图：同时利用同样的方法将其它日期的收入也导入其中（通过在“每日收入”下方点击不同的页码来实现切换，然后再进行数据的导入操作）。
7/15接下来创建一个名为“收入分类汇总”的工作表，并创建如图所示的表头：
8/15按下键盘上的快捷组合键“Alt+F11”进入VBA编辑环境。双击“收入分类汇总”工作表，并输入如图所示的代码：
Dim sucell
Dim sucellsum
Dim j
Dim youxiushu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
j = 3
sucell = Sheets(1).Cells(4, 3)
sucellsum = 0
youxiushu = 0
For i = 4 To 103
If Sheets(1).Cells(i, 3) = sucell Then
If Sheets(1).Cells(i, 5) = "优秀奖金" Then
youxiushu = youxiushu + 1
Else
sucellsum = sucellsum + Sheets(1).Cells(i, 4)
End If
Else
Sheets(2).Cells(j, 1) = sucell
Sheets(2).Cells(j, 2) = sucellsum
Sheets(2).Cells(j, 3) = youxiushu * 10
sucell = Sheets(1).Cells(i, 3)
youxiushu = 0
sucellsum = 0
i = i - 1
j = j + 1
End If
Next i
End Sub
9/15返回Excel，点击“收入分类汇总”工作表，就会发现表格被更新啦。最后将“单日总收入”一栏输入公式“=SUM(B13:C13)”并复制公式进行求和。
10/15最后绘制收入趋势图：切换至“插入”选项卡，点击“拆线图”来插入一张折线图。
11/15此时就会根据当前数据自动生成一成拆线图。如果对此拆线图不满意，我们还可以更改的。点击“拆线图”，从弹出的菜单中选择“更改图表样式”，并在打开的“更改图表类型”窗口中选择合适的图形即可。
12/15我们还需要对各条线段进行标注，右击图表，从弹出的菜单中选择“选择数据”项进入。在打开的“选择数据”窗口中，通过选择对应的列项，并点击“编辑”按钮来更新列名。
13/15最终效果如图所示：
14/15切换至“原始数据”工作表，并打开“数据”选项卡，点击“数据 属性“按钮。在打开的“属性”窗口中，勾选“打开文件时刷新数据”项，同时取消勾选“调整列宽”，勾选“用新数据覆盖现有单元格，并消除没有使用的单元格”，最后点击“确定”按钮。
15/15经过以上设置之后，以后如果想要查看最近一段时间收入起伏变化情况，只需要打开该工作表，就会自动完成数据的更新以及图表的更新显示(在打开文档时，可以会出现禁用宏现象，此时点击窗口上方的“选项”按钮，并从弹出的窗口中选择“应用该内容”并点击“确定”按钮即可刷新数据）。或者我们可以直接切换至“数据”选项卡，点击“全部刷新”按钮即可。
excel趋势图 版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_394780.html
