1、首先制作個(gè)簡單的表格作為基底

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

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

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

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

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

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

8、按下鍵盤上的快捷組合鍵“Alt+F11”進(jìn)入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)秀獎(jiǎng)金" 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里點(diǎn)擊 收入分類匯總 工作表,表格被更新啦。將 單日總收入 一欄輸入公式“=SUM(B13:C13)”并復(fù)制公式進(jìn)行求和。

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

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

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

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

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

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