12
返回列表 上一主題 發帖

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

lichang

帖子
127 
主題
51 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2024-9-16 
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
收藏 分享

lichang

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

謝謝你的解答，我會再努力學習!!
希望以後能不吝澀再指教!!

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
16#
發表於 2015-4-24 18:41 | 只看該作者
回復 15# lichang
書是看得不多，最有收穫的是
Professional Excel Development 2nd
但這本不是給入門的人看的，入坑前三思。

最主要是常寫，遇到問題上網google，
要學會下對關鍵字，八成都有答案。
多數答案都會連結到這個論壇或ExcelHome(所以才會加入這論壇)
中文找不到，改英文關鍵字，多半問題會在StackOverflow得到解答

寫多了，遇過問題就多，解決過的問題也就多了，如此而已。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lichang

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

謝謝您的回覆，不過因為實在是太多選單，所以才會想用一次管理的方式做!!
這樣對程式撰寫也比較好管理，還有我使用您第一個建議的方式，已經完成測試，確實是我要的東西
您真是太強了ˊ!!

題外話，請問您這些知識，是要看那些書籍才能知道如何撰寫，方便提供一下嗎??

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
14#
發表於 2015-4-24 16:34 | 只看該作者
回復 12# lichang
不過通常會是透過一個按鈕去觸發
再一次性把表單上的資料更新到工作表
而不是透過Combobox change event
這樣也比較簡單
  1. Private Sub CommandButton1_Click()
  2.     With ActiveSheet.Range("B1799")
  3.         For i = 1 To 4
  4.             .Cells(i, 1).Value = Controls("ComboBox" & i).Value
  5.         Next
  6.     End With
  7. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
13#
發表於 2015-4-24 16:23 | 只看該作者
回復 12# lichang
不確定是不是你要的 : 每個ComboBox 都有一個對應的儲存格 , 每次ComboBox選擇改變時，對應的儲存格值也改變。

因為沒程式碼我直接用 8#的例子來修改
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), ActiveSheet.Cells(1799 + i, "B")
  9.     Next
  10. End Sub
複製代碼
新增物件類別模組 Class1
  1. Public WithEvents ComboBox As MSForms.ComboBox
  2. Private linkCell As Range

  4. Private Sub ComboBox_Change()
  5.     linkCell.Value = ComboBox.Value
  6. End Sub

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

TOP

lichang

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

如以下附圖，當我選擇到第二個選單時，選擇的東西自己建立到B1801，以此類推!!
不好意思，一直麻煩你了!!

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
11#
發表於 2015-4-24 09:10 | 只看該作者
回復 10# lichang
看不懂你的意思，請附圖或檔案說明一下，謝謝。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

lichang

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

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

TOP

lichang

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

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
12
返回列表 上一主題