返回列表 上一主題 發帖

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

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 
1# 跳轉到 »
發表於 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

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題