12
返回列表 上一主題 發帖

[發問] 如何大量建立COMBOBOX 表單方式

lichang

帖子
127 
主題
49 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2023-10-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-30 18:09 | 只看該作者

[發問] 如何大量建立COMBOBOX 表單方式

大家好
    小弟最近想使用VBA建立自己畫面的下拉式表單功能，但因為相關選單實在太多，有什麼比較快的方式作宣告嗎??
例如以下：光一個COMBOBOX1就有32個需要宣告
而COMBOBOX又有20個需要做一樣的宣告
這樣我就必須寫32*20=640個
雖然可以做，但實在是太佔版面，所以有什麼好建議嗎??


ComboBox1.AddItem "aiSV4"     '----------------1
ComboBox1.AddItem "aiSV20"     '----------------2
ComboBox1.AddItem "aiSV40"     '----------------3
ComboBox1.AddItem "aiSV80"    '----------------4
ComboBox1.AddItem "aiSV160"    '----------------5
ComboBox1.AddItem "aiSV360"    '----------------6
ComboBox1.AddItem "aiSV4/4"    '----------------7
ComboBox1.AddItem "aiSV4/20"    '----------------8
ComboBox1.AddItem "aiSV20/20"    '----------------9
ComboBox1.AddItem "aiSV20/40"   '----------------10
ComboBox1.AddItem "aiSV40/40"   '----------------11
ComboBox1.AddItem "aiSV40/80"   '----------------12
ComboBox1.AddItem "aiSV80/80"   '----------------13
ComboBox1.AddItem "aiSV80/160"   '----------------14
ComboBox1.AddItem "aiSV160/160"  '----------------15
ComboBox1.AddItem "aiSV4/4/4"   '----------------16
ComboBox1.AddItem "aiSV20/20/20" '----------------17
ComboBox1.AddItem "aiSV20/20/40" '----------------18
ComboBox1.AddItem "aiSV40/40/40" '----------------19
ComboBox1.AddItem " "            '----------------20
ComboBox1.AddItem "aiSV10 HV"   '----------------21
ComboBox1.AddItem "aiSV20 HV"  '----------------22
ComboBox1.AddItem "aiSV40 HV"  '----------------23
ComboBox1.AddItem "aiSV80 HV"  '----------------24
ComboBox1.AddItem "aiSV180 HV" '----------------25
ComboBox1.AddItem "aiSV360 HV" '----------------26
ComboBox1.AddItem "aiSV10/10 HV" '----------------27
ComboBox1.AddItem "aiSV20/20 HV" '----------------28
ComboBox1.AddItem "aiSV20/40 HV" '----------------29
ComboBox1.AddItem "aiSV40/40 HV" '----------------30
ComboBox1.AddItem "aiSV40/80 HV" '----------------31
ComboBox1.AddItem "aiSV80/80 HV" '----------------32
收藏 分享

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-1-20 
2#
發表於 2015-3-30 18:31 | 只看該作者
把可以規則化的部分拆開來用 For 取代

ex
ComboBox1.AddItem "aiSV20/20"    '----------------9
ComboBox1.AddItem "aiSV20/40"   '----------------10
ComboBox1.AddItem "aiSV40/40"   '----------------11
ComboBox1.AddItem "aiSV40/80"   '----------------12
ComboBox1.AddItem "aiSV80/80"   '----------------13
ComboBox1.AddItem "aiSV80/160"   '----------------14
ComboBox1.AddItem "aiSV160/160"  '----------------15

for w = 20  to 140 Step 20
ComboBox1.AddItem "aiSV" &  w &  "/"  & w   
ComboBox1.AddItem "aiSV" &  w &  "/"  & (w  *2  )
next

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2015-3-30 19:20 | 只看該作者
回復 1# lichang
  1.     Dim ar
  2.     '有幾個填幾個
  3.     ar = Array("aiSV4", _
  4.                 "aiSV20", _
  5.                 "aiSV40", _
  6.                 "aiSV80", _
  7.                 "aiSV160")
  8.                     
  9.     'combobox1 to combobox20
  10.     For i = 1 To 20
  11.         Controls("ComboBox" & i).List = ar
  12.     Next
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lichang

帖子
127 
主題
49 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2023-10-17 
4#
發表於 2015-3-30 23:11 | 只看該作者
回復 3# stillfish00

超強，謝謝您的解惑!!
測試ok!!

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2015-3-30 23:23 | 只看該作者
本帖最後由 mark15jill 於 2015-3-30 23:30 編輯

回復 3# stillfish00

留幾個伏筆讓你練習...
以下程式碼為動態創 8*4 個combobox   每個combobox 自動加入 32筆資料(範例檔  資料我是丟在E欄位)
置於 動態新增的combobox 變更時，就要妳自己去設定想要的功能+變數了~


  1. Dim  thecombobox() As New Class1 '動態陣列 宣告為新的Class1物件類別物件

  3. Private Sub ComboBox1_Change()

  5. End Sub

  7. Private Sub CommandButton1_Click()
  8.      Dim mycombobox1 As MSForms.ComboBox

  10.     Dim Sh As Worksheet
  11.      Set Sh = ActiveSheet

  13.     kk = 1

  15.     For sjy = 1 To 400 Step 100

  17.         For sja = 1 To 800 Step 100

  19.             With Frame1.Controls.Add("forms.combobox.1")
  20.                 Sh.Cells(kk, 3) = .Name
  21.                 .Left = 10 + sja
  22.                 .Top = 10 + sjy
  23.                 .Width = 90
  24.                 .Height = 20

  26.                 .TextAlign = fmTextAlignCenter

  28.                 .BackColor = &HFFFFC0

  30.                 '.a = Sh.Cells(kk, 1)
  31.                  ReDim Preserve thecombobox(0 To kk - 1)              '重新配置 動態陣列
  32.                 Set thecombobox(kk - 1).xlcombobox = Controls(.Name)
  33.                 '動態陣列的元素 指定到物件模組內的物件
  34.             For ewk = 1 To 32
  35.                  eee = Cells(ewk, 5)
  36.                 thecombobox(kk - 1).xlcombobox.AddItem (eee)
  37.             Next
  38.             End With

  40.             kk = kk + 1

  42.         Next

  44.     Next

  46. End Sub

  48. Private Sub UserForm_Click()

  50. End Sub
複製代碼
自創checkbox核選 完成版5 下拉測試.rar (26.84 KB) 自創checkbox核選 完成版5 下拉測試.rar (26.84 KB)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

lichang

帖子
127 
主題
49 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2023-10-17 
6#
發表於 2015-3-31 16:05 | 只看該作者
回復 3# stillfish00

那請問一下喔!!那我的COMBOBOX_CLICK 有辦法一樣的方式處理嗎??

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
7#
發表於 2015-3-31 16:47 | 只看該作者
回復 6# lichang
如果要共用 Click 的觸發行為(就是共用click event)
就要像 #5樓這樣 , 改用物件類別模組喔~
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
8#
發表於 2015-3-31 17:20 | 只看該作者
回復 6# lichang
下面是一簡單例子
form1.JPG
UserForm1 程式碼
  1. Private Temp() As Class1

  3. Private Sub UserForm_Initialize()
  4.     Dim i As Long
  5.     For i = 1 To 4
  6.         ReDim Preserve Temp(i)
  7.         Set Temp(i) = New Class1
  8.         Temp(i).InitialControl Controls("ComboBox" & i)
  9.     Next
  10. End Sub
複製代碼
新增物件類別模組 Class1
  1. Public WithEvents ComboBox As MSForms.ComboBox

  3. Private Sub ComboBox_Change()
  4.     MsgBox ComboBox.Value    'change 動作
  5. End Sub

  7. Public Sub InitialControl(ByRef oControl As MSForms.ComboBox)
  8.     Set ComboBox = oControl
  9.     ComboBox.List = Array("test1", "test2", "test3", "test4")
  10. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lichang

帖子
127 
主題
49 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2023-10-17 
9#
發表於 2015-3-31 18:51 | 只看該作者
好的，我試看看，謝謝指教!!

TOP

lichang

帖子
127 
主題
49 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2023-10-17 
10#
發表於 2015-4-23 12:01 | 只看該作者
回復 8# stillfish00

你好，請問一下，我現在測試，確實有變動了，但是我想按造不同格數建立選擇表單
例如：第一選單，建立在a1
           第二選單，建立在a2
請問該如何使用呢??
(i好像沒辦法直接帶過來change使用)

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
12
返回列表 上一主題