エクセルで、1つ左のセルの文字列を取得して、ハイパーリンクを張るVBAを教えてください。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/11/18 17:13:22
  • 終了:--

回答(1件)

id:nitscape No.1

nitscape回答回数526ベストアンサー獲得回数02005/11/18 17:21:28

ポイント40pt

ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveCell.Row, ActiveCell.Column - 1), Address:= _

http://www.google.com/”, TextToDisplay:=Cells(ActiveCell.Row, ActiveCell.Column - 1).Text


汚いソースですが、こんな感じでしょうか?

選択したセルの左にGoogleへのリンクを貼ります。

id:P-mako

すばやいご回答ありがとうございます。

少しニュアンスが違っていて、1つ左のセルの文字列をとってきて、アクティブセルにリンクを張りたかったんですね。

でも、いただいた回答をヒントに実現できました。

ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveCell.Row, ActiveCell.Column), Address:= _

Cells(ActiveCell.Row, ActiveCell.Column - 1).Text, TextToDisplay:=Cells(ActiveCell.Row, ActiveCell.Column).Text

ありがとうございます。

どうもVBAの言語仕様が独特で不慣れなままです。

#CやJavaは書けるんですが・・・

2005/11/18 17:30:50

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません