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

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

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

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

30^#

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

回復 28# chaoyiho

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

29^#

發表於 2016-4-26 18:15 | 只看該作者

回復 28# chaoyiho
那為何不直接使用 "手動篩選"？又可重複使用。

TOP

chaoyiho

中學生 Rank: 2

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

28^#

發表於 2016-4-26 17:04 | 只看該作者

回復 27# c_c_lai

用圖解比較清楚!
就是說像下面這張圖

這是分析過後的表格相信您知道的!
最上面的標籤列下方有個按鈕是篩選的功能相信您也能看到
點擊這個東西他會跑出下圖的核選方塊樹狀圖

他的功能就是可以只顯示我要看的船名對船舶做篩選而不是一次全部看
而在前輩幫助下建立的這個顯示畫面的確可以對船舶做複選
但是卻無法像那個核選方塊樹狀圖這樣可篩選自己想看的資料或全部都不選
不知道小弟這樣解釋
前輩您可以明白嗎?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

27^#

發表於 2016-4-26 16:32 | 只看該作者

回復 26# chaoyiho
點擊之後對要分析表單中的VSL(船舶)做篩選動作？
不甚了解，處理過程能否詳一一細舉例說明？

TOP

chaoyiho

中學生 Rank: 2

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

26^#

發表於 2016-4-26 13:54 | 只看該作者

回復 24# c_c_lai

前輩好，剛剛回文的問題我在經過測試之後發現原來是檔案開啟順序的錯誤
所以已經解決
現在正在嘗試將這個語法套用至全部的處理表單上(希望不會有錯誤)

但是還有一個最重要的問題就是
雖然現在已經有出現篩選船舶選項
但是它僅僅只是出現，點擊之後並不會對要分析表單中的VSL(船舶)做篩選動作

請問這個部分該怎麼處理呢?
點擊之後讓他可以對表格做篩選動作?

TOP

chaoyiho

中學生 Rank: 2

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

25^#

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

回復 24# c_c_lai

前輩好，感謝您的回覆
剛剛我嘗試照著您的回文作程式碼修改後
發現問題
在開啟舊檔之後，一按下執行分析就會出現錯誤代碼91
當然因為在有檢查錯誤程式碼之下
可以繼續跑完程式
但是最右邊卻不會出現如前輩的那樣處理完成畫面
請問這是什麼原因呢?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

24^#

發表於 2016-4-26 11:20 | 只看該作者

回復 23# chaoyiho

TOP

[發問] 怎麼在USERFORM中加入可篩選複選之樹狀圖

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]