作者littleyan93 (初來)
看板Visual_Basic
標題[VBA ] 請教如何執行網頁地址欄位鄉鎮區下拉欄位
時間Sun Jul 12 10:54:41 2020
縣市：
<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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1594522483.A.915.html
1F：→ lalacos123: 你搜一下下拉式選單就有很多例子了 我上星期才爬的 大07/13 15:11
2F：→ lalacos123: 多都卡在fireevent onchange沒做07/13 15:11
3F：→ littleyan93: 我爬文有加.document.all("WATER_ADDR_addx_COUN").F 07/13 19:08
4F：→ littleyan93: ireEvent ("onchange") 07/13 19:09
5F：→ littleyan93: 在想說哪裡用錯了方法07/13 19:10
6F：→ littleyan93: 沒有反應07/13 19:10
※ 編輯: littleyan93 (36.236.5.89 臺灣), 07/13/2020 19:11:47
8F：→ lalacos123: 你爬這篇試試 我也是都用focus,selectindex,fireevent 07/14 12:00
9F：→ lalacos123: 還有是getelementbyid直接指名ID ,再不行等高手了 07/14 12:00
10F：→ lalacos123: 我也才摸兩個禮拜 07/14 12:00