123
返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
6# 跳轉到 »
發表於 2014-12-2 05:29 | 只看該作者
回復 4# stillfish00


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

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

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

論壇榮譽勳章論壇贊助勳章
5#
發表於 2014-12-2 05:28 | 只看該作者
回復 3# GBKEE


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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2014-12-1 16:39 | 只看該作者
回復 2# PKKO
Combobox 有個 AutoWordSelect 屬性，改為 False 就不會自動帶出
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-12-1 12:56 | 只看該作者
回復 2# PKKO

是這樣嗎?
  1. Dim Arr
  2. Private Sub ComboBox17_Change()
  3.     Dim i As Long
  4.     '找出相同姓名的延續
  5.     Name1 = ComboBox17.Value
  6.     For i = 1 To Range("A65536").End(xlUp).Row
  7.         If Range("A" & i) Like ComboBox17 & "*" Then
  8.             Name1 = Name1 & "," & Range("A" & i)
  9.         End If
  10.     Next
  11.     Arr = Split(Name1, ",")
  12.     UserForm1.ComboBox17.List = Arr
  13.     UserForm1.ComboBox17 = Arr(0)
  14. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 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

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
123
返回列表 上一主題