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

¦^´_ 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 : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD