[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『特定セル内にあるアドレスのハイパーリンクの張り方』(黒猫)
こんにちは。
ボックスを呼び出し、任意のフォルダを指定し、そのフォルダ内にあるファイル名を抽出してリスト化するというようなコードを書いています。
上記で指定したフォルダの場所のアドレス(C:\〜\)を特定セル(仮にrange("A1")として)に記載されるようになるとことまで作成しました。これにハイパーリンクをつけたいのですが特定セルに書き出したアドレスを利用してハイパーリンクを貼ることは出来ますか?また具体的にどのようにすればハイパーリンクが貼れるか教えて頂けるととても助かります。
< 使用 Excel:Excel2013、使用 OS:Windows7 >
Dim FolderName As String Dim FileName As String Dim row As Long
Dim DirName As String Dim Counter As Long
Dim SelectedFolderObject As String Dim s1 As String
'フォルダ選択ダイアログ With Application.FileDialog(msoFileDialogFolderPicker) 'タイトル .Title = "フォルダを選択してください" '初期フォルダ .InitialFileName = "\\〜\" If .Show = -1 Then '選択された s1 = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) If Right$(s1, 1) <> "\" Then s1 = s1 + "\" SelectedFolderObject = s1 Else SelectedFolderObject = "" End If End With
' show select foler dialog Cells(2, 2).Value = ""
' Set SelectedFolderObject = CreateObject("Shell.Application") _
' .BrowseForFolder(0, "フォルダを選択して下さい", 0)
'
' If SelectedFolderObject Is Nothing Then
' Call ClearAll
' Exit Sub
' End If
Call ClearAll
Cells(7, 5).Value = SelectedFolderObject
FolderName = Cells(7, 5).Value & "\"
FileSearch 4, FolderName '探すフォルダ、4は表示行の初期値
'
' FileName = Dir(FolderName & "*.*")
'
' row = 4
'
' Do Until FileName = ""
'
' Cells(row, 2).Value = FileName
'
' row = row + 1
'
' FileName = Dir()
'
' Loop
'
' Cells(2, 2).Value = ""
'
Call CopyFileName
End Sub
(黒猫) 2016/11/22(火) 16:33
コードは読んでいませんが、E7 に当該フォルダへのハイパーリンクを設定するのであれば
・E7 を選択 ・そこにハイパーリンク設定
これをマクロ記録すれば参考コードが生成されますけど、当該部分のみ、たとえば以下。 (E7 に \\〜\ が入っているという前提です)
With Range("E7") .Hyperlinks.Delete .Parent.Hyperlinks.Add Anchor:=.Cells, Address:=.Value End With
(β) 2016/11/22(火) 21:56
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.