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

[µo°Ý]½Ð°Ý¦p¦ó¦bHyperlinks(1).SubAddress©Ò«ü©w¦ì¸m¤§Àx¦s®æ¤W¶ñ­È

[µo°Ý]½Ð¦bHyperlinks.Delete¡A²¾°£Àx¦s®æªº¶W³sµ²®É¡A­n«ç»òÁקK­ì¥ýªº®æ¦¡¤@¨Ö²¾°£

­ì¥ý¶W³sµ²Àx¦s®æ¤W¤W¦³©³¦â¡B¦rÅé¡B®Ø½u¡A

½Ð°Ý¦bHyperlinks.Delete¡A²¾°£®É¡A­n«ç»òÁקK°Ý³o¨Ç®æ¦¡³Q¤@¨Ö²¾°£

TOP

With Range("A1")
¡@¡@¡@rr = .Value
¡@¡@¡@.ClearContents
¡@¡@¡@.Value = rr
End With

TOP

¦^´_ 2# ­ã´£³¡ªL
ÁÂÁ¦^ÂСA¤p§Ì¦h¦¸«ôŪ¹L±zªº¤å³¹¡A¤Q¤À¨ü¥Î¡A¦A¦¸­PÁ¡I

§Úªº°ÝÃD¬O¦b
Cells(rr, cc).Hyperlinks.delete®É¡A®æ¦¡·|¤@¨Ö²¾°£

«á¨Ó¥u§R°£
Cells(rr , cc).Hyperlinks(1).SubAddress = ""¡A¨Ó«O¦í­ì¨Óªº®æ¦¡

TOP

¦^´_ 3# abbay262
2003 ªºµ{¦¡½X,¥i«O¦sÀx¦s®æªº®æ¦¡
  1. Cells(rr, cc).Hyperlinks.Delete
  2. ©Î Cells(rr, cc).Hyperlinks(1).Delete
½Æ»s¥N½X
§A¥i¦Û¦æ¿ý»s¥¨¶°¬Ý¬ÝOffice 2010 ªºµ{¦¡½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

Hyperlinks(1).Delete¤¤ªº(1) ¡A½Ð°Ý¬O¤°»ò·N«ä

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-4-29 10:18 ½s¿è

¦^´_ 5# abbay262
ª«¥ó ©Î °}¦C ªºIndex (¯Á¤Þ­È:¯Á¤Þ¼ÐÅÒ½s¸¹)
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Hyper As Hyperlinks, H As Hyperlink, I As Integer
  4.     Set Hyper = ActiveSheet.Hyperlinks
  5.     For I = 1 To Hyper.Count
  6.         Set H = Hyper(I)
  7.         MsgBox H.Address, , "²Ä " & I & " ­Ó  Hyperlink.Address  "
  8.     Next
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[µo°Ý]½Ð°Ý¦p¦ó¦bHyperlinks(1).SubAddress©Ò«ü©w¦ì¸m¤§Àx¦s®æ¤W¶ñ­È

°²³]¦bsheets("AAA")ªºA1¦³¶W³sµ²¦ì§}­È¬°"BBB!G1"¡A

½Ð°Ý¦p¦ó¦b¦bsheets("AAA")¤W«ö¤@¤UÀx¦s®æA1¡A«K¥i±N¨ä¤W©Ò«ü©w¦ì¸m¤§Àx¦s®æ¤W¶ñ­È(¨Ò¦p¡A123)

°²³]¦bsheets("AAA")ªºA1¦³¶W³sµ²¦ì§}­È¬°"BBB!G1"¡A

½Ð°Ý¦p¦ó¦b¦bsheets("AAA")¤W«ö¤@¤UÀx¦s®æA1¡A«K¥i±N¨ä¤W©Ò«ü©w¦ì¸m¤§Àx¦s®æ¤W¶ñ­È(¨Ò¦p¡A123)
abbay262 µoªí©ó 2016-4-29 16:56

¤£À´.
§A¦bsheets("AAA")¤W«ö¤@¤UÀx¦s®æA1,
¥¦¤£¬O·|¦Û°Ê¸õ¨ì  sheets("BBB")ªºÀx¦s®æG1 Åý§A¿é¤J¸ê®Æ¶Ü?

­Y¬O§A·Q­n¨Ï¥ÎªÌ¥t¥~¿é¤J¸ê®Æ©ñ¶i¥hªº¸Ü:

Range([AAA!A1].Hyperlinks.Item(1).SubAddress) = InputBox("½Ð¿é¤J¸ê®Æ")

TOP

¦^´_ 8# luhpro
ÁÂÁ¦^ÂСA§Úªº¤è¦¡¦p¤U¡A½Ð«ü±Ð
Dim gameHyper, gameSheets, gameCells As String
x = InStr(1, gameHyper, "!", 1)      
If x > 0 Then
    gameSheets = Left(gameHyper, x - 1)
    gameCells = Mid(gameHyper, x + 1, Len(gameHyper) - x)
     Sheets(gameSheets).Range(gameCells).Value = ""
End If

³Ì«á¤@¥y¬O§Ú¶ñ­Èªº¤è¦¡
    Sheets(gameSheets).Range(gameCells).Value = ""

TOP

¸Õ¸Õ¶W³sµ²¨Æ¥ó¡G
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveCell.Value = 123
End Sub
¡@

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD