エクセルに書き込みのＨＰについて

質問

エクセルに記入したhttp://www.......が黒から青色に変化する場合があります
数種類記入した中には黒字のままで青字に変わらないものがあり、青字に変わったものはクリックすると夫々のＨＰを表示します
黒字のものはクリックしてもＨＰが表示されません
しかし、黒字をコピーしてアドレスに貼り付けるとＨＰがでます
総て青色に変えたいと思います

回答No.1

thincl · ベストアンサー

ハイパーリンクのことですね。

１．リンクを貼りたいセルと選択して右クリック。
２．下のほうにハイパーリンクがありますので、これをクリック。
３．パイパーリンク挿入という画面が出るはずです。
４．一番左にファウル・webページを選択。
５．４の右隣に「アドレス」(E);が一番下にあるはずです。
６．↑にリンク先のアドレスを入れて「OK」をクリック。

お礼

早速のご回答を頂き有難うございました
お蔭様で問題は解決できました
こなような加工をしなくても自動的に青色に変わっているものがありますが原因がわかりません

回答No.5

xls88

進んでいないようですが、改めてお聞きしたいと思います。
URLは、どのようにセルに記入していますか？
例えば、コピーしたURLを、Ctrl＋Vでセルに張り付けた場合、黒字です。
ハイパーリンクが有効にはなりません。
この場合、そのセルを選択し、F2キーで編集モードにし、Enterキーで青字になります。
ハイパーリンクが有効になります。

＞回答番号：No.2 この回答への補足
マクロの使い方が分からないのですか？
マクロを実行すると、黒字のURLが青字に代わり、ハイパーリンクが有効になります。

1、Alt＋F11 でVBEを起動
2、挿入メニューで標準モジュールをクリック
3、コードウインドウに、回答番号：No.2のコードをコピペ
4、For Each c In Range("A1:A100")の、A1:A100 の部分を実際の対象セル範囲に合わせて修正
5、VBEを閉じる
6、Excelに戻って対象シートを選択
7、Alt＋F8 でマクロダイアログを表示
8、一覧から先のマクロを選択して「実行」ボタンをクリック

Excel(エクセル) VBA入門：VBE(Visual Basic Editor/VBエディタ)の使い方
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_vbe.html

補足

エクセルを利用して電話帳を作成時ＵＲＬを挿入した事例から見て質問しました。
直接ＵＲＬを書き込み、貼り付けたものではありません。
現在はＵＲＬを書き込むと青字に自動で変わりますが黒字の再現が出来ません。
黒字のＵＲＬを強制的に変換する方法は、ＮＯ1の方がご回答頂きました内容で解決しました。

回答No.4

dodemoii

こんにちは

> こなような加工をしなくても自動的に青色に変わっているものがありますが

officeにはハイパーリンクを自動変換する「入力オートフォーマット」
と言う機能があります。下記参考URLはその機能のオフの仕方です。
http://www.atmarkit.co.jp/fwin2k/win2ktips/867hyperlink01/hyperlink01.html

黒、青とまだらになるのは個別の理由がありそうですが
わからないと思ったら、「excel ハイパーリンク」などで
検索すればいろいろと情報が出てきますよ。
過去logなどもいろいろありそうです。

では。

お礼

「excel ハイパーリンク」などで検索してみます
有難うございました

補足

ハイパーリンクに変更する］のチェック・ボックスがオンになっていました。
オンになっているにも関わらず時々自動変換が出来ない現象が出ているのが分かりません

回答No.3

Gletscher

青い文字になった時は、ハイパーリンクがついた時です。
ハイパーリンクがつかなかったら、自分でつければ良いです。

URLを貼り付けて黒い文字になったら、そのセルを選択して、右クリックします。
すると、メニューの一番下だと思いますが、「ハイパーリンク」がありますね？
それを選んでください。
そして、「アドレス」と書かれた窓に、貼り付けた同じURLを貼り付けします。
そして、［OK］ボタンを押せば良いですよ。

補足

URLを貼り付けて黒い文字になったら、そのセルを選択して、右クリックします。
このご回答はＮｏ1の方が教えて下さいましたがハイパーリンクが自動的に総ての入力に対して時々働くようです。

回答No.2

xls88

下記マクロを試してください。
対象セル範囲は実情に合わせて書き直してください。

Sub test1()
Dim c As Range
For Each c In Range("A1:A100")
If c.Value Like "http://*" Then
c.Hyperlinks.Add Anchor:=c, Address:=c.Value
End If
Next
End Sub

補足

ご回答頂きましたが私のレベルが低い為理解が困難です
記入する文字が自動的に青色に変わったものと黒字のまま変わらないものがあります
原因が分かりません