Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2393 / 13646 ツリー ←次へ | 前へ→

【68305】ハイパーリンクの実行 jiroちゃん 11/2/22(火) 9:21 質問[未読]
【68309】Re:ハイパーリンクの実行 Jaka 11/2/22(火) 10:43 発言[未読]
【68312】Re:ハイパーリンクの実行 jiroちゃん 11/2/22(火) 12:36 お礼[未読]

【68305】ハイパーリンクの実行
質問  jiroちゃん E-MAIL  - 11/2/22(火) 9:21 -

引用なし
パスワード
   はじめまして!初心者です。
下記はセル"O34"にアドレス関数を含む
ハイパーリンクセルをマクロで作成したもですが、
何方様か、クリックする記述を教えて下さい。
宜しくお願いします。

Sub セル移動()
  Range("O34:O35").Select
  ActiveCell.FormulaR1C1 = _
    "=HYPERLINK(""#""&ADDRESS(Sheet2!R[-7]C[-4],3,4),""リンク"")"
  ??????
  ????????


End Sub

  

【68309】Re:ハイパーリンクの実行
発言  Jaka  - 11/2/22(火) 10:43 -

引用なし
パスワード
   ハイパーリンクもやった事がないけど。
こうした方が良くないですか?
実際内容を良く把握できてないけど。


Sheets("Sheet2").Range("K27").Value = 30
Range("C13").Select
'↑準備と結果の違いがわかるように。

ActiveSheet.Hyperlinks.Add Anchor:=Range("D20"), Address:="", SubAddress:= _
    "Sheet1!K" & Sheets("Sheet2").Range("K27").Value, TextToDisplay:="リンク"
ActiveSheet.Range("D20").Hyperlinks(1).Follow
MsgBox ActiveCell.Address

【68312】Re:ハイパーリンクの実行
お礼  jiroちゃん E-MAIL  - 11/2/22(火) 12:36 -

引用なし
パスワード
   Jakaさん素晴らしいヒント!
有難うございました。
大成功です!
さすがVBA質問箱IV!

2393 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free