Set itemlist = IE.document.getElementsByClassName("quantumWizMenuPaperselectOption")
For Each Item In itemlist
If Item.getAttribute("data-value") Like "PM" Then '下午
Item.classList.Add ("isSelected")
Item.setAttribute "aria-selected", "true"
Item.setAttribute "tabindex", "0"
Else
Item.classList.Remove ("isSelected")
Item.setAttribute "aria-selected", "false"
Item.setAttribute "tabindex", "-1"
End If
Next作者: ssooi 時間: 2021-3-10 17:53