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

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

¦^´_ 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

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD