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さん素晴らしいヒント！
有難うございました。
大成功です！
さすがＶＢＡ質問箱IV！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2393 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free