百度經(jīng)驗(yàn)是一個很熱門的分享平臺，作者們可以通過加入回享計劃或者申請?zhí)丶s作者的方式加入后寫經(jīng)驗(yàn)賺錢，對于每天的收入和一段時間的總收入，肯定大家都很關(guān)注，雖然官方提供了列表但是不夠直觀，我們可以使用Excel來繪制圖表，得到更直觀的結(jié)果展示。

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

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

　　3、新建WEB查詢里填入百度經(jīng)驗(yàn)地址，登錄上自己的賬號，設(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)建一個匯總表

　　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)秀獎金" 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)

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

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

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

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