- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 102
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-3
              
|
- 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
|
|
發表於 2019-2-9 16:40
| 