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

[µo°Ý] VBA ¶W³sµ²ºÃ°Ý

[µo°Ý] VBA ¶W³sµ²ºÃ°Ý

¦U¦ì«e½ú¦n

·Q½Ð±Ð¤@¤U¡A¦pªGÀx¦s®æ¸Ì­±¤w¸g¦³ºô§}¤F
¦p¦ó¼¶¼g¥i¥H¤@¦¸¥þ³¡Åܦ¨¶W³sµ²ªº¤èªk?(¸ê®Æ¤j·§¦³100¦hµ§)
§Úª¾¹D¥i¥H¦b¹j¾ÀÄæ¶K¤W=hyperlink(A2)ªº¤èªk©¹¤U©Ô¡A·|Åܦ¨¶W³sµ²
¦ý§ÚÁÙ¬O·Q­n¾Ç²ß¤@¤U¡A¦³¨S¦³µ{¦¡ªº¼¶¼g¤èªk

·PÁÂ~

¶W³sµ².rar (6.24 KB)

¦^´_ 1# Michelle-W
¸Õ¬Ý¬Ý¡C
  1. Sub test()
  2.     Dim cell As Range
  3.     For i = 2 To [A65536].End(3).Row
  4.         Set cell = Cells(i, 1)
  5.         ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=Cells(i, 2).Value, TextToDisplay:=cell.Value
  6.     Next i
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# Kubi


¯uªº¥i¥H­C!! ­ì¨Ó¥i¥H³o¼Ë¼g~
«D±`·PÁ±z~ ^^

TOP

¦^´_ 1# Michelle-W
A1.png
2016-6-29 19:19

TOP

¦^´_ 4# c_c_lai


«D±`ÁÂÁ±z~~
¤èªk¤@¸ò¤G§Ú³£ª¾¹D
¥u¬O·Q¾Ç²ß¬Ý¬ÝVBAªº¼gªk
¦]¬°¨­®Ç¨S¦³¤H·|¡A¥u¦n¦Û¤v±q²³æ®×¨Ò¶}©lµÛ¤â½m²ß
ÁÂÁÂ^^

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD