怎麼在USERFORM中加入可篩選複選之樹狀圖 - Excel程式區

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

31^# 跳轉到 »

發表於 2016-4-26 19:55 | 只看該作者

回復 28# chaoyiho

Dim cts As Integer
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields(" VSL")
For cts = 0 To EXCEL表單處理介面.ListBox1.ListCount - 1
.PivotItems(EXCEL表單處理介面.ListBox1.List(cts)).Visible = IIf(EXCEL表單處理介面.ListBox1.Selected(cts), True, False)
Next cts
End With

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

32^#

發表於 2016-4-27 07:39 | 只看該作者

回復 28# chaoyiho
如果你想要在於點選『執行分析』後，所有增列之
Sav、J.C.W、P.C.O、Pmax、Stuffing Box、F.O.、
Exh、Exh 工作表單 VSL 均與「總表」對應之
VSL 同步，則將 "#樓上" 增列的新增「程式碼」
內容移至

Sheets("工作表1").Select
Sheets("工作表1").Copy Before:=Sheets(1)
Sheets("工作表1 (2)").Select
Sheets("工作表1 (2)").Copy Before:=Sheets(1)
Sheets("工作表1 (3)").Select
Sheets("工作表1 (3)").Copy Before:=Sheets(1)
Sheets("工作表1 (4)").Select
Sheets("工作表1 (4)").Copy Before:=Sheets(1)

複製代碼

之前一列。如此上列工作表單便能同步處理同步資料了。
反之，如果你僅僅想「總表」工作表單單獨對應
"EXCEL表單處理介面.ListBox" 的連結就 OK 了，
那就保持在 CommandButton3_Click() 結束前處理。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

33^#

發表於 2016-4-27 07:46 | 只看該作者

回復 28# chaoyiho

' 2016/04/26 增加與 "EXCEL表單處理介面.ListBox" 的連結。
Dim cts As Integer
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields(" VSL")
For cts = 0 To EXCEL表單處理介面.ListBox1.ListCount - 1
' .PivotItems(EXCEL表單處理介面.ListBox1.List(cts)).Visible = IIf(EXCEL表單處理介面.ListBox1.Selected(cts), True, False)
' 更簡潔、扼要直接的 Assignment 的表示式。
.PivotItems(EXCEL表單處理介面.ListBox1.List(cts)).Visible = EXCEL表單處理介面.ListBox1.Selected(cts)
Next cts
End With

複製代碼

接下看你自己如何去變化它了。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

34^#

發表於 2016-4-27 08:00 | 只看該作者

TOP

chaoyiho

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

35^#

發表於 2016-4-27 09:48 | 只看該作者

[版主管理留言]

GBKEE(2016/4/27 09:50): 附檔上來,才清楚.

回復 34# c_c_lai

前輩您好感謝您這麼精細的回答真的讓我獲益良多
早上嘗試了您的做法於程式中
發現了兩個問題
1.如果像34#樓的那樣把兩個一樣的程式碼都貼在 CommandButton3_Click() 上就會出現Integer重複定義的問題
2.如果只貼其中一個則是會出現錯誤代碼91 沒有設定物件或定義區塊
現在還在努力查詢問題點在哪邊
但是現在看起來並不是開啟檔案順序或點選順序上的問題
不知道這是錯誤在哪邊呢?

TOP

chaoyiho

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

36^#

發表於 2016-4-27 10:44 | 只看該作者

回復 34# c_c_lai

補上副檔

檔案.rar (321.19 KB)

這是我貼上程式碼之後的樣子

會出現錯誤代碼91
並且右邊的船舶篩選欄不會顯示任何資訊

我現在正在想辦法
也再次麻煩前輩
幫我看看
分析檔案在之前的訊息裡面

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

37^#

發表於 2016-4-27 12:47 | 只看該作者

回復 36# chaoyiho
請先看懂 #32 的詳盡圖解說明，
從你程式的畫面與內容水準，
是應該會理解的。
你竟然是全吃下來？

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

38^#

發表於 2016-4-27 13:11 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-27 13:17 編輯

回復 36# chaoyiho

這和我當初引導你的方式有所出入。
請回溯到 #12 的處裡。
即便你未加入 #34 的程式碼，
這個錯誤訊息業已存在。

TOP

chaoyiho

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 65
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 20
註冊時間: 2016-3-30
最後登錄: 2016-7-21

39^#

發表於 2016-4-27 16:28 | 只看該作者

本帖最後由 chaoyiho 於 2016-4-27 16:29 編輯

回復 38# c_c_lai

前輩可能對我的處理方式誤會了
我有照著您的步驟下去做處理
如下方圖式:
1.

2.

3.

4.

5.

6.

但是實際執行之後就會出現

GOOGLE之後還是不知道ActiveX到底怎麼處理
有下載附件但是依然執行出現錯誤
所以我才使用LU大所建議的方式做處理
LU大的方式雖然可以跑出顯示但是就會有錯誤91的出現
並且無法做篩選

這一面牆我想我是當局者迷各位看官前輩應該也是醉了
有夠痛苦...
但是我一定要把他撞破!
再次麻煩前輩了!!!

將CELLS修改.PNG (22.04 KB)