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

[¤À¨É] VBA ºô¸ô³s½u´ú¸ÕFunction(¦Û³Ð)

[¤À¨É] VBA ºô¸ô³s½u´ú¸ÕFunction(¦Û³Ð)

¦U¦ì¤j¤j¦n,¦¹function¬°¤p§Ì¦Û³Ðªº,ÀuÂI¬O´ú¸Õ³t«×§Ö
°ß®£¤p§Ì¸gÅ礣¨¬,­Y¦³¯ÊÂIÁٽиò§Ú»¡¤@¤U,ÁÂÁ¤j®a(°õ¦ædoit¼Ò²Õ§Y¥i)
  1. Sub doit()
  2. MsgBox "¥Ø«e¬O§_¦³³s½u¦Üºô¸ô:" & web_check
  3. End Sub
  4. Function web_check() As Boolean
  5. On Error GoTo error_catch
  6. Set hq = CreateObject("MSXML2.XMLHTTP.3.0"): hq.Open "get", "https://www.google.com.tw/", False
  7. hq.send: web_check = True: Exit Function
  8. error_catch: web_check = False
  9. End Function
½Æ»s¥N½X
PKKO

¦^´_ 1# PKKO

½Ð°Ý³o¬O³æ¯Â´úºô¸ô¦³¨S¦³³q¶Ü?

ÁÙÆZ¯S§OªºFUNCTION

·PÁÂPKKO¤À¨É !
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 2# li_hsien


    ¥i´ú¸Õ¥H¤Uª¬ªp
¤@¡B¨S¦³³s±µºô¸ô
¤G¡B¦³ºô¸ô,¦ýºô¸ô¬O§_¦³®Ä,¥i§_³s½u¨ìGoogle

¦]¦¹¨Ï¥Î¦¹function¥i¥H§¹¾ã±oª¾¥Ø«eªººô¸ô¬O§_¦³®Ä,¥H«K¶i¦æ¤U¤@­Ó°Ê§@
PKKO

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD