【Excel】10/14已解決.樞紐分析表、自動重新整理設定

Randy_Ch
個人積分：2分
文章編號：74983555

2分

樓主

2019-10-12 19:31

各位前輩們晚上好...
想請教一個問題，自己有做了一張內帳樞紐分析表，
但發現每次新增資料進去的時候，
都需要手動按重新整理按鍵，

想請教一定要做VBA才能有連動嗎？
還是可以用函數或是其他設定達成呢？

再麻煩各位前輩了！

請問有接個案的Excel教學的前輩嗎？

2019-10-12 19:31 發佈

文章關鍵字 excel 設定樞紐分析表 10/14

snare

snare
個人積分：3041分
文章編號：74985604

3041分

2樓

2019-10-12 23:40


Private Sub Worksheet_Change(ByVal Target As Range)
        Worksheets("工作表名稱").PivotTables("樞紐分析表名稱").PivotCache.Refresh
End Sub

f10629

f10629
個人積分：114分
文章編號：74986282

114分

3樓

2019-10-13 1:25

Randy_Ch wrote:
晚上好：）,小弟從來...(恕刪)

是

左邊對著你有樞紐的工作表點兩下
右邊會出現空白的編輯區
把snare大大的程式碼貼上就可以了

之後只要該工作表
選取的儲存格變更
就會觸發樞紐的Refresh

Randy_Ch

Randy_Ch
個人積分：2分
文章編號：74989210

2分

樓主

2019-10-13 12:58

這是小弟在樞紐工作表點兩下出現右邊的框框

這是我在樞紐工作表按右鍵出現的兩個選項

想請問我的輸入有錯誤嗎,接下來是要按開始鈕建立嗎?

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("工作表3").PivotTables("報表1").PivotCache.Refresh
End Sub

我的工作表3是我的總樞紐報表的地方,裡面總共有4張報表
報表1、報表2、報表3、報表4
按一次更新全部的樞紐單、4張報表的來源都是統一在工作表3

我稍微爬了一下文章
是這樣寫嗎？

Sub 更新樞紐()
ThisWorkbook.RefreshAll
End Sub

f10629

f10629
個人積分：114分
文章編號：74989725

114分

5樓

2019-10-13 14:01

Randy_Ch wrote:
這是小弟在樞紐工作表...(恕刪)

Sub 更新樞紐()
ThisWorkbook.RefreshAll
End Sub

可以這麼寫
再來就是要決定觸發條件
想要在什麼情況下觸發這段程式碼?

Randy_Ch

Randy_Ch
個人積分：2分
文章編號：74990067

2分

樓主

2019-10-13 14:47

f10629 wrote:
Sub 更新樞紐()ThisWorkbook...(恕刪)

目前我在工作表3是一個資訊庫,有套用格式化儲存格,
用工作表3衍伸出來的支出樞紐報表,
總共會有4個報表,
1.報表1
2.報表2
3.報表3
4.報表4

我想要在工作表3一但有新的資料輸入進去的時候,
支出樞紐報表最自動更新4張報表,
這樣子我就不用每次輸入新的資料的時候,
都還要按一次重新整理,

謝謝前輩的教導：）

f10629

f10629
個人積分：114分
文章編號：74992355

114分

7樓

2019-10-13 19:56

Randy_Ch wrote:
目前我在工作表3是一...(恕刪)

可以試試用上面的方法
在工作表3的中加入以下程式碼：

Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.RefreshAll
End Sub

Worksheet_Change 效果：
當選取不同儲存格時觸發

先試Worksheet_Change看看
這個算滿通用的
缺點是
如果資料量大的時候
每次選取不同儲存格都會Lag一陣子

snare

snare
個人積分：3041分
文章編號：74992583

3041分

8樓

2019-10-13 20:28

f10629 wrote:
Worksheet_Change 效果：
當選取不同儲存格時觸發...(恕刪)

您把Worksheet_SelectionChange、Worksheet_Change的說明，搞錯了 sorry

Randy_Ch wrote:
想請問我的輸入有錯誤嗎,接下來是要按開始鈕建立嗎?...(恕刪)

1、視窗左邊，點2下“要輸入資料的工作表”
2、視窗右邊，貼上程式碼

Worksheets("放樞紐分析表的工作表名稱").PivotTables("報表1").PivotCache.Refresh

那4行程碼式碼要用ThisWorkbook.RefreshAll代替也可以
但是ThisWorkbook.RefreshAll不管什麼都全部更新，公式、圖表，且包含"所有工作表"
所以就像7樓f10629高手說的會更lag

.PivotTables( ).PivotCache.Refresh指定只更新分析表