Simone利用Excel绘制百度经验每日收入变化情况趋势图
的有关信息介绍如下：
百度经验回享计划的推出，的确使众多作者从中可以获得不少的稿酬收入。对于每日收入情况以及一段时间内收入的高低变化情况，相信大家都非常关注。虽然百度经验个人中心采用了列表的形式来反映最近一段时间收入变化情况，但是看起来显得不够直观，倘若我们能够以图表的形式反映一段时间来每日收入变化情况，将显得更为直观。今天小编就大显身手，与各位作者们一起来探讨一下利用Excel绘制百度经验每日收入情况趋势图的具体方法，也希望大家能举一反三，绘制各式各样满足自己需要的图表。
首先制作如图所示的表格。当然大家也可以根据自己实际的喜好设计出更具个性的表格。
切换至“数据”选项卡，然后点击“自网站”按钮。
接着在打开的“新建Web查询”窗口中，输入百度经验地址（http://jingyan.baidu.com)进入，同时点击“登陆”按钮，使用自己的百度ID和密码进入登陆操作，同时勾选“记住我的登陆状态”项。
登陆完成后，直接进入“每日收入”列表，如果无法在“新建Web查询”页面中打开，请直接复制网址（http://jingyan.baidu.com/user/nuc/income?type=2）到该窗口中，才行进入“每日收入”列表。
在“每日收入”窗口中，就会发现存在“导入”按钮，点击收入部分的导入按钮，将收入部分选中，然后点击“导入”按钮。
然后在打开的“导入数据”窗口中，将“数据放置位置”设置为工作表中合适的位置，最后点击“确定”按钮完成导入操作。效果如图：同时利用同样的方法将其它日期的收入也导入其中（通过在“每日收入”下方点击不同的页码来实现切换，然后再进行数据的导入操作）。
接下来创建一个名为“收入分类汇总”的工作表，并创建如图所示的表头：
按下键盘上的快捷组合键“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
返回Excel，点击“收入分类汇总”工作表，就会发现表格被更新啦。最后将“单日总收入”一栏输入公式“=SUM(B13:C13)”并复制公式进行求和。
最后绘制收入趋势图：切换至“插入”选项卡，点击“拆线图”来插入一张折线图。
此时就会根据当前数据自动生成一成拆线图。如果对此拆线图不满意，我们还可以更改的。点击“拆线图”，从弹出的菜单中选择“更改图表样式”，并在打开的“更改图表类型”窗口中选择合适的图形即可。
我们还需要对各条线段进行标注，右击图表，从弹出的菜单中选择“选择数据”项进入。在打开的“选择数据”窗口中，通过选择对应的列项，并点击“编辑”按钮来更新列名。
最终效果如图所示：
切换至“原始数据”工作表，并打开“数据”选项卡，点击“数据 属性“按钮。在打开的“属性”窗口中，勾选“打开文件时刷新数据”项，同时取消勾选“调整列宽”，勾选“用新数据覆盖现有单元格，并消除没有使用的单元格”，最后点击“确定”按钮。
经过以上设置之后，以后如果想要查看最近一段时间收入起伏变化情况，只需要打开该工作表，就会自动完成数据的更新以及图表的更新显示(在打开文档时，可以会出现禁用宏现象，此时点击窗口上方的“选项”按钮，并从弹出的窗口中选择“应用该内容”并点击“确定”按钮即可刷新数据）。或者我们可以直接切换至“数据”选项卡，点击“全部刷新”按钮即可。
