c_c_lai

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

1.     '  2016/04/26  增加與 "EXCEL表單處理介面.ListBox" 的連結。
   
2.     '  所有增列之 Sav、J.C.W、P.C.O、Pmax、Stuffing Box、F.O.、
   
3.     '  Exh、Exh 工作表單 VSL 不需與 「總表」對應之 VSL 同步；
   
4.     '  亦即僅僅「總表」對應表單處理介面.ListBox 的選項清單。
   
5.     '  則將 "以下 With ~ End With" 新增的「程式碼」內容移至此處。
   
6.     '  Dim cts As Integer
   
7.    
   
8.     '  With ActiveSheet.PivotTables("樞紐分析表1").PivotFields(" VSL")
   
9.     '      For cts = 0 To EXCEL表單處理介面.ListBox1.ListCount - 1
   
10.             '  .PivotItems(EXCEL表單處理介面.ListBox1.List(cts)).Visible = IIf(EXCEL表單處理介面.ListBox1.Selected(cts), True, False)
    
11.             '  更簡潔、扼要的 Assignment 的表示式。
    
12.     '          .PivotItems(EXCEL表單處理介面.ListBox1.List(cts)).Visible = EXCEL表單處理介面.ListBox1.Selected(cts)
    
13.     '      Next cts
    
14.     '  End With
    
15.     '  -------------------------------------------------------------------------
    
16. End Sub

複製代碼

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

c_c_lai

在 UserForm 內宣告 "公用字典" 物件模式：
表單處理系統3.2 Ex2.rar (25.09 KB)

下載次數: 6

2016-4-29 17:24

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

下載次數: 5

2016-4-29 17:24

提供同功能異處理的兩個Excel檔案，
供作學習參考。