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

¤@¦¸²¾°£©Ò¦³¡y¶W³sµ²¡zªº¤èªk¡H

¦^´_ 1# cfuxiong
VBAµ{§Ç
  1. Sub Ex()
  2.     Dim Sh As Worksheet        'Dim(«Å§iÅܼƬ°¨p¥ÎÅܼÆ)  «¬ºA¬° Worksheet(¤u§@ªí)
  3.     For Each Sh In Sheets      'Sheets(¤u§@ªíªº¶°¦Xª«¥ó)
  4.         Sh.Hyperlinks.Delete   'Sh(¤u§@ªí)ªºHyperlinks(¶W³sµ²¶°¦Xª«¥ó)§R°£
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD