怎麼在USERFORM中加入可篩選複選之樹狀圖 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 怎麼在USERFORM中加入可篩選複選之樹狀圖

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^# 跳轉到 »

發表於 2016-4-19 22:58 | 只看該作者

回復 2# chaoyiho

===Module===

Public vD
Option Explicit
...

複製代碼

Private Sub Workbook_Open()
Set vD = CreateObject("Scripting.Dictionary")
EXCEL表單處理介面.Show vbModeless
End Sub

複製代碼

Private Sub CommandButton1_Click()
If Application.FindFile = False Then
MsgBox "您沒有開啟母檔"
End If
Dim lRow&
lRow = 3
vD.RemoveAll
While Cells(lRow, 1) <> ""
If Not vD.Exists(CStr(Cells(lRow, 1))) Then
EXCEL表單處理介面.ListBox1.AddItem CStr(Cells(lRow, 1))
vD(CStr(Cells(lRow, 1))) = lRow
End If
lRow = lRow + 1
Wend
End Sub

複製代碼

因為時間上來不及, 這裡只做加到 ListBox 的方法,
你可以參照改成動態新增為你要的 CheckBox 元件.

表單處理系統3.2(PLS)-a.zip (614.78 KB)

中學生 Rank: 2

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

2^#

發表於 2016-4-19 11:18 | 只看該作者

回復 1# chaoyiho

這是我寫的VBA

表單處理系統3.2(PLS).rar (658.22 KB)

這是測試檔案(請選擇165表單)

FORM_REPORT.rar (277.59 KB)

拜託大家了~~~~!!!!

靜思自在 : 發脾氣是短暫的發瘋。

返回列表下一主題上一主題