標題: [發問] 請教vba 的表單控制項, 用"下拉式方塊" . 如何建立清單 [打印本頁]

---

作者: melvinhsu1105    時間: 2011-5-12 14:10     標題: 請教vba 的表單控制項, 用"下拉式方塊" . 如何建立清單

1.在vba 的表單控制項, 用"下拉式方塊"  . 如何建立清單


[attach]6145[/attach]


２。而另依下拉式方式的選擇，　依序輸入到第２個工作頁，

[attach]6146[/attach]


以上再請教各位先進。

---

作者: mark15jill    時間: 2011-5-12 17:20

方便將您所要的訊息 弄成一個範例檔(+說明)嗎???

---

作者: GBKEE    時間: 2011-5-12 17:42

本帖最後由 GBKEE 於 2011-5-12 20:06 編輯

回復 1# melvinhsu1105

1. Sub 制訂清單的內容()
   
2.     '下拉清單是屬Shape物件
   
3.     With Sheets("SHEET1").Shapes(1)  '如下拉清單是Shapes的第一個Item
   
4.         '.ControlFormat.ListFillRange = "SHEET1!A1:A9"  '下拉清單內容的範圍
   
5.         .ControlFormat.ListFillRange = "TEST"      '工作表範圍的定義名稱 也可以
   
6.     End With
   
7. End Sub

複製代碼

依序輸入到第２個工作頁的程式碼

1. Sub 下拉清單1__Click()  ' 下拉清單指定的巨集
   
2.     With Sheets("SHEET1").Shapes(1).ControlFormat
   
3.         Sheets("SHEET2").Cells(Rows.Count, "A").End(xlUp).Offset(1) = .List(.ListIndex)
   
4.     End With
   
5. End Sub

複製代碼

---

作者: Hsieh    時間: 2011-5-12 19:53

表單控制項?
[attach]6152[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)