Excel 列の URL リストをアクティブ化する

Question

Excel ファイルに 1700 以上の書籍タイトル レコードがあります。これらの 1700 以上のレコードにはそれぞれ参照される表紙画像があり、それらの表紙画像にはタイトルの ISBN 番号の一部 (3-539-4.jpg など) で名前が付けられています。これらの表紙画像はすべて、タイトル レコードと視覚的に照合して、適切に一致しているかどうかを確認する必要があります。

私が思いついたプロセスは、タイトル列の隣の列にローカル URL を配置することです。各 URL をクリックすると、プレビュー アプリで画像が開き、カバー画像のタイトルが隣接するセルのタイトルと一致していることを確認できます。列にローカル URL を配置しましたが、ハイパーリンクの挿入機能でそれぞれを個別に設定する (約 1.5 秒かかります) のではなく、すべてをアクティブにするショートカットが必要です。

URL の列全体でこれを実行するために使用できるマクロまたは VBA モジュールはありますか?

以下は私が始めたものの画像で、最初のものがアクティブになっているのを示しています。

Answer 1

For each myCell in Range("A1:A1700")
    ActiveSheet.Hyperlinks.Add myCell, Address:=MyCell.Value
Next myCell

リンクの実際の範囲に合わせて調整します。

また、リンクには検証がないので、「ランダムテキスト」を含むセルは、それが有効なリンクであるかどうかに関係なく、「ランダムテキスト」にリンクされることに注意してください。