こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【Excel】名前入力→自動e-mailアドリンク

使用ソフトはExcel2007です。

sheet1にはA列に人名、B列にその人名に対応するe-mailアドレスの一覧が記入してあります。


A1 田中 太朗
B1 t.tanaka@xxxxxx.jp

A2 鈴木 次郎
B2 j.suzuki@xxxxx.jp

A3 佐藤 三郎
B3 s.satou@xxxxx.jp


今、sheet2のA列に順不同で人名を入力していったとき、sheet1の名前とe-mailアドレスの一覧を参照して、名前にemailのリンクを自動で貼るように設定したいのです。

例えば
A1セルに佐藤 三郎と入力すると、そのセルの佐藤三郎さんの文字が青くなって下線が入り、e-mailアドレスのリンクが貼られます。
青くなった佐藤三郎さんの名前をクリックすると、メールソフトが立ち上がって、アドレスにはs.satou@xxxxx.jpが入力されている状態になります。

このような操作は可能なのでしょうか。
可能だとしたら、どのようにすればよいのでしょうか。

投稿日時 - 2013-04-02 15:51:18

QNo.8023682

すぐに回答ほしいです

質問者が選んだベストアンサー

>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)

投稿日時 - 2013-04-02 16:36:55

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問