Excel VBA質問箱 IV

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

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


50051 / 76732 ←次へ | 前へ→

【31577】Re:セルとファイルのリンク
回答  だるま WEB  - 05/11/25(金) 19:31 -

引用なし
パスワード
   こんにちは

こんな感じでいかがでしょうか。^d^

===== ThisWorkbookモジュール =====
Private Sub Workbook_Open()
  Dim myRange As Range
  Dim myCell As Range
  Dim myPath As String
  
  Set myRange = ActiveSheet.UsedRange
  
  For Each myCell In myRange.Cells
    If myCell.Value <> "" Then
      myPath = ThisWorkbook.Path & "\" & myCell.Value & ".pdf"
      ActiveCell.Worksheet.Hyperlinks.Add anchor:=myCell, Address:=myPath
    End If
  Next
  
  ThisWorkbook.Saved = True
  
  Set myRange = Nothing
  Set myCell = Nothing
End Sub

0 hits

【31569】セルとファイルのリンク 三浦照信 05/11/25(金) 17:31 質問
【31577】Re:セルとファイルのリンク だるま 05/11/25(金) 19:31 回答
【31676】Re:セルとファイルのリンク 三浦照信 05/11/28(月) 11:00 お礼
【31688】追加質問:セルとファイルのリンク 三浦照信 05/11/28(月) 15:13 質問

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