1、首先制作个简单的表格作为基底
2、点选数据,选择自网站
3、新建WEB查询里填入百度经验地址,登录上自己的账号,设置记住密码登录
4、进入 每日收入 。也可以直接把“http://jingyan.baidu.com/user/nuc/income?type=2”复制到窗口
5、点击导入数据
6、选择导入的位置
7、再创建一个汇总表
8、按下键盘上的快捷组合键“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、Excel里点击 收入分类汇总 工作表,表格被更新啦。将 单日总收入 一栏输入公式“=SUM(B13:C13)”并复制公式进行求和。
10、绘制收入趋势图:切换至 插入 选项,直接插入一张折线图。
进行细节的微调
对数据进行标注,更加直观。
最终结果就是如下图,不错吧
在 原始数据 工作表,设置数据属性为 打开文件时刷新数据 ,取消掉 调整列宽,打开 用新数据覆盖现有单元格,并消除没有使用的单元格 的选项,确定。
这样就能很直观的看到你的成效了,记得不要禁用宏。