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

[°ÝÃD] Web ¶W³sµ²¾É¤J

[°ÝÃD] Web ¶W³sµ²¾É¤J

­Ó¤H·|¨Ï¥Î Excel ±qºô¯¸¤W¡A滙¤Jªí³æ¸ê®Æ¦Ü Excel ªí®æ¡D

¦ý­ì©l Web ªí³æ¸Ìªº³¡¥÷¤å¦r¡A¦³¶W³sµ²¡A

­n¦p¦ó¡¨´£¨ú¡¨¨º¤å¦rÁô§tªº¶W³sµ²¸ê®Æ©O¡H

¦^´_ 1# alumi
  1. Sub ExtractHL()
  2.     Dim HL As Hyperlink
  3.     For Each HL In ActiveSheet.Hyperlinks
  4.         HL.Range.Offset(0, 1).Value = HL.Address
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# genes

   ·PÁ±z¡A«Üºë²ªºµ{¦¡½X¡D

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD