1、首先制作個簡單的表格作為基底

2、點選數(shù)據(jù),選擇自網(wǎng)站

3、新建WEB查詢里填入百度經(jīng)驗地址,登錄上自己的賬號,設(shè)置記住密碼登錄

4、進入 每日收入 。也可以直接把“http://jingyan.baidu.com/user/nuc/income?type=2”復(fù)制到窗口

5、點擊導(dǎo)入數(shù)據(jù)

6、選擇導(dǎo)入的位置

7、再創(chuàng)建一個匯總表

8、按下鍵盤上的快捷組合鍵“Alt+F11”進入VBA編輯環(huán)境。雙擊“收入分類匯總”工作表,并輸入如圖所示的代碼:

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) = "優(yōu)秀獎金" 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)”并復(fù)制公式進行求和。

10、繪制收入趨勢圖:切換至 插入 選項,直接插入一張折線圖。

進行細(xì)節(jié)的微調(diào)

對數(shù)據(jù)進行標(biāo)注,更加直觀。

最終結(jié)果就是如下圖,不錯吧

在 原始數(shù)據(jù) 工作表,設(shè)置數(shù)據(jù)屬性為 打開文件時刷新數(shù)據(jù) ,取消掉 調(diào)整列寬,打開 用新數(shù)據(jù)覆蓋現(xiàn)有單元格,并消除沒有使用的單元格 的選項,確定。

這樣就能很直觀的看到你的成效了,記得不要禁用宏。