Yahoo 知識+ 將於 2021 年 5 月 4 日 (美國東岸時間) 停止服務，而 Yahoo 知識+ 網站現已轉為僅限瀏覽模式。其他 Yahoo 資產或服務，或你的 Yahoo 帳戶將不會有任何變更。你可以在此服務中心網頁進一步了解 Yahoo 知識+ 停止服務的事宜，以及了解如何下載你的資料。
excel 使用userform表單作下拉式選單,使表單更為
各位知識+的達人你好:
請問使用userform表單作下拉式選單,要如何加入迴圈?
例如:新增選單.選擇->姓名為四可的員工.安排區域的下拉式選單->
顯示預設該員工負責最多的區域數"12".希望能稱增加一個迴圈.
或其他方法呈現１~12範圍的資料可選.想好久解決不了...
資料位置:
懇求你的指導!感激不盡~謝謝你
4 個解答
- ?Lv 67 年前最愛解答
在ComBoX1_Change中加上
For i = 1 To 12
.ComboBox2.AddItem i
Next i
試試
2014-11-01 11:21:36 補充：
改成這樣呢?
For i = 1 To Application.WorksheetFunction.Max(Sheets("班表").Range("D5:D" & Sheets("班表").Range("D65536").End(xlUp).Row))
.ComboBox2.AddItem i
Next i
2014-11-01 15:34:37 補充：
For j = 1 To Application.WorksheetFunction.CountA(Sheets("班表").Range("B:B")) - 1
If Me.ComboBox1 <> "" And Sheets("班表").Cells(j + 4, 2) = ComboBox1.Value Then
j1 = Sheets("班表").Cells(j + 4, 4).Value
Exit For
2014-11-01 15:35:01 補充：
End If
Next j
If Me.ComboBox1.Value = "大寶" Then
.ComboBox2.AddItem 0
Else
For i = 1 To j1
.ComboBox2.AddItem i
Next i
End If
2014-11-01 15:35:48 補充：
大概了解您的意思了，請將上面兩段組合起來執行試試
2014-11-01 21:07:41 補充：
請在ComboBox1_Change()下加入以下語法:
For j = 1 To Application.WorksheetFunction.CountA(Sheets("班表").Range("B:B")) - 1
If Me.ComboBox1 <> "" And Sheets("班表").Cells(j + 4, 2) = ComboBox1.Value Then
j1 = Sheets("班表").Cells(j + 4, 4).Value
Exit For
End If
Next j
If Me.ComboBox1.Value = "大寶" Then
.ComboBox2.AddItem 0
Else
For i = 1 To j1
.ComboBox2.AddItem i
Next i
End If
資料來源： 自己的想法 - 7 年前
謝謝大大.
還是希望以原來班表的"可安排總數".作為"負責區域數"的最大值.才不會在表單輸入時數值.超過可以安排的數目.
感謝大大的幫忙.謝謝
2014-11-01 14:18:55 補充：
很抱歉.我還是初學者邏輯觀念不是很好.原資料被我修的不是很好.以大大的資料我填入後.每一位負責區域下拉都是1~12.
我希望例如:姓名 (下拉式選單呈現)
大可 ----> 1~2
大寶 ----> 0
三寶 ---->1~10
四可 ----> 1~12......等等
感謝你的回應.謝謝
2014-11-01 17:39:43 補充：
感謝你.真的太棒了.感恩~
2014-11-01 18:37:48 補充：
請讓我為你加入最佳解答.謝謝~
2014-11-01 20:13:19 補充：
感謝准大解答.居然把我另一個問題給解了.
麻煩移至以下.幫我作答.謝謝~
