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

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

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

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

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

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

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

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

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

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