發(fā)布時間:2024-04-17 文章來源:深度系統(tǒng)下載 瀏覽:
| 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)有單元格,并消除沒有使用的單元格 的選項,確定。
這樣就能很直觀的看到你的成效了,記得不要禁用宏。
|