麻辣家族討論版版 » Excel程式區 » 請問要怎麼用VBA寫出類似樞紐分析的功能

返回列表下一主題上一主題發帖

[發問] 請問要怎麼用VBA寫出類似樞紐分析的功能

小學生 Rank: 1

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-11-24 16:29 | 只看該作者

[發問] 請問要怎麼用VBA寫出類似樞紐分析的功能

大家好:
小妹我有個問題想請教大家。
原本我自己錄製樞紐分析來把HR相同名稱的東西，HX欄位數量加總的動作，
然後再把樞紐分析的結果按Ctrl+alt+↓ 貼到HZ & IF欄位，
但是樞紐分析最底下會有一欄合計，可是我不想要有合計這欄，
而且中間的HS~HW欄位資料我還要手動填過去，

所以想問大家要怎麼用VBA寫出類似樞紐分析的功能呢?
我的需求是:當HR欄位名稱相同時，則把HX欄位數字合計，並依序填到HZ~IF欄位。

問題1125.zip (50.93 KB)

問題

樓主熱帖

收藏

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

8^#

發表於 2010-11-26 08:54 | 只看該作者

本帖最後由 oobird 於 2010-11-26 08:57 編輯

定義動態範圍名稱。
前幾天Hs版主有教過

。不過~被刪了！
GB版主的VBA也是很好的選擇。

小學生 Rank: 1

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

7^#

發表於 2010-11-26 08:35 | 只看該作者

To oobird:
我有試過你的方法了，可以做出來，
但是我有另一個問題是，因為這些過程我想放進去巨集裏面，
如果我用錄製巨集的話，那只要每次進來的資料量不同，使用錄製巨集就會有問題~
所以我是不是應該用VBA寫會比較好呢?

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2010-11-25 11:04 | 只看該作者

小學生 Rank: 1

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

5^#

發表於 2010-11-25 09:19 | 只看該作者

本帖最後由 sandra_wang 於 2010-11-25 09:41 編輯

請問#3 oobird
我要怎麼從樞紐分析的"版面配置"弄出像你一樣的表格呢?
我弄得跟你都不一樣耶!!

2010-11-25 上午 09-39-49.jpg (32.82 KB)

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1041
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

4^#

發表於 2010-11-25 00:16 | 只看該作者

這類問題我比較建議熟習樞紐分析表。
oobird 發表於 2010-11-24 19:58

我也是認為這樣比較快

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

3^#

發表於 2010-11-24 19:58 | 只看該作者

這類問題我比較建議熟習樞紐分析表。

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-11-24 17:34 | 只看該作者

回復 1# sandra_wang

Sub Ex()
Dim D As Object, R, S$, Rng As Range
Set D = CreateObject("Scripting.Dictionary")
With ActiveSheet
.[HR9].Resize(, 7).Copy .[HZ9]
.[HZ9].CurrentRegion.Offset(1).Clear
For Each R In .Range(.[HR10], .[HR10].End(xlDown))
S = Join(Application.Transpose(Application.Transpose(R.Resize(, 6))), ",")
D(S) = D(S) + R(1, 7)
Next
Set Rng = .[HZ9].Offset(1)
For Each R In D.KEYS
Rng.Resize(, 6) = Split(R, ",")
Rng.Offset(, 6) = D(R)
Set Rng = Rng.Offset(1)
Next
End With
End Sub

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題