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

帖子: 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)

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

luhpro

高中生 Rank: 3 Rank: 3

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

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)

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

4^#

發表於 2016-4-21 09:01 | 只看該作者

回復 3# luhpro
請問前輩
我按照您的指示去做練習之後
發現
他的vD.RemoveAll常常都會出現錯誤訊息
"需要物件"或是"未定義"
而無法運行
請問這樣子是要怎麼解決呢?
還煩請幫忙!!

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

5^#

發表於 2016-4-22 08:41 | 只看該作者

前輩您可能在忙所以沒有辦法幫我解答..
可是我真的很想知道!
不知道有沒有人可以替我解答呢?

jackyq

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

6^#

發表於 2016-4-22 10:08 | 只看該作者

大大可能在 module 漏寫 Public vD ???

c_c_lai

博士班 Rank: 6 Rank: 6

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

7^#

發表於 2016-4-22 10:16 | 只看該作者

回復 5# chaoyiho

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

8^#

發表於 2016-4-22 13:43 | 只看該作者

回復 6# jackyq

前輩好，我有在模組1裡面寫入宣告Public vD

但是一旦執行分析
但是還是出現需要物件
真的不知道怎麼辦 Q_Q

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

9^#

發表於 2016-4-22 13:44 | 只看該作者

回復 7# c_c_lai

謝謝前輩提醒，我一直都有加入
但是還是持續出現找不到物件(按下分析之後)
就會跳出錯誤424
到底怎麼會這樣?(崩潰)

jackyq

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

10^#

發表於 2016-4-22 14:11 | 只看該作者

  Public vD  as object
'
Private Sub CommandButton1_Click()
      If Application.FindFile = False Then
         MsgBox "您沒有開啟母檔"
      End If

      Dim lRow&

   if vD is nothing then  Set vD = CreateObject("Scripting.Dictionary")
      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