【マクロ】シート上で取得した値と、数式を連結したい

質問

マクロ初心者です。

VBEを使用して、マクロの中身を書き換えているのですが、
エラーが発生したり思い通りにならなかったので、
質問させていただきました。

以下の質問にお答えいただきたいです。

【やりたいこと】
・「hyperlink関数」を使用して、指定のurlにとびたい。

・シート上で、複数回「hyperlink関数」を使用しているので、
　urlを貼り付けた後、
　マクロでhyperlink関数とその貼り付けたurlを連結させて
　すぐさま指定のurlにとべるようにしたい。

【現状】
・以下のようにプログラムを書いています。
-------------------------------------------------
Dim strlink As String

strlink = ActiveCell.Value

ActiveCell.FormulaR1C1 = "=HYPERLINK("" & strlink & "",""■"")"

--------------------------------------------------------------

→イメージとしては、
　　わたしは、マクロ実行後は
　　セルに　「=HYPERLINK("http～","■")」　と表示させたかったのですが、
　　今はセルに　『=HYPERLINK(" & strlink & ","■")』　というように表示されてしまっています。

　　つまり、strlink変数に、セルに貼り付けた「指定のURL」を入れておいて、
　　その変数の値とhyperlink関数と連結させたかったのですが、　　

　　変数の「中の値」ではなく、『変数名称自体』が　　連結されて表示されてしまっています。

【質問内容】
　・ネット上で、検索してみたのですが、解決につながるHPを見つけられませんでした。
　　解決できそうなHPがあれば、教えていただきたいです。

　・もしそういったHPがないようであれば、
　　どのような書き方をすれば、「関数」と変数の「値」を連結させたものを
　　ActiveCell.FormulaR1C1に問題なく　格納することが　できるんでしょうか。

　・それ以前に、上のような内容は、できないんでしょうか。
　→もし、できないようであれば、よろしければ、他の実現方法を教えていただきたいです。

お手数ですが、解答お待ちしております。

回答No.1

watabe007 · ベストアンサー

どうぞ～
Dim strlink As String
strlink = ActiveCell.Value
ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & strlink & """,""■"")"

お礼

ありがとうございます！！

やっとできました。
変数の前に３つもこーテーションがいるんですね。。。
本当にありがとうございました！

回答No.2

kybo

""が足らないです。
変数 strlinkの＆の前後に"を追加すればいいです。

ActiveCell.FormulaR1C1 = "=HYPERLINK(""" & strlink & """,""■"")"