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

[µo°Ý] Ãö©ó¦p¦óÅý¶W³sµ²¸ô®|Åã¥Ü¦Ü¥LÄæ©O?

[µo°Ý] Ãö©ó¦p¦óÅý¶W³sµ²¸ô®|Åã¥Ü¦Ü¥LÄæ©O?

Sub Åã¥Ü¶W³sµ²¸ô®|()
On Error Resume Next
For Each C In Sheets("«È¤á©ú²Ó").UsedRange
C.Value = C.Hyperlinks(1).Address
Next
End Sub

¤W­±¦A²Î¤@¦bBÄ欰¶W³sµ²,·QÅã¥Ü¦pHÄæ ­n¦p¦ó°µ©O?
¥Ø«e¥N½X¥u¬OÅý¦¹­¶ªº¶W³sµ²¸ô®|¥þ³¡Åã¥Ü¦Ó¤w

¦^´_ 1# starry1314


   ­Y¥u¬OÅã¥Ü¸ô®|ªº¦WºÙ«h¬O¤U­±¥N½X
  1. For Each c In Sheets("«È¤á©ú²Ó").Range("B1:B" & Sheets("«È¤á©ú²Ó").Range("B65535").End(xlUp).Row)
  2.     n = Sheets("«È¤á©ú²Ó").Cells(Rows.Count, "H").End(xlUp).Row
  3.     If c.Hyperlinks.Count = 0 Then GoTo 100 '¦pªG Cª«¥ó¨S¦³³sµ²ª««h¸õ¹L¡A¦³³sµ²ª«§@«h°õ¦æ¤U¦Cµ{§Ç
  4.     Sheets("«È¤á©ú²Ó").Cells(n + 1, "H") = c.Hyperlinks(1).Address
  5.    
  6. 100:
  7. Next
½Æ»s¥N½X

TOP

¦^´_ 2# lpk187


    ·PÁ«ü¾É~
¥t¤@­Ó¤èªk¨Ï¥Î¤§«eªO¤W¤j¤j´£¨Ñªº«ü¥Oµy°µ­×§ï
­ìª© ¬O¦bBÄæ¤w¦³­È°µ¤W³sµ²
  1.         .Hyperlinks.Add Anchor:=.Cells(lTargetRow, "B"), _
  2.                         Address:=ThisWorkbook.FullName, _
  3.                         SubAddress:=ThisWorkbook.Sheets("«È¤á©ú²Ó").Name & "!" & Rows(lSourceRow).Address, _
  4.                      TextToDisplay:=.Cells(lTargetRow, "b").Text
½Æ»s¥N½X
­×§ï«á  ¥u¦AAOÄæªÅ¥ÕÀx¦s®æ¶K¤W¸ô®|~¤£¶K¤W­ì©l¸ê®Æªº½d³òÀx¦s®æ
  1.    .Hyperlinks.Add Anchor:=.Cells(lTargetRow, "AO"), _
  2.                         Address:=ThisWorkbook.FullName, _
  3.                         SubAddress:=ThisWorkbook.Sheets("«È¤á©ú²Ó").Name & "!" & Rows(lSourceRow).Address, _
  4.                      TextToDisplay:=.Cells(lTargetRow, "ao").Text
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD