ªð¦^¦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

¦]¬°¤u§@»Ý­n¡A½Ð°Ý¤@¤U¦U¦ì¡A­Y¬O§Ú­n°õ¦æ§å¶q¶W³sµ²¡A¹³¬O¿ï¨ú©ì¦²excelªº¶W³sµ²³¡¤À¥i¥H§å¶q¤@¦¸¶}±Ò¡A³o ...
jonlylovek µoªí©ó 2015-2-10 17:42



1.¬O©ì¦²ªº½d³ò(¯ÂÄæ? ¯Â¦C? ¯ÂÄæ¦C?) §å¶q¤@¦¸¥þ¶}±Ò?
2.¦pªG¯uªº­n¤@¦¸¥þ¶}±Ò ¦³¨ä¥L¤èªk¥i¥H¥Î  ¤£¤@©w«D±o­nEXCEL... ¨Ò¦p  BAT§å¦¸ÀÉ®× ´N¥i¥H°µ¨ì...
    ¦ý¬O ¦pªG¯uªº­n¨º¼Ë§@  ¦³¥i¯à·|¦]¬°¤@¦¸¶}±Ò¤Ó¦h ¾É­P¹q¸£³t«×ÅܺC....(¤£½T©w§A¬O­n¶}ºô­¶ ÁÙ¬O ÀÉ®× ¤S©ÎªÌ¬O ³æ¯ÂÀÉ®×/¤å¥ó ¶¡ªº³sµ²)

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD