vbaでのハイパーリンク

質問

G1セルにURLが入力されており、そのURLをハイパーリンクにしたいです。下のG2からずっとURLが入っており同じ処理を記入がなくなるまで繰り返し行いたいです。どのような式で行えるでしょうか？なかなかうまくいかずお力添えいただきたいです。

回答No.5

masnoske

VBAを使わずとも Hyperlink関数でできますよ。

回答No.4

kkkkkm

Hyperlinks.Add メソッド (Excel)
https://docs.microsoft.com/ja-jp/office/vba/api/excel.hyperlinks.add

お礼

すみません。教えていただいたものでできました。わたしの入力ミスでした。大変申し訳ありません。ありがとうございました。

回答No.3

kkkkkm

実際のコードを見せてください。

回答No.2

kkkkkm

> しかしhyperlinksのところで構文エラー

以下を削除して
', TextToDisplay:= 個々のセルに表示したい何かがあればここに記載して「']を外す

以下のようにしたらどうなりますか
For i = 1 To .Cells(Rows.Count, "G").End(xlUp).Row
.Hyperlinks.Add Anchor:=.Cells(i, "G"), _
Address:=.Cells(i, "G").Value

補足

やはり構文エラーとでてしまいます。

回答No.1

kkkkkm

以下で試してみてください。
URLのあるセルにそのままハイパーリンクしてますが別のセルの列にしたい場合は
Anchor:=.Cells(i, "G")
の"G"を変更してください。

Sub Test()
Dim i As Long

With Sheets("Sheet1")
For i = 1 To .Cells(Rows.Count, "G").End(xlUp).Row
.Hyperlinks.Add Anchor:=.Cells(i, "G"), _
Address:=.Cells(i, "G").Value _
', TextToDisplay:= 個々のセルに表示したい何かがあればここに記載して「']を外す
Next
End With
End Sub

補足

ありがとうございました。しかしhyperlinksのところで構文エラーとなってしまいました。