[µo°Ý]½Ð°Ý¦p¦ó¦bHyperlinks(1).SubAddress©Ò«ü©w¦ì¸m¤§Àx¦s®æ¤W¶ñÈ
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
[µo°Ý]½Ð¦bHyperlinks.Delete¡A²¾°£Àx¦s®æªº¶W³sµ²®É¡An«ç»òÁקKì¥ýªº®æ¦¡¤@¨Ö²¾°£
ì¥ý¶W³sµ²Àx¦s®æ¤W¤W¦³©³¦â¡B¦rÅé¡B®Ø½u¡A
½Ð°Ý¦bHyperlinks.Delete¡A²¾°£®É¡An«ç»òÁקK°Ý³o¨Ç®æ¦¡³Q¤@¨Ö²¾°£ |
|
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-11
|
With Range("A1")
¡@¡@¡@rr = .Value
¡@¡@¡@.ClearContents
¡@¡@¡@.Value = rr
End With |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
¦^´_ 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¦íì¨Óªº®æ¦¡ |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
¦^´_ 4# GBKEE
Hyperlinks(1).Delete¤¤ªº(1) ¡A½Ð°Ý¬O¤°»ò·N«ä |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
[µ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) |
|
|
|
|
|
|
- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
°²³]¦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·Qn¨Ï¥ÎªÌ¥t¥~¿é¤J¸ê®Æ©ñ¶i¥hªº¸Ü:
Range([AAA!A1].Hyperlinks.Item(1).SubAddress) = InputBox("½Ð¿é¤J¸ê®Æ") |
|
|
|
|
|
|
- ©«¤l
- 34
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-4-1
- ³Ì«áµn¿ý
- 2021-5-5
|
¦^´_ 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 = "" |
|
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-11
|
¸Õ¸Õ¶W³sµ²¨Æ¥ó¡G
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveCell.Value = 123
End Sub
¡@ |
|
|
|
|
|
|