|
ウッシさん ありがとうございます。
できました。感謝感激雨あられです。
でも、悲しいことに、空白のセルがあったり、新しいセルがあるところを設定すると
「プロシージャの呼び出し、または引数が不正です。」
って出てしまいますね。(>_<)
▼ウッシ さん:
>こんにちは
>
>他のサイトはマルチポスト禁止ですので、こちらを続けるのでしたら他の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
|
|