PKKO

　暱稱: PKKO

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-12-1 04:28 | 顯示全部帖子

[發問] 20個相同功能ComboBox如何可以省工撰寫?

本帖最後由 PKKO 於 2014-12-1 04:38 編輯

麻煩各位大大解題了!

以下程式碼為固定的,目的在於"姓"輸入後可自動帶出名子
問題一 : 若有20個相同功能之程式碼,該如何撰寫?可請大大們提供您的撰寫方式嗎?

問題二 : 此程式碼在ComboBox輸入完"我"之後,都會自動帶出後面名稱,例如"我愛你"
但是因為帶出"我愛你",因此下拉式選單變成沒得選,必須要在輸入完"我"之後,將後面預設帶出的名稱刪除
留下"我"一個字,下拉式選單才能出現資料庫開頭為"我"的所有名稱,例如出現"我愛你","我恨你","我好高"之類的
要如何避免這種窘境,輸入完任何字之後,都不會自動帶出,而可以由下拉式選單選取呢？

Private Sub ComboBox1_Change()
Dim Arr
'找出相同姓名的延續
For i = 1 To Range("A65536").End(xlUp).Row
V = UserForm1.ComboBox1
L = Len(UserForm1.ComboBox1)
If Left(Range("A" & i), L) = Left(UserForm1.ComboBox1, L) Then
Name1 = Name1 & "," & Range("A" & i)
End If
Next
Name1 = Mid(Name1, 2, 10000) '去除","號
Arr = Split(Name1, ",")
UserForm1.ComboBox1.List = Arr
End Sub

複製代碼

樓主熱帖

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2014-12-1 11:43 | 顯示全部帖子

test.rar (17.25 KB)

補檔給各位大大,請在表單的姓名欄位輸入:我

就會變成:我愛你

導致無法下拉選單~選別的名稱

要如何才可以輸入:我

但是不會自動帶出來後面的

而是固定只會出現"我"

然後自己選下拉選單後面的名稱呢?

相對的~若是輸入兩碼也是一樣~不要自動帶入第三碼

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2014-12-2 05:28 | 顯示全部帖子

回復 3# GBKEE

超版您的方法我試過了,我自己也有這樣做過,但實際上輸入完第一個字之後,還是會自動帶出後面的呢!

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2014-12-2 05:29 | 顯示全部帖子

回復 4# stillfish00

stillfish00大大您好,您的建議很好,但小弟使用後跟原本一樣,還是會自動帶出後面的呢!

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2014-12-2 05:31 | 顯示全部帖子

至於問題一 : 若有20個相同功能之程式碼,該如何撰寫?可請大大們提供您的撰寫方式嗎?
小弟的作法是用出20個
Private Sub ComboBox1_Change()
相同程式碼xx
End Sub
然後用取代的方式,將指定選取的部分由ComboBox1取代為ComboBox2
不曉得各位大大有更好的方式嗎?

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2014-12-2 14:07 | 顯示全部帖子

回復 8# stillfish00

ok

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2014-12-2 22:01 | 顯示全部帖子

回復 10# GBKEE

超版大大,我不想要有"自動帶出"的功能,只想要原始輸入值

舉例:資料庫裡面有.連勝文,連戰,連連看

目前的程式,我輸入一個字"連",後面會自動帶出"勝文"

導致我按下拉式選單時,已無可選擇....只有連勝文可選

我只想要當我輸入"連",他就只有"連"一個字(不會自動帶出後面的字)

此時我點選下拉式選單,就可以選擇"連勝文","連戰","連連看"

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2014-12-3 22:40 | 顯示全部帖子

回復 10# GBKEE

程式已經設定好,會依據目前輸入的字數,去搜尋相關位置的資料,達成下拉式選單可以出現選取的部分
例如資料有"我愛你","我愛他","我好高"

我希望輸入"我"一個字,可以用下拉選單選取"我愛你","我愛他","我好高" 這三項的其中一項
但目前不行

原因為:輸入"我"一個字之後,下拉式選單的輸入位置會"自動帶出"後面兩個字,變成"我愛你"
導致下拉選單只剩下"我愛你"可選

有沒有辦法不要"自動帶出"的功能,不然我輸入"我"之後,要自己把後面"自動帶出"的部分刪除才能達到下拉功能
但我同時也希望我輸入"我愛"之後能出現,"我愛你","我愛他"可選,因此不能把程式設定為只抓第一個字母,
而是有輸入幾個字,就尋找幾個字的資料,重點只有一個,如何能夠"不要自動帶出後面的字"
麻煩大大了

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2014-12-5 01:02 | 顯示全部帖子

本帖最後由 PKKO 於 2014-12-5 01:08 編輯

回復 3# GBKEE

超版大大您好,我按照您的方式,輸入"我"之後

還是會自動帶出"好高"兩個字,必須手動先將"好高"刪除

才可以變成您的圖片的樣子

是否可以不要自動帶出(因為自動帶出的~使用者必須要先刪除)

晚點再補上照片給您看

PKKO

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2014-12-6 06:36 | 顯示全部帖子

回復 16# GBKEE

使用大大您的程式之後,確實輸入"我",只會出現"我"

但是從第二次開始,只要輸入"我",都會自動帶出"好高"(如圖片所示)

若是關閉USERFORM再打開,第一次都會正常,但第二次開始之後每一次都會自動帶出"好高"

不知為何..

而若是把自動帶出的"好高"用手動刪除,確實下拉選單是會出現"我","我好高","我好矮"

但使用者每次都要把自動帶出的文字刪除,實在頗為不便...麻煩大大了,抱歉

PKKO

TOP