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

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

61^# 跳轉到 »

發表於 2016-4-29 17:09 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-29 17:21 編輯

回復 58# chaoyiho
三、原本是在結束前處裡「總表」對應表單處理介面.ListBox 的選項清單。
修改為增列之 Sav、J.C.W、與「總表」同步對應 VSL，如 ( 二、說明)；
故以下更改為 "備註"。

' 2016/04/26 增加與 "EXCEL表單處理介面.ListBox" 的連結。
' 所有增列之 Sav、J.C.W、P.C.O、Pmax、Stuffing Box、F.O.、
' Exh、Exh 工作表單 VSL 不需與「總表」對應之 VSL 同步；
' 亦即僅僅「總表」對應表單處理介面.ListBox 的選項清單。
' 則將 "以下 With ~ End With" 新增的「程式碼」內容移至此處。
' 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
' -------------------------------------------------------------------------
End Sub

複製代碼

為考慮閱覽者的了解前因後果，以明瞭前後修改原因及內容，特將修正前事項特別
予以備註方式保留，以便與修正後內容作比對，提醒並增進 "修業功力"。

62^#

發表於 2016-4-29 17:31 | 只看該作者

在 UserForm 內宣告 "公用字典" 物件模式：

表單處理系統3.2 Ex2.rar (25.09 KB)
第二支是 luhpro 大大指導的案例；
在 Module1 宣告 "公用字典" 物件模式：

表單處理系統3.2 luhpro.rar (188.77 KB)
提供同功能異處理的兩個Excel檔案，
供作學習參考。

靜思自在 : 君子立恆志，小人恆立志。