プロが教えるわが家の防犯対策術!

添付画像のようにA1にはハイパーリンクが付いているのですが、
A2以降は付いていないです。

これを一括で全てハイパーリンクをオンにする操作方法は有りますでしょうか?

「エクセルのハイパーリンクで質問です。」の質問画像

A 回答 (1件)

Sub addLink()


Dim rIdx As Long
rIdx = 1
Do Until Cells(rIdx + 1, 1).Value = ""
rIdx = rIdx + 1
Cells(rIdx, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Cells(rIdx, 1).Value
Loop
End Sub

1)[Alt]+[F11]
2)[挿入]→[標準モジュール]
3)右側のエディタエリアに上記コードを貼りつけ
4)[F5]
    • good
    • 0
この回答へのお礼

すごい!
一発で出来ました!!
今まで1件づつやってたのは何だったのだろう、、
すごくありがとうございます。\(^o^)/

お礼日時:2023/11/07 07:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A