操作方法
首先制作如图所示的表格。当然大家也可以根据自己实际的喜好设计出更具个性的表格。
切换至“数据”选项卡，然后点击“自网站”按钮。
接着在打开的“新建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)”并复制公式进行求和。
最后绘制收入趋势图：切换至“插入”选项卡，点击“拆线图”来插入一张折线图。
此时就会根据当前数据自动生成一成拆线图。如果对此拆线图不满意，我们还可以更改的。点击“拆线图”，从弹出的菜单中选择“更改图表样式”，并在打开的“更改图表类型”窗口中选择合适的图形即可。
我们还需要对各条线段进行标注，右击图表，从弹出的菜单中选择“选择数据”项进入。在打开的“选择数据”窗口中，通过选择对应的列项，并点击“编辑”按钮来更新列名。
最终效果如图所示：
切换至“原始数据”工作表，并打开“数据”选项卡，点击“数据 属性“按钮。在打开的“属性”窗口中，勾选“打开文件时刷新数据”项，同时取消勾选“调整列宽”，勾选“用新数据覆盖现有单元格，并消除没有使用的单元格”，最后点击“确定”按钮。
经过以上设置之后，以后如果想要查看最近一段时间收入起伏变化情况，只需要打开该工作表，就会自动完成数据的更新以及图表的更新显示(在打开文档时，可以会出现禁用宏现象，此时点击窗口上方的“选项”按钮，并从弹出的窗口中选择“应用该内容”并点击“确定”按钮即可刷新数据）。或者我们可以直接切换至“数据”选项卡，点击“全部刷新”按钮即可。