| |
こんにちは
他のサイトはマルチポスト禁止ですので、こちらを続けるのでしたら他のQ&Aサイトへの
質問はお断り文を書いて解決済みにして下さいね。
Sub test()
Dim r As Range
Dim f As Range
Dim sh1 As Worksheet
Set sh1 = Sheets("Sheet1")
With Sheets("Sheet2")
For Each r In .Range("A2:A4")
Set f = sh1.Cells.Find( _
What:=r.Value, After:=sh1.Cells(1, 1), _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, _
SearchFormat:=False)
If Not f Is Nothing Then
sh1.Hyperlinks.Add Anchor:=f, Address:="", SubAddress:= _
r.Address(external:=True), TextToDisplay:=r.Value
End If
Next
End With
Set sh1 = Nothing
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
