帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2026-2-10

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2019-1-31 21:35 | 只看該作者

ComboBox5迴圈使用

ComboBox5 縣市
ComboBox1區域別

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

TEST.rar (11.42 KB)

樓主熱帖

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

2^#

發表於 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

世界那麼大，可我想去哪？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2019-2-9 16:40 | 只看該作者

Private Sub ComboBox5_Change()
Select Case ComboBox5
Case "新北市"
ComboBox1.List = Array("淡水區", "三芝區", "石門區", "八里區", "萬里區", "金山區", _
"板橋區", "汐止區", "深坑區", "石碇區", "瑞芳區", "平溪區", "雙溪區", _
"貢寮區", "新店區", "坪林區", "烏來區", "永和區", "中和區", "土城區", "三峽區", "樹林區", _
"鶯歌區", "三重區", "新莊區", "泰山區", "林口區", "蘆洲區", "五股區")
Case "台北市"
ComboBox1.List = Array("中正區", "大同區", "中山區", "松山區", "大安區", "萬華區", "信義區", "士林區", "北投區", "內湖區", "南港區", "文山區")
Case "基隆市"
ComboBox1.List = Array("仁愛區", "信義區", "中正區", "中山區", "安樂區", "暖暖區", "七堵區")
'以此類推加入其他縣市的區名
End Select
End Sub
Private Sub UserForm_Initialize()
With ComboBox5 '縣市別
.AddItem "新北市"
.AddItem "台北市"
.AddItem "桃園市"
.AddItem "基隆市"
.AddItem "桃園市"
.AddItem "台中市"
.AddItem ""
End With
End Sub

複製代碼

回復 1# sillykin

學海無涯_不恥下問

TOP