- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：【Excel】名前入力→自動e-mailアドリンク）
【Excel】名前入力→自動e-mailアドリンク
このQ&Aのポイント
- Excel2007を使用して、sheet2のA列に順不同で人名を入力する際に、sheet1の名前とe-mailアドレスの一覧を参照し、名前にe-mailのリンクを自動で貼る方法を教えてください。
- 例えば、A1セルに佐藤三郎と入力すると、佐藤三郎さんの名前が青くなり下線が入り、e-mailアドレスのリンクが貼られます。また、青くなった佐藤三郎さんの名前をクリックすると、メールソフトが立ち上がり、アドレスにはs.satou@xxxxx.jpが入力されます。
- Excelの「名前を定義」を使用して、sheet2のA列に入力された名前を参照し、sheet1の人名と照合します。一致する名前があれば、そのセルをハイパーリンクとして設定し、対応するe-mailアドレスを取得します。この方法を使えば、名前にe-mailのリンクを自動で貼ることができます。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
>A1セルに佐藤 三郎と入力すると、そのセルの佐藤三郎さんの文字が青くなって下線が入り、e-mailアドレスのリンクが貼られます。 A1のセルに入力して、そのセルにハイパーリンクが貼られるように使用と思ったら、VBAになります。 そのSheet2のシートモジュールに以下の様に入れます。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub Target.Hyperlinks.Add Target, WorksheetFunction.VLookup(Target.Value, Worksheets("Sheet1").Range("A1:B10"), 2, False) ’A1:B10の範囲は適宜変更必要 End Sub A1のセルに入力して、隣のB1にでもハイパーリンクで表示するなら、HYPERLINK関数で出来ます。 =HYPERLINK(VLOOKUP(A1,Sheet1!A1:B3,2,FALSE),A1)
