返回列表 上一主題 發帖

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

stillfish00

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-12-2 13:46 | 顯示全部帖子
回復 6# PKKO
呃抱歉，那可能是我誤會那個屬性了，
至於問題一，置頂帖 "本版值得關注的主題將陸續增加" 裡面 22 有
主要是用物件類別來管理共同事件，你可以自己試試看
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2014-12-8 11:04 | 顯示全部帖子
本帖最後由 stillfish00 於 2014-12-8 11:12 編輯

回復 23# PKKO
新增物件類別模組 clsComboBox
  1. Private WithEvents mComboBox As MSForms.ComboBox

  3. Public Sub InitialControl(ByRef oControl)
  4.   Set mComboBox = oControl
  5. End Sub

  7. Private Sub mComboBox_Change()
  8.   mComboBox.Clear
  9. End Sub

  11. Private Sub mComboBox_DropButtonClick()
  12.   Dim ar, i As Long, j As Long
  13.   ar = Application.Transpose(Range([A1], [A1].End(xlDown)))
  14.   For i = 1 To UBound(ar)
  15.     If ar(i) Like mComboBox.Text & "*" Then
  16.       j = j + 1
  17.       ar(j) = ar(i)
  18.     End If
  19.   Next
  20.   
  21.   If j > 0 Then
  22.     ReDim Preserve ar(1 To j)
  23.     mComboBox.List = ar
  24.   End If
  25. End Sub
複製代碼
UserForm:
  1. Private gcolComboBoxs As Collection

  3. Private Sub UserForm_Initialize()
  4.   Dim oComboBox As clsComboBox, x
  5.   
  6.   Set gcolComboBoxs = New Collection
  7.   
  8.   For Each x In Me.Controls
  9.     If StrComp(TypeName(x), "ComboBox", vbTextCompare) = 0 Then
  10.       Set oComboBox = New clsComboBox
  11.       oComboBox.InitialControl x
  12.       gcolComboBoxs.Add oComboBox
  13.     End If
  14.   Next
  15. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題