ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

ºô­¶¶ñ¼g

ºô­¶¶ñ¼g

¥»©«³Ì«á¥Ñ ssooi ©ó 2021-3-3 23:47 ½s¿è

ºô­¶¶ñ¼g¹J¨ì¤@¨Ç°ÝÃD
0303.jpg
¹ê»Ú¤W§Ú¤w¸g±Ncells(1,1)ªº­ÈA1¶ñ¼g¤W¥h
¦ý¬Oºô­¶ÁÙ¬O¼g"±zªº¦^µª"
¦n¹³ºô­¶·|°»´ú¤£¨ì©Ò¿é¤Jªº¤å¦r
½Ð°Ý¦³¬Æ»ò¤è¦¡¶Ü?
ÁÂÁÂ

·s¤å¦r¤å¥ó.rar (404 Bytes)

¸g¹L¤@µf§V¤O
²×©ó¦³¶i®i¤F
¥Ø«e³Ñ¤U®É¶¡ªº ¤W¤È/¤U¤Èªº¤U©Ô¿ï³æµLªk¿ï¾Ü
½Ð°Ý¦³°ª¤Hª¾¹D¦p¦óÂIÀ»®É¶¡ªº¤U©Ô¦¡¿ï³æ¶Ü?
·PÁÂ

VBA.rar (524 Bytes)

TOP

  1. IE.document.getElementsByClassName("quantumWizMenuPaperselectOptionList")(0).Click
½Æ»s¥N½X
°õ¦æ³o¦æ¡A¤w¸g¥i¥H¦¨¥\¥s¥X¤U©Ô¿ï³æ¡C¦ý¬O´N¬O¨S¿ìªkÂI¿ï"¤U¤È"

TOP

¦^´_ 3# ssooi



    Set itemlist = IE.document.getElementsByClassName("quantumWizMenuPaperselectOption")

For Each Item In itemlist
                If Item.getAttribute("data-value") Like "PM" Then  '¤U¤È
                    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

TOP

¤w´ú¸Õ¦¨¥\!
·PÁÂ

½Ð°Ý¦pªG¦³¨â­Ó®É¶¡Äæ¦ì»Ý­n¥´¤W¤È/¤U¤È¡A­n¦p¦ó¥u§ó§ï®É¶¡2Äæ¦ìªº¤W¤È/¤U¤È


[attachimg]®É¶¡2[/attachimg]

123456.jpg (8.77 KB)

123456.jpg

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD