用VBA實(shí)現(xiàn)數(shù)據(jù)分析

1、正確學(xué)會(huì)Excel VBA的16堂課用VBA實(shí)現(xiàn)數(shù)據(jù)分析銷售數(shù)據(jù)分析銷售明細(xì)清單分析銷售結(jié)果分析統(tǒng)計(jì)銷售數(shù)據(jù)分析銷售數(shù)據(jù)分析 商品庫存需求分析 商品銷售情況分析 1. 計(jì)算銷售金額 2. 將計(jì)算結(jié)果圖表化計(jì)算銷售金額計(jì)算銷售金額使用Excel VBA計(jì)算商品銷售金額具體操作步驟如下：步驟1：打開“銷售分析”工作簿，在“2010年第一季度商品需求量及銷售情況分析”表中選擇【開發(fā)工具】選項(xiàng)卡，單擊“代碼”選項(xiàng)組中的【Visual Basic】按鈕，即可打開【Microsoft Visual Basic for Application】主窗口，選擇【插入】【模塊】菜單項(xiàng)，即可插入一個(gè)模塊，在該模塊的

2、“名稱”屬性列表中將其更改為“統(tǒng)計(jì)銷售金額”，如圖9-23所示。步驟2：雙擊進(jìn)入該模塊代碼窗口中，在其中輸入統(tǒng)計(jì)銷售金額的代碼程序，如圖9-24所示。計(jì)算銷售金額計(jì)算銷售金額使用Excel VBA計(jì)算商品銷售金額具體操作步驟如下：步驟3：為方便上述程序代碼的執(zhí)行，在工作表中為其設(shè)置執(zhí)行按鈕。在【開發(fā)工具】選項(xiàng)卡中，單擊“控件”選項(xiàng)組中的【插入】下拉按鈕，在彈出列表中選擇【按鈕（窗體控件）】按鈕 ，在工作表的適當(dāng)位置處，當(dāng)鼠標(biāo)指針變?yōu)椤?”狀時(shí)按住鼠標(biāo)左鍵不放并拖動(dòng)至適當(dāng)大小后釋放鼠標(biāo)左鍵，即可彈出【指定宏】對(duì)話框，在“宏名”列表中選擇“分析銷售金額”選項(xiàng)，如圖9-25所示。計(jì)算銷售金額計(jì)算銷售

3、金額使用Excel VBA計(jì)算商品銷售金額具體操作步驟如下：步驟4：單擊【確定】按鈕，即可完成宏的指定操作。選擇插入的按鈕，在右鍵彈出菜單中選擇【編輯文字】菜單項(xiàng)，將按鈕名稱更改為“計(jì)算銷售金額”，單擊工作表中的任意單元格，即可退出該按鈕的編輯狀態(tài)，如圖9-26所示。步驟5：將鼠標(biāo)指針移動(dòng)至該按鈕上，當(dāng)指針變?yōu)椤?”狀時(shí)單擊【計(jì)算計(jì)算銷售金額】按鈕，執(zhí)行指定的過程，即可計(jì)算出H列中的銷售金額，如圖9-27所示。銷售明細(xì)清單分析銷售明細(xì)清單分析 統(tǒng)計(jì)銷售明細(xì)清單 分析銷售明細(xì)清單 1統(tǒng)計(jì)液晶電視的銷售總額 2統(tǒng)計(jì)折扣額不低于2000的記錄 3統(tǒng)計(jì)“銷售數(shù)量”不低于5且“折扣率”不低于0.8的商品

4、記錄統(tǒng)計(jì)銷售明細(xì)清單統(tǒng)計(jì)銷售明細(xì)清單具體的操作步驟如下：步驟1：打開“商品銷售明細(xì)清單”表，在【開發(fā)工具】選項(xiàng)卡中單擊“代碼”選項(xiàng)組中的【Visual Basic】按鈕，即可打開【Microsoft Visual Basic for Application】主窗口。選擇【插入】【模塊】菜單項(xiàng)，即可插入一個(gè)模塊，在該模塊的“名稱”屬性列表中將其更改為“統(tǒng)計(jì)金額”，如圖9-46所示。步驟2：雙擊進(jìn)入該模塊代碼窗口中，選擇【插入】【過程】菜單項(xiàng)，即可打開【添加過程】對(duì)話框，在“名稱”文本框中輸入“統(tǒng)計(jì)金額”，在“類型”選項(xiàng)組中選擇【子過程】單選項(xiàng)，在“范圍”選項(xiàng)組中選擇“公共的”單選項(xiàng)，如圖9-47

5、所示。統(tǒng)計(jì)銷售明細(xì)清單統(tǒng)計(jì)銷售明細(xì)清單具體的操作步驟如下：步驟3：單擊【確定】按鈕，即可在模塊中創(chuàng)建名為“統(tǒng)計(jì)金額”公有子過程的代碼框架，如圖9-48所示。在該子過程中輸入下面的完整程序代碼，如圖9-49所示。步驟4：在代碼輸入完畢后，選擇【運(yùn)行】【運(yùn)行子過程/用戶窗體】菜單項(xiàng)，即可運(yùn)行該子過程，計(jì)算出折扣額及實(shí)際金額的結(jié)果，如圖9-50所示。統(tǒng)計(jì)銷售明細(xì)清單統(tǒng)計(jì)銷售明細(xì)清單具體的操作步驟如下：步驟5：計(jì)算結(jié)果并不是以貨幣格式顯示，還需要將其轉(zhuǎn)化為貨幣格式，則需要在上述過程中添加如下代碼，如圖9-51所示。Range(Cells(i, 6), Cells(i, 7).Select 選擇單元格區(qū)

6、域Selection.NumberFormatLocal = ￥#,#0.00;￥-#,#0.00 設(shè)置貨幣格式步驟7：在添加完畢后，選擇【運(yùn)行】【運(yùn)行子過程/用戶窗體】菜單項(xiàng)，運(yùn)行該子過程，即可將計(jì)算結(jié)果轉(zhuǎn)化為貨幣格式，如圖9-52所示。銷售結(jié)果分析統(tǒng)計(jì)銷售結(jié)果分析統(tǒng)計(jì) 銷售業(yè)績?cè)u(píng)價(jià) 利用統(tǒng)計(jì)函數(shù)匯總分析銷售數(shù)據(jù) 1. 統(tǒng)計(jì)銷售人員數(shù)目 2對(duì)銷售額進(jìn)行匯總分析 3對(duì)銷售額進(jìn)行排序?qū)︿N售額進(jìn)行排序?qū)︿N售額進(jìn)行排序具體的操作步驟如下：步驟1：在前面添加的模塊中插入一個(gè)“銷售排序”公有子過程，并在該子過程代碼框架中添加實(shí)現(xiàn)銷售額排序功能的代碼程序，如圖9-84所示。步驟2：為方便上述程序代碼的執(zhí)行

7、，在工作表中為其設(shè)置執(zhí)行按鈕。在【開發(fā)工具】選項(xiàng)卡中，單擊“控件”選項(xiàng)組中的【插入】下拉按鈕，在彈出列表中選擇【按鈕（窗體控件）】按鈕 ，在工作表適當(dāng)位置處，當(dāng)鼠標(biāo)指針變?yōu)椤?”狀時(shí)按住鼠標(biāo)左鍵不放并拖動(dòng)至適當(dāng)大小后釋放鼠標(biāo)左鍵，即可彈出【指定宏】對(duì)話框，在“宏名”列表中選擇“銷售額排位”選項(xiàng)，如圖9-85所示。對(duì)銷售額進(jìn)行排序?qū)︿N售額進(jìn)行排序具體的操作步驟如下：步驟3：單擊【確定】按鈕，即可完成宏的指定操作。選擇插入的按鈕，在右鍵彈出菜單中選擇【編輯文字】菜單項(xiàng)，將按鈕名稱更改為“銷售額排位”，如圖9-86所示。步驟4：單擊工作表中的任意單元格，即可退出該按鈕的編輯狀態(tài)。將鼠標(biāo)指針移動(dòng)至該按

8、鈕上，當(dāng)指針變?yōu)椤?”狀時(shí)，單擊【銷售額排位】按鈕，執(zhí)行指定的過程，即可根據(jù)在工作表中選中的單元格而返回相應(yīng)的消息對(duì)話框。步驟5：如果選中的是空的單元格，即可彈出“請(qǐng)選擇銷售人員姓名或銷售額”消息對(duì)話框，如圖9-87所示。對(duì)銷售額進(jìn)行排序?qū)︿N售額進(jìn)行排序具體的操作步驟如下：步驟6：如果既沒有選擇銷售人員的姓名和銷售額，而選擇了其他無關(guān)的單元格，如這里選擇D2單元格，系統(tǒng)則彈出“錯(cuò)誤的選擇”消息對(duì)話框，如圖9-88所示。步驟7：如果選擇銷售人員“姓名”所在單元格，即可彈出如圖9-89所示的消息對(duì)話框。如果選擇“銷售額”所在單元格，即可彈出如圖9-90所示的消息對(duì)話框。專家課堂（常見問題與解答）專

9、家課堂（常見問題與解答）點(diǎn)撥點(diǎn)撥1：在使用VBA向Excel中寫入公式時(shí)，遇到這樣的問題：如寫入公式為=IF(OR(L4 =, K4=刪除), , IF(G4 ,G4, OFFSET(AG4,-1,0,1,1)，但在VBA中會(huì)報(bào)錯(cuò)，無法寫入，錯(cuò)誤提示是指向=刪除)，為什么總是顯示編譯錯(cuò)誤，缺少語句結(jié)束？是VBA無法識(shí)別過長的公式造成的嗎？有其他辦法可以把足夠長且又帶多個(gè)邏輯判斷的公式寫入VBA嗎？解答：解答：在VBA中的公式含有或A號(hào)時(shí)，可以用或A來表示，例如上述公式可以寫成：H1 = =IF(OR(L4=,K4=刪除),IF(G4 ,G4,OFFSET(AG4,-1,0,1,1)點(diǎn)撥點(diǎn)撥2：在對(duì)銷售額進(jìn)行排位操作時(shí)，當(dāng)運(yùn)行銷售額排位功能的程序代碼時(shí)，為什么