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

c_c_lai

博士班 Rank: 6 Rank: 6

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

43^# 跳轉到 »

發表於 2016-4-27 19:47 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-27 19:50 編輯

回復 39# chaoyiho
對應 EXCEL表單處理介面.ListBox 的部分，
與 #40 是一致的。

擇一選擇加入 (請看備註說明)，
AB 不能全部通吃 (這便是你看到的
重複 Integer 的錯誤訊息)。

接下來全交給了。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

42^#

發表於 2016-4-27 19:41 | 只看該作者

回復 39# chaoyiho
#40 是我比較常用的處理方式 (從早期傳統系統到目前)，
因為 ListBox 是在 "EXCEL表單處理介面" 裡執行處理，
習慣上我會將字典的作業直接放置在 UserForm 裡宣告
與處裡，而並不將它置於 UserForm 外宣告，除非它在
UserForm 區塊外亦被其它程式模組使用、運用到除外。

如果你覺得如何宣告均無妨，只要系統能動便 OK 的話
(我是不贊成你以此種方式來學習編撰程式)；那我就以
你傳來的 "錯誤訊息" 來做解答吧 (檔案.rar)！

亦即在你目前之 Module1 上頭加上：

Private Sub Auto_Open()
Set vD = CreateObject("Scripting.Dictionary") ' 建立物件。
End Sub

複製代碼

TOP

jackyq

中學生 Rank: 2

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

41^#

發表於 2016-4-27 17:16 | 只看該作者

回復 39# chaoyiho

那個訊息代表2意義
(1) 物件不存在註冊表中
(2) 你可能打錯名
答案=(2)
Set a = CreateObject("scripting.dictionary")

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

40^#

發表於 2016-4-27 16:59 | 只看該作者

回復 39# chaoyiho
很單純地，從頭到尾你只需修改：
一、

二、

三、

四、

就全部更新了。如照這樣修正仍還有錯誤
將它上傳我會來檢查。

TOP

chaoyiho

中學生 Rank: 2

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

39^#

發表於 2016-4-27 16:28 | 只看該作者

本帖最後由 chaoyiho 於 2016-4-27 16:29 編輯

回復 38# c_c_lai

前輩可能對我的處理方式誤會了
我有照著您的步驟下去做處理
如下方圖式:
1.

2.

3.

4.

5.

6.

但是實際執行之後就會出現

GOOGLE之後還是不知道ActiveX到底怎麼處理
有下載附件但是依然執行出現錯誤
所以我才使用LU大所建議的方式做處理
LU大的方式雖然可以跑出顯示但是就會有錯誤91的出現
並且無法做篩選

這一面牆我想我是當局者迷各位看官前輩應該也是醉了
有夠痛苦...
但是我一定要把他撞破!
再次麻煩前輩了!!!

將CELLS修改.PNG (22.04 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

38^#

發表於 2016-4-27 13:11 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-27 13:17 編輯

回復 36# chaoyiho

這和我當初引導你的方式有所出入。
請回溯到 #12 的處裡。
即便你未加入 #34 的程式碼，
這個錯誤訊息業已存在。

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

37^#

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

回復 36# chaoyiho
請先看懂 #32 的詳盡圖解說明，
從你程式的畫面與內容水準，
是應該會理解的。
你竟然是全吃下來？

TOP

chaoyiho

中學生 Rank: 2

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

36^#

發表於 2016-4-27 10:44 | 只看該作者

回復 34# c_c_lai

補上副檔

檔案.rar (321.19 KB)

這是我貼上程式碼之後的樣子

會出現錯誤代碼91
並且右邊的船舶篩選欄不會顯示任何資訊

我現在正在想辦法
也再次麻煩前輩
幫我看看
分析檔案在之前的訊息裡面

TOP

chaoyiho

中學生 Rank: 2

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

35^#

發表於 2016-4-27 09:48 | 只看該作者

[版主管理留言]

GBKEE(2016/4/27 09:50): 附檔上來,才清楚.

回復 34# c_c_lai

前輩您好感謝您這麼精細的回答真的讓我獲益良多
早上嘗試了您的做法於程式中
發現了兩個問題
1.如果像34#樓的那樣把兩個一樣的程式碼都貼在 CommandButton3_Click() 上就會出現Integer重複定義的問題
2.如果只貼其中一個則是會出現錯誤代碼91 沒有設定物件或定義區塊
現在還在努力查詢問題點在哪邊
但是現在看起來並不是開啟檔案順序或點選順序上的問題
不知道這是錯誤在哪邊呢?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

34^#

發表於 2016-4-27 08:00 | 只看該作者

TOP

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

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

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