[[20161121173526]] 『特定セル内にあるアドレスのハイパーリンクの張り』(黒猫) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『特定セル内にあるアドレスのハイパーリンクの張り方』(黒猫)

こんにちは。

ボックスを呼び出し、任意のフォルダを指定し、そのフォルダ内にあるファイル名を抽出してリスト化するというようなコードを書いています。

上記で指定したフォルダの場所のアドレス(C:\〜\)を特定セル(仮にrange("A1")として)に記載されるようになるとことまで作成しました。これにハイパーリンクをつけたいのですが特定セルに書き出したアドレスを利用してハイパーリンクを貼ることは出来ますか?また具体的にどのようにすればハイパーリンクが貼れるか教えて頂けるととても助かります。

< 使用 Excel:Excel2013、使用 OS:Windows7 >


どんなコーディングなのか貼ってくれれば回答しやすいのですが、処理内容だけだと、どうアドバイスすれば良いのやら…。
とりあえず、過去ログなど参考になりますかね? [[20160826101806]]
(???) 2016/11/21(月) 18:16

こんばんは。書いているコードは以下です。
このCells(7, 5)にフォルダのアドレスが文字で表示されるようになっているのですが
文字で表示されるだけでなくハイパーリンク付きにするのが目標です。


    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


どうもありがとうございます。マクロ記録を活用することを失念しておりました。
やりたいことが出来ました。重ねて御礼申し上げます。
(黒猫) 2016/11/24(木) 09:46

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.