b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-24 00:08 | 只看該作者

使用VBA求資料統計輸出

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

H1.rar (3.11 KB)

樓主熱帖

100 字節以內
不支持自定義 Discuz! 代碼

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 2011-2-24 09:41 | 只看該作者

回復 1# b9208

寫得很爛~ 但還是可以依你設的條件完成~
版主大大會有更好的寫法我的寫法是初學者的寫法唷~ 僅供參考

H1_統計.rar (15.03 KB)

學習才能提升自己

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

3^#

發表於 2011-2-24 10:50 | 只看該作者

回復 2# hugh0620

H2.rar (14.83 KB)
謝謝前輩指導
目前測試OK
另請教如下條件：
一、【輸出小計】：只輸出台北、屏東、新竹地區 (D3:F3)
二、【輸出合計】：輸出所有地區
請參閱統計表
Thanks

100 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-2-24 12:02 | 只看該作者

回復 3# b9208
附件內樞紐分析表方法供你參考

H1_統計.rar (16.29 KB)

Private Sub CommandButton1_Click()
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
Set d2 = CreateObject("Scripting.Dictionary")
With Sheet3
For Each a In .Range(.[B6], .[B65536].End(xlUp))
ar = Array(a, a.Offset(, 2), a.Offset(, 3), "")
d(a.Offset(, 3).Value) = d(a.Offset(, 3).Value) + 1
ar(3) = d(a.Offset(, 3).Value)
d1(a.Offset(, 3).Value) = ar
d2(a.Value) = d2(a.Value) + 1
Next
End With
With Sheets("統計表")
.[B7:F65536] = ""
.[B7].Resize(d1.Count, 4) = Application.Transpose(Application.Transpose(d1.items))
.[B6].Resize(d1.Count + 1, 4).Sort key1:=.[B7], key2:=.[C7], header:=xlYes
.[G7:H65536] = ""
.[G7].Resize(d2.Count, 1) = Application.Transpose(d2.keys)
.[H7].Resize(d2.Count, 1) = Application.Transpose(d2.items)
.[G6].Resize(d2.Count + 1, 2).Sort key1:=.[G7], header:=xlYes
.Select
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2011-2-24 21:28 | 只看該作者

回復 4# Hsieh
謝謝版主
程式測試可以
樞紐分析表方法目前學習中

100 字節以內
不支持自定義 Discuz! 代碼

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2024-12-12

6^#

發表於 2011-2-26 17:51 | 只看該作者

版主,請教With Sheet3 For Each a In .Range(.[B6], .[B65536].End(xlUp))..... End With
sheet的順序應為:統計表,資料表,樞紐分析表,在此時使用sheet3,不是應為樞紐分析表嗎?請解答迷津

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

7^#

發表於 2011-2-26 18:32 | 只看該作者

回復 6# aa7551

請進入〞程式檢視碼〞查看
sheet2 (統計表)
sheet3 (資料表)
sheet 4 (樞紐分析表)
不一定第一個工作表就是sheet1

100 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-2-26 18:32 | 只看該作者