Excel VBA質問箱 IV

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

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


27222 / 76732 ←次へ | 前へ→

【54833】Re:ハイパーリンクの作成で
発言  VBWASURETA  - 08/4/1(火) 11:19 -

引用なし
パスワード
   皆さんおはようございます。

モーグ側とこちら側のも見せて頂きました。
(モーグ側は本来マルチポスト禁止なのでこの質問に対して回答をつけないつもりでしたが参考にされる方のために)

まいけるさんのソースを見る限り多分ですが
いつもマクロ自動記録でされているのではないかな?
という感じのソースですね。

後、型と書き方はとりあえずサンプルとして書いたのではないかなと思いますが。

一応、まいけるさんのソースを元にしたサンプル(データベース用)に
したものを載せておきます。
でも参考にされるのでしたら、ichinoseさんのソースがベストと思います。

Sub link()
  Dim moji As String
  Dim adds As Range

  'Range("A1")オブジェクトを生成
  Set adds = ThisWorkbook.Sheets("Sheet1").Cells(1, 1)

  'セルA5に表示する文字
  moji = "テストリンク"
  
  'セルA5「.Cells(5, 1)」にセルA1「.Worksheet.Name & "!" & .Address」に
  '飛ぶリンクを貼り付けるサンプル
  With adds
    .Hyperlinks.Add Anchor:=.Cells(5, 1), Address:="", _
        SubAddress:=.Worksheet.Name & "!" & .Address, _
        TextToDisplay:=moji
  End With

  'Range("A1")オブジェクトの解放
  Set adds = Nothing
End Sub
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 発言

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