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

[µo°Ý] §å¶q¶W³sµ²

[µo°Ý] §å¶q¶W³sµ²

¦]¬°¤u§@»Ý­n¡A½Ð°Ý¤@¤U¦U¦ì¡A­Y¬O§Ú­n°õ¦æ§å¶q¶W³sµ²¡A¹³¬O¿ï¨ú©ì¦²excelªº¶W³sµ²³¡¤À¥i¥H§å¶q¤@¦¸¶}±Ò¡A³o³¡¤À¸Ó«ç»ò¼g¤ñ¸û¦n¡C
§Ú¦³¤Wºôª¦¤F¤@¤U¡A¦ý¦]¬°³o³¡¤À¹ê¦b¬O¤p§ÌµLªk¥h°Ñ³z¡AÁٻݭn¦U¦ìÀ°¦£¨ó§U¡A·PÁ¡C

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
For Each Rg In Target
  If Rg.Hyperlinks.Count > 0 Then
    Rg.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  End If
Next Rg
End Sub
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD