ジャックは、Excelのハイパーリンクが訪問されたことを示すのが好きです。

残念ながら、彼が自分のワークブックを保存すると、それらはすべて未訪問にリセットされます。ジャックは「訪問した」を作る方法があるかどうか疑問に思います

彼のハイパーリンクのステータスは、保存操作後も存続します。

私たちが発見できたこれを行う方法はありません。最も近い方法は、ハイパーリンクがたどられているかどうかを確認してから、保存操作後も存続する条件または値でステータスを示すことです。たとえば、次のマクロについて考えてみます。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim wks As Worksheet     Dim hl As Hyperlink     Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         For Each hl In wks.Hyperlinks             If hl.Parent.Interior.ColorIndex = 37 Then                 hl.Parent.Interior.ColorIndex = xlNone                 hl.Parent.Style = "Followed Hyperlink"

End If         Next hl     Next wks     Application.ScreenUpdating = True End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Target.Parent.Interior.ColorIndex = 37 End Sub

ハイパーリンクをたどるたびに、2番目のマクロが実行されます。ハイパーリンクを含むセルの色を設定します。次に、ブックが保存されると、最初のマクロが実行されます。ハイパーリンクを含むすべてのセルをチェックし、それらの内部の色が「キー」色（色の値37）の場合、セルのスタイルは「フォローされたハイパーリンク」という名前のスタイルに設定されます。セルのこのスタイル設定は、保存操作後も存続します。実行する必要があるのは、フォローしているハイパーリンクを表示するようにスタイルを定義したことを確認することだけです。

これらの2つのマクロは、ワークブックのThisWorkbookモジュールに追加する必要があることに注意してください。これにアクセスするには、Visual Basic Editorを表示し、プロジェクトエクスプローラーでThisWorkbookモジュールをダブルクリックします。次に、マクロを結果のコードウィンドウに貼り付けることができます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（7198）は、Microsoft Excel 2000、2002、および2003に適用されます。