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

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

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD