Excel VBA

【Excel VBA】複数のハイパーリンクの表示名を一括で変換する方法

Excelにハイパーリンクをつけるときにとても文字数が多くなってしまう場合はないでしょうか。

例えばSharePointやTeamsから発行されるリンクを張り付ける場合などです。

そんな中で、悩むことは、

・ハイパーリンクはそのままに表示名だけを短くしたいが方法がわからない。
・VBAでハイパーリンクの表示名だけ一括変更したいがい方法がわからない。

ですよね。

今回はそんなお悩みを解消する、
ハイパーリンクのリンク先はそのままに表示名だけ短縮表記にする方法について、
ご紹介します。

ハイパーリンクの表示名を変更するイメージ

ハイパーリンクの表示名を変更するイメージについて説明をします。

サンプルでは、表のハイパーリンクの表示名をすべて「HyperLink」にしていきます。

変更されました。

ではさっそくやってみましょう。

基本操作：ハイパーリンクの表示名を変更する

ハイパーリンクの表示名を変更する基本操作について説明をします。

①「Ctrl」＋「F」で検索ウインドウを表示させ「置換」タブをクリックします。

②「検索する文字列」の「書式」をクリックします。

③書式の選択ウインドウで「フォント」タブをクリックし、「下線」をプルダウンリストから選択し「OK」をクリックます。

④「置換後の文字列」に「HyperLink」と入力します。

タカヒロ
タカヒロ
表示名はご自由に設定してもらってかまいません。


入力が終わったら「すべて置換」をクリックします。
※すべての下線入りの文字列が置換されるのでご注意ください。

⑤完成
はい！できましたね！
見た目もすっきりしました！

ハイパーリンクの表示名を一発で変換するVBA

基本操作で行ったハイパーリンクの表示名を一発で変換する操作を

VBAを使い、ワンクリックで処理をしていきましょう。

サンプルコードは以下の通りです。

Sub ハイパーリンク表示名一括変換()
    Cells.Replace What:="", Replacement:="HyperLink_マクロから置換", LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchFormat:=True
End Sub

VBAを設定する

VBAを設定していきましょう。

以下の置換後の表示名を指定します。

Replacement:=＜こちらに置換後の表示名を指定してください。＞

サンプルでは、「HyperLink_マクロから置換」としました。

実行してみましょう。

はい！表示名が変更されてますね。

さいごに

いかがでしょうか。

今回は、
ハイパーリンクのリンク先はそのままに表示名だけ短縮表記にする方法について、
まとめました。

ハイパーリンクの表示名を短くするととても見やすくなりますので、
ぜひ試してみてください。



この記事の関連キーワード

こちらの記事の関連キーワード一覧です。クリックするとキーワードに関連する記事一覧が閲覧できます。


「ハイパーリンク」の関連記事

こちらの記事の内容「ハイパーリンク」に関連する記事一覧です。


　データ分析で四苦八苦している方にオススメ！　
Power BIをカンタン習得できるおすすめ本！ 最短習得方法も！

Power BIをカンタン習得できるおすすめ本！裏技｜最短習得方法も！

サクッとPowerBIでデータ分析できる人になりましょう！

タカヒロ

タカヒロ
実質無料で読めるExcelVBA本についてまとめました。
もしVBA本購入を検討されていたら、どれだけお得か確かめてみてください。

【￥０】実質無料のExcelVBAおすすめ本25選！初級～中級まで網羅！

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

RECOMMENDこちらの記事も人気です。