[[20050901100928]]　『エクセルに貼り付けたアドレスを有効にしたい』（まきさち）　ページの最後に飛ぶ

『エクセルに貼り付けたアドレスを有効にしたい』（まきさち）

メールアドレスをOutlookのアドレス帳のプロパティの中から、コピーをしエクセルに貼り付けたところ、アドレスが有効になりません。
ハイパーリンクで、同じアドレスを入れれば有効になったのですが、データが大量にあるため、簡単に変換させたいのですが、いい方法はありますでしょうか。

 マクロでの方法です。
 Sub test()
  Dim c As Range
   For Each c In Selection
     ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay _
         :=c.Value
   Next
 End Sub
 (MARBIN)

MARBIN様　

早速のご回答ありがとうございます。
上記で試したところリンク先に飛ぶようにはなったのですが、メールの画面にならなく、「正しくありません」との表示が出てしまいました。
マクロがド素人なもので、再度ご質問なのですが、上記の「ｃ」にあたる部分には、何を入れたらよいのでしょうか・・
そのまま「ｃ」で入力してもよいものなのでしょうか。
申し訳ございませんが、宜しくお願い致します。

 提示したマクロは
 標準モジュールに書き込んでください。

 そして、有効化したいセルを選択(複数可)
 した状態でマクロを実行してください。

 >「正しくありません」

 もともとのデータ（Outlookのアドレス帳
 からエクセルに貼り付けたデータは
 どのような形式になっているのでしょうか？

 ためしにメールアドレスが入っているセル
 上でF2キーを押してみてください。
 アドレスが有効になり、そのセルをクリック
 したらキチンとメーラーが開いたらそのアド
 レスには問題ないと思います。

 Outlookのアドレス帳からエクセルに貼り付け
 たデータはアドレス以外に何か余計なデータが
 入っているのでしょうか？
 私はアドレスはエクセルで作っていてOutlook
 のアドレス帳は使ったことが無いのでよくわ
 かりません。
 (MARBIN)

MARBIN様

ありがとうございます。
F2で試したところ、メーラーが開いてきちんと有効になったのでアドレスには問題ないかと思うのですが、やはりマクロがうまく実行されませんでした。
「このサイトのアドレスが正しくありません。アドレスを確認して再度実行してください」との表示になってしまいました。(T△T )

 原因がわかりました。
 ↓でお試しください。

 Sub test()
  Dim c As Range
   For Each c In Selection
     ActiveSheet.Hyperlinks.Add Anchor:=c, _
     Address:="mailto:" & c.Value, TextToDisplay _
         :=c.Value
   Next
 End Sub
 (MARBIN)

MARBIN様

あっ、ありがとうございます！！！
無事解決しました♪
本当に感謝致します。

まきさち。

コメント返信：

[ 一覧(最新更新順) ]

[[20050901100928]] 『エクセルに貼り付けたアドレスを有効にしたい』（まきさち） ページの最後に飛ぶ

[[20050901100928]]　『エクセルに貼り付けたアドレスを有効にしたい』（まきさち）　ページの最後に飛ぶ