使用VBA求資料統計輸出

b9208

各位先進前輩
請教如何設計VBA程式來執行。
計算〞資料表〞內地區及姓名相同之次數，並輸出於〞統計表〞中。
非常感謝協助
H1.rar (3.11 KB)

下載次數: 14

2011-2-24 00:07

ianlcc

謝謝您的分享，這可以當作學習的經驗！

character

請問要如何使用樞紐單純只針對總計做直條圖呢?
現在都會一併把細項列到直條圖了
感謝

Hsieh

回復 16# c_c_lai
可利用錄製巨集來取得VBA代碼
這樣可同時熟悉EXCEL的基本操作
您不妨先試試看

c_c_lai

回復 13# Hsieh
請教Hsieh大，您那 Sheet4("樞紐分析")部分之內容，
如何以 VBA 來展現 (實現) 呢？ 謝謝您！

ching12a

剛好需要怎樣統計資料表數字

b9208

回復 13# Hsieh
謝謝版主
執行OK

Hsieh

回復 12# b9208

1. Private Sub CommandButton1_Click()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. Set d2 = CreateObject("Scripting.Dictionary")
   
5. With Sheet3
   
6.    For Each a In .Range(.[B6], .[B65536].End(xlUp))
   
7.       ar = Array(a, a.Offset(, 2), a.Offset(, 3), "")
   
8.      m = Join(ar)
   
9.       d(m) = d(m) + 1 '3欄統計
   
10.       ar(3) = d(m)
    
11.       d1(m) = ar
    
12.       d2(a.Value) = d2(a.Value) + 1 '地區統計
    
13.     Next
    
14. End With
    
15. With Sheets("統計表")
    
16. .[B7:F65536] = ""
    
17. .[B7].Resize(d1.Count, 4) = Application.Transpose(Application.Transpose(d1.items))
    
18. .[B6].Resize(d1.Count + 1, 4).Sort key1:=.[B7], key2:=.[C7], header:=xlYes
    
19. .[G7:H65536] = ""
    
20. .[G7].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
    
21. .[H7].Resize(d2.Count, 1) = Application.Transpose(d2.items)
    
22. .[G6].Resize(d2.Count + 1, 2).Sort key1:=.[G7], header:=xlYes
    
23. .Select
    
24. End With
    
25. End Sub

複製代碼

b9208

回復 4# Hsieh
Hsieh 前輩您好

使用後發現只要〞員工編號〞相同，則統計為一筆資料，不會比較〞地區〞及〞姓名〞二欄資料。
需求是〞地區、姓名及員工編號〞等三欄資料相同統計資料。
懇請指導
謝謝

H2_統計.rar (15.23 KB)

下載次數: 15

2012-3-9 20:03

aa7551

再次感謝版本的教導,基本功要多加練習,才能更進步