標題: 如何用VBA將組合方塊做到下清單功能請指教 [打印本頁]

---

作者: gca78000    時間: 2015-11-23 18:53     標題: 如何用VBA將組合方塊做到下清單功能請指教

如何用VBA將組合方塊做到下清單功能請指教

---

作者: GBKEE    時間: 2015-11-24 13:34

本帖最後由 GBKEE 於 2015-11-24 15:28 編輯

回復 1# gca78000
PS: 有更正
清單工作表模組的程式碼

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With Target
   
3.         If .Address = "$A$2" And IsNumeric(.Text) Then  'A2
   
4.             With Sheets("資料區").Range("B1")
   
5.                 ComboBox1.List = .Resize(.Cells.End(xlDown).Row).Value
   
6.             End With
   
7.             If .Cells >= 0 And .Cells <= ComboBox1.ListCount Then
   
8.                 ComboBox1.Value = ComboBox1.List(.Value - 1)
   
9.             End If
   
10.         End If
    
11.     End With
    
12. End Sub

複製代碼

---

作者: gca78000    時間: 2015-11-24 14:55

回復 2# GBKEE


    謝謝版大指導但剛測試不行耶...

---

作者: starry1314    時間: 2015-11-24 15:07

回復 3# gca78000


    [attach]22589[/attach]

---

作者: gca78000    時間: 2015-11-24 15:20

回復 4# starry1314
謝謝指導請問版大為何用組合方塊點選A1無法跟著變化

---

作者: gca78000    時間: 2015-11-24 15:31

回復 5# gca78000
小弟打錯是A2才對用組合方快點選A2無動靜耶而請一開始為何要在A2執行過後組合方塊才會有動作

---

作者: GBKEE    時間: 2015-11-25 05:51

回復 6# gca78000
A2無動靜  工作表模組有許多預設的事件程序


[attach]22591[/attach]

---

作者: gca78000    時間: 2015-11-25 18:43

回復 7# GBKEE
謝謝版大熱心解答小弟受益良多..

---

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