Excel VBA質問箱 IV

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

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


27254 / 76732 ←次へ | 前へ→

【54801】Re:ハイパーリンクの作成で
発言  ichinose  - 08/3/30(日) 20:39 -

引用なし
パスワード
   ▼まいける さん:
こんばんは。
新規ブックの標準モジュールに

Sub sample1()
  With Worksheets("sheet1").Range("b1")
    .Value = "icinoseA"
    .Hyperlinks.Add anchor:=.Cells(1), Address:="", SubAddress:="sheet2!a1"
    End With
   
End Sub

'↑Sheet1のセルB1にichinoseAと入力し、ハイパーリンク先としてSheet2のセルA1
'                    を設定しています。

Sub sample2()
  Dim linkadd As String
  linkadd = Worksheets("sheet3").Range("a1").Address(, , , True)
  With Worksheets("sheet1").Range("b2")
    .Formula = "=hyperlink(""" & linkadd & """,""icinoseB"")"
    End With
End Sub
'↑これは、Hyperkink関数を設定した例です
'Sheet1のセルB2にichinoseBという文字列にハイパーリンク先としてSheet3のセルA1
'                    を設定しています。

これを参考にしてみてください

0 hits

【54796】ハイパーリンクの作成で まいける 08/3/30(日) 14:36 質問
【54801】Re:ハイパーリンクの作成で ichinose 08/3/30(日) 20:39 発言
【54805】Re:ハイパーリンクの作成で まいける 08/3/30(日) 23:25 発言
【54806】Re:ハイパーリンクの作成で りん 08/3/31(月) 8:07 発言
【54807】Re:ハイパーリンクの作成で まいける君を叱る 08/3/31(月) 8:34 回答
【54828】Re:ハイパーリンクの作成で まいける 08/3/31(月) 23:56 お礼
【54829】Re:ハイパーリンクの作成で まいける君を叱る 08/4/1(火) 8:00 発言
【54833】Re:ハイパーリンクの作成で VBWASURETA 08/4/1(火) 11:19 発言

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