こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

vbaでのハイパーリンク

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

投稿日時 - 2020-10-26 14:50:19

QNo.9816071

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(5)

ANo.5

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

投稿日時 - 2020-10-28 17:56:58

ANo.4

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

投稿日時 - 2020-10-26 17:13:44

お礼

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

投稿日時 - 2020-10-26 17:26:43

ANo.3

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

投稿日時 - 2020-10-26 17:11:28

ANo.2

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

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


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

投稿日時 - 2020-10-26 16:31:39

補足

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

投稿日時 - 2020-10-26 16:48:19

ANo.1

以下で試してみてください。
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

投稿日時 - 2020-10-26 15:26:07

補足

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

投稿日時 - 2020-10-26 16:18:53

あなたにオススメの質問