標題: ComboBox5迴圈使用 [打印本頁]

---

作者: sillykin    時間: 2019-1-31 21:35     標題: ComboBox5迴圈使用

ComboBox5 縣市
ComboBox1區域別

先選ComboBox5選擇縣市==>ComboBox1選區域別===>第一次選OK正確
在不離開userform,在選第二種ComboBox5選擇縣市==>ComboBox1選區域別(就發生錯誤)
想請問一下要如何修正

---

作者: Joforn    時間: 2019-2-1 19:42

Private Sub ComboBox5_Change()
  ComboBox1.Clear
  Select Case ComboBox1.ListIndex
    Case 0:
      ...
    Case 1:
      ...
    Case 3:
      ...
  End Select
End Sub

---

作者: Hsieh    時間: 2019-2-9 16:40

1. Private Sub ComboBox5_Change()
   
2. Select Case ComboBox5
   
3. Case "新北市"
   
4. 
   
5. ComboBox1.List = Array("淡水區", "三芝區", "石門區", "八里區", "萬里區", "金山區", _
   
6. "板橋區", "汐止區", "深坑區", "石碇區", "瑞芳區", "平溪區", "雙溪區", _
   
7. "貢寮區", "新店區", "坪林區", "烏來區", "永和區", "中和區", "土城區", "三峽區", "樹林區", _
   
8. "鶯歌區", "三重區", "新莊區", "泰山區", "林口區", "蘆洲區", "五股區")
   
9. 
   
10. 
    
11. Case "台北市"
    
12. ComboBox1.List = Array("中正區", "大同區", "中山區", "松山區", "大安區", "萬華區", "信義區", "士林區", "北投區", "內湖區", "南港區", "文山區")
    
13. 
    
14. Case "基隆市"
    
15. ComboBox1.List = Array("仁愛區", "信義區", "中正區", "中山區", "安樂區", "暖暖區", "七堵區")
    
16. '以此類推加入其他縣市的區名
    
17. End Select
    
18. 
    
19. End Sub
    
20. 
    
21. Private Sub UserForm_Initialize()
    
22. 
    
23. 
    
24.   With ComboBox5 '縣市別
    
25. 
    
26. .AddItem "新北市"
    
27. .AddItem "台北市"
    
28. .AddItem "桃園市"
    
29. .AddItem "基隆市"
    
30. .AddItem "桃園市"
    
31. .AddItem "台中市"
    
32. 
    
33. .AddItem ""
    
34. End With
    
35. End Sub

複製代碼

回復 1# sillykin

---

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