­ã´£³¡ªL

Set itemlist = IE.document.getElementsByClassName("quantumWizMenuPaperselectOption")
For Each Item In itemlist
     N=N+1
    IF N>1 THEN
    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
   END IF
Next