メインコンテンツへスキップ

ExcelでURLテキストをクリック可能なハイパーリンクに変換するにはどうすればよいですか?

ワークシートに複数のURLがあり、それらがリンクされていない場合、次のスクリーンショットに示すように、リンクされていないすべてのURLをクリック可能なハイパーリンクに変換する必要があります。 もちろん、XNUMXつずつダブルクリックしてクリック可能にすることもできますが、URLが多い場合は時間がかかります。 リンクされていない複数のURLをExcelで自動的にクリック可能なハイパーリンクに変換するにはどうすればよいですか?


矢印青い右バブル URLテキストをVBAコードでクリック可能なハイパーリンクに変換する

次のVBAコードを使用する以外に、Excelでこの問題を解決する効果的な方法は他にないようです。

1。 クリック可能なハイパーリンクに変換するURLテキストの範囲を選択します。

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4。 次に、 F5 キーを押してコードを実行し、範囲を選択するためのポップアップダイアログを表示して、[ OK、および選択したリンクされていないURLは、クリック可能なハイパーリンクに変換されています。 スクリーンショットを参照してください:

2

矢印青い右バブル Kutools for Excelを使用して、URLテキストをクリック可能なハイパーリンクに変換します

たぶん、VBAコードはあなたにとっていくつか難しいです、ここで、私はあなたに多機能ツールを紹介することができます-Kutools for Excelそのと ハイパーリンクを変換する 機能を使用すると、次の操作をすばやく処理できます。

  • ハイパーリンクから実際のアドレスを抽出します。
  • URLテキストをクリック可能なハイパーリンクに変換する
Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます

あなたがインストールしている場合 Kutools for Excel、次のようにしてください。

1。 クリック可能なハイパーリンクに変換するURLテキストの範囲を選択します。

2に設定します。 OK をクリックします。 クツール > リンク > ハイパーリンクを変換する、スクリーンショットを参照してください:

3。 の中に ハイパーリンクを変換する ダイアログボックスで セルの内容がハイパーリンクアドレスを置き換えます、クリック ドキュメントボタン1 からのボタン 結果の範囲 結果を入れるセルを指定します。

4。 そして、 OK、選択したすべてのプレーンテキストリンクがクリック可能なハイパーリンクに変換されました。 スクリーンショットを参照してください:

注意:

1.実際のアドレスを元の範囲に戻したい場合は、以下を確認してください。 ソース範囲を変換する.

2.ハイパーリンクが現在のドキュメントにリンクされている場合は、確認してください ハイパーリンクはこのドキュメント内の場所です オプションを選択します。

ハイパーリンクを変換する この機能について詳しく知るために。

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


矢印青い右バブル   デモ:Kutools for Excelを使用して、URLテキストをクリック可能なハイパーリンクに変換します

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

関連記事:

Excelのハイパーリンクから実際のアドレスを抽出するにはどうすればよいですか?

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Дай бог здоровья, вам, вашим матерям и детям, первенца в честь автора назову
This comment was minimized by the moderator on the site
Muito bom, só uma dúvida, existe a possibilidade de deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), tipo clico pra excutar a macro e ele pega o intervalo que já está configurado na macro e ativa os links, pulando a etapa de ter que clicar em ok e tals. Se puderem me ajudar com esse dúvida serei grato.
This comment was minimized by the moderator on the site
Hello, Tosetti

To solve your problem, please apply the below code: (First, you should select the hyperlink texts)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Oh crap.... it broke my Excel. By mistake I selected entire column and it forze for... ages!!
This comment was minimized by the moderator on the site
hi
when i click on the hyperlink .. it wont take to me to email page ( as an Outlook or Gmail) Please support
This comment was minimized by the moderator on the site
Hello, Babu,
May be the below article can help you for solving your problem, please view it:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Hope it can help you!
This comment was minimized by the moderator on the site
I had to switch nearly 55,000 cells from plain text to hyperlinks. This helped me cut the time down from "the rest of my natural life" to five minutes. Thank you!
This comment was minimized by the moderator on the site
This is very helpful...Thanks
This comment was minimized by the moderator on the site
This is Great! Worked like a charm
This comment was minimized by the moderator on the site
Man! This is so awesome, I've spent so long trying to find an easy way and this took seconds! Works great!!!
This comment was minimized by the moderator on the site
Thanks a lot my friend! it worked! :lol:
This comment was minimized by the moderator on the site
The code almost works, but author has left a small copy-paste error. You need to remove "" from the first line, and "" from the last line, and then it will work. Cheers.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations