【ＶＢＡ】ハイパーリンクでセルに文字を正しく表示できない。

質問

【ＶＢＡ】ハイパーリンクでセルに文字を正しく表示できない。

ハイパーリンクを設定しセルに数値を表示させる場合、
セルにもともと文字が入力されていれば、数値に置き換わります（a)が、
もともと入力されているのが数値の場合、別の数値に置き換わりません(b)。

例)
(a)Ａ１セルに「十」という漢字が入力されていたとします。
　　その時、下記コードを実行すればＡ１セルの値は「1」に変わります。
　　Sub test()
　　　ActiveSheet.Hyperlinks.Add _
　　 Anchor:=Range("A1"), _
　　 Address:="http://www.yahoo.co.jp/", _
　　 TextToDisplay:="1"
　　End Sub

(b)一方、Ａ１セルに「10」という数値が入力されていたとします。
　　その時、上記コードを実行してもＡ１のセルの値は「10」のままです。

なぜなのでしょうか？
お分かりの方、教えてください。
尚、当方Excel2003を使用しております。

よろしくお願いします。

回答No.1

myRange · ベストアンサー

ヘルプには引数TextToDisplayは文字列とありますので、
数値をセットすると質問のような意図しない現象になるのでしょう。

ただ実際には数値にもハイパーリンクを設定できるようですが、
その時のTextToDisplayを見ると空白になっています。

要するにヘルプにあるように文字列の方がいいということです。

で、セルＡ１の値に関係なく数値をTexttoDisplayをセットするには
最初でセルＡ１をクリアーしてやれば設定できないこともないですね。

●セルＡ１に数値、２３４が入力されているとして
　２３４を１に変える場合
'------------------------------------------
Sub test()
　　Range("A1").ClearContents　　'●セルＡ１をクリアー

　　ActiveSheet.Hyperlinks.Add _
　　　　　Anchor:=Range("A1"), _
　　　　　Address:="http://www.yahoo.co.jp/", _
　　　　　TextToDisplay:="1"
End Sub
'------------------------------------------

以上です。

お礼

ありがとうございます。

いったん削除します。