貼り付けたリンクコードの操作方法

質問

コピーし貼り付けたリンクコードはそのままだとコードは書き込まれているだけではリンクしていません、通常これをリンクさせるためにはセルを選択しEnterを押さなければなりません。
大量のリンクコードなどをコピーペーストした場合大変時間がかかります。
コピーし貼り付けた複数のリンクコードを一気にリンクした状態にする方法を教えてください。

回答No.2

Wendy02

こんにちは。

手動でするなら、

HYPERLINK(リンク先,別名)
例：
B1:
=HYPERLINK(A1)

で関数でやってみてください。ひとつ入れたら、後は、数式をコピーします。

>複数のリンクコードを一気にリンクした状態

という要求に応じて書いたわけで、私も、出来れば、ワークシートの操作を選びたいのです。あえて、マクロを勧めるつもりもありません。

私の記憶では、前のバージョンでは、自動的にハイパーリンクになっていたものが、セキュリティの関係か、今は、自動的にはハイパーリンクにはなりません。それを慮って解答をしました。あまり選択肢があるわけではないような気がします。

以下のような手段でマクロが実行できると思っていますが、どのような手段であれ、しばらくここで掲示をオープンして置いて、別の方のアイデアが出るのを待つか、もしくは、Googleなどの検索で探すか、マクロがお分かりになる方にお頼みになったほうがよいと思います。ただし、見つけても、アドインのインストールはお勧めしません。アドインのインストールをするぐらいなら、私のを使ってください。削除すれば、何もなくなりますから。

一応、マクロの登録の仕方だけは書いておきます。不要になったら、モジュールごと消してください。

（通常は、左端上に窓－プロジェクト・エクスプローラが出ていて、プロジェクトというのがありますから、それで、"Module1" というのがあって、それを右クリックで、「モジュールの解放」をクリックして、エキスポートしますか？と聞いてきたら、「いいえ(N)」をクリックすれば何も残りません。）

-------------------------------------------
標準モジュールへの取り付け方：

Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。

次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、

Alt　+　Q で、画面を閉じます。

後は、Alt + F8 で、「SetHyperlinks」を実行します。
-------------------------------------------

補足

ありがとうございます
>HYPERLINK(リンク先,別名)
>例：
>B1:
>=HYPERLINK(A1)
>で関数でやってみてください。ひとつ入れたら、後は、数式をコピーします。
---以上例文------
上記の部分をもう少し具体的に教えてください、と質問するほどド素人です、ごめんなさい。

回答No.1

Wendy02

こんばんは。

まず、Excelですか？Wordですか？Excel2003以上では、Enter を入れても、ハイパーリンクにはならなかったような気がしますので、それ以下のバージョンですか？

いずれにしても、URLコード自体をハイパーリンクにするには、マクロが必要になりますが、それでよろしいのですか？

これは、Excel用のURLをハイパーリンク化させるプログラムです。（メール・アドレスの場合は、またコードが違います）

Sub SetHyperlinks()
　　Dim c As Range
　　With ActiveSheet
　　　　For Each c In .UsedRange
　　　　　　If c.Value Like "http:*" Then
　　　　　　　　.Hyperlinks.Add Anchor:=c, Address:=c.Value
　　　　　　End If
　　　　Next c
　　End With
End Sub

お礼

ありがとうございますマクロが全くわかりませんので何か他の方法がありましたら教えてください。
ちなみにExcel2003を使用しています。