ªð¦^¦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 : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD