共有ワークブック(Microsoft Excel)でのハイパーリンクへの変換
エリックは、約3,500レコードのデータベースを含む共有ワークブックを持っています。各レコードの2つのセルには、電子メールアドレスとURLが含まれています。新しいレコードがデータベースに追加されると、電子メールアドレスとURLはハイパーリンクではなく通常のテキストとして表示されます。それらをハイパーリンクにするには、Ericはブックの共有を解除し、変更を加えてから、ブックを再共有する必要があります。エリックは、おそらく、この状況を処理するためのより簡単な方法があるかどうか疑問に思いました。
簡単に言うと、共有ブックを使用する場合、ハイパーリンクの追加と編集は許可されていません。これを回避する最も簡単な方法は、リンクをテキストとして別々のセルに配置し、HYPERLINK数式を使用してそれらのセルを参照することです。
たとえば、URLがセルE2に入力されている場合、別のセルで次の数式を使用できます。
=HYPERLINK(E2, E2)
この数式の最初の引数はアドレスを含むセルに対するものであり、2番目の引数はハイパーリンクに表示されるテキストに対するものです。このアプローチでは、(HYPERLINK式の場合)2つの追加列が必要ですが、ブックの共有解除と再共有は必要ありません。
他の唯一のオプションは、ブックの共有解除と再共有のプロセスを自動化できるマクロを作成することです。次のマクロはこれを実行し、選択したセルにあるものをすべてハイパーリンクに変換します。
Sub AddHyperlink() Dim cell As Range Application.DisplayAlerts = False ' Unshare the Workbook If ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.ExclusiveAccess End If ' Change address in cell to a hyperlink. If ActiveCell = "" Then ActiveCell.Hyperlinks.Delete Else For Each cell In Intersect(Selection, _ Selection.SpecialCells(xlConstants, xlTextValues)) With Worksheets(1) .Hyperlinks.Add Anchor:=cell, _ Address:=cell.Value, _ ScreenTip:=cell.Value, _ TextToDisplay:=cell.Value End With Next cell End If ' Reshare the Workbook If Not ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.SaveAs _ Filename:=ActiveWorkbook.FullName, _ AccessMode:=xlShared End If End Sub
Microsoftは、最新バージョンのExcelで共有ワークブック機能を削除したことに注意してください。共同編集は、ワークブックを共有するための新しい方法です。次のWebページでは、必要に応じて共有ワークブックボタンにアクセスする方法について説明しています。たとえば、共有ワークブック機能をオフにする必要がある場合:
https://support.office.com/en-us/article/What-happened-to-shared-workbooks-150FC205-990A-4763-82F1-6C259303FE05
注:
このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
link:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]
。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(725)は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。
link共有ブック内のハイパーリンクへの変換。