[VBA ] 請教如何執行網頁地址欄位鄉鎮區下拉欄位

[littleyan93 (初來)]

縣市：
<select name="WATER_ADDR_addx" class="form-control" id="WATER_ADDR_addx"
style="width: 7em;">
<option value="" selected="">請選擇</option>
<option value="B">基隆市</option>
<option value="C">新北市</option>
----部分忽略
 </select>
鄉鎮(區)：
<select name="WATER_ADDR_addx_COUN" class="form-control"
id="WATER_ADDR_addx_COUN" style="width: 7em;" onchange="javascript:if
(this.value=='') {document.all['WATER_ADDR'].style.display = 'none'} else
{document.all['WATER_ADDR'].style.display = ''};">
<option value="000">請選擇</option>
</select>
----部分忽略
<input name="WATER_ADDR" id="WATER_ADDR" style="width: 50%;" type="text"
placeholder="請輸入用水地址" value="" data-val-required="用水地址 欄位是必要項
。" data-val="true">
--------------------------------分隔線------------------
不知該如何讓 鄉鎮(區)欄位(WATER_ADDR_addx_COUN)選擇指定執行(ex.金山區)
目前我可以執行部分
部分忽略
Set a = .document.all("WATER_ADDR_addx")
For i = 0 To a.Options.Length - 1
 If a.Options(i).innerText = "新北市" Then
  a.Options(i).Selected = "true"
 End If
Next
.document.all("WATER_ADDR").Value = ActiveSheet.Cells(number, 3)
--------------------------------------------------------
先感謝留言的各位

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.236.5.89 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1594522483.A.915.html
→ lalacos123: 你搜一下下拉式選單就有很多例子了 我上星期才爬的 大
→ lalacos123: 多都卡在fireevent onchange沒做
→ littleyan93: 我爬文有加.document.all("WATER_ADDR_addx_COUN").F
→ littleyan93: ireEvent ("onchange")
→ littleyan93: 在想說哪裡用錯了方法
→ littleyan93: 沒有反應
※ 編輯: littleyan93 (36.236.5.89 臺灣), 07/13/2020 19:11:47
→ lalacos123: https://reurl.cc/Kkazgy
→ lalacos123: 你爬這篇試試 我也是都用focus,selectindex,fireevent
→ lalacos123:  還有是getelementbyid直接指名ID ,再不行等高手了
→ lalacos123:  我也才摸兩個禮拜