ユーザーフォームのテキストボックスとマクロを使用してワークブックセルのハードドライブファイルにハイパーリンクを作成する方法

Question

ワークシートにデータを追加するためのテキストボックスをソースとして使用するユーザーフォームがあります。 これは単純です：指定されたセルはテキストボックスの値と同じです。

私のコラムの1つは、自分のコンピュータ上のフォルダに移動するフォトリンク用です。これは、私がテキストボックスからセルにファイルパスを追加することができますが、青と下線（ハイパーリンクされていない）で強調表示されていないので、私は立ち往生しています。それは私が自動化したいものです。

ありがとう、このチームは、文字通り私がオンラインで見つけた最高のものです！

注：私のコードでわかるように、フォルダパスとファイル形式は常に同じで、テキストボックスの値はすべて違いがあります。 "filepath" & userform.textbox.value & ".jpg"。私はいくつかの理由でこの方法が好きで、それを変更することは本当に私が持っている選択肢ではありません。しかし、提案と教育が求められている！

コード：

With ws 
     '.Unprotect Password:="password" 
     .Cells(iRow, 1).Value = DRAFT1.PART2.Value 
     .Cells(iRow, 2).Value = DRAFT1.LOC2.Value 
     .Cells(iRow, 3).Value = DRAFT1.DESC2.Value 
     .Cells(iRow, 5).Value = DRAFT1.QTY2.Value 
     .Cells(iRow, 8).Value = DRAFT1.DATE2.Value 
     .Cells(iRow, 9).Value = DRAFT1.POS2.Value 
     .Cells(iRow, 10).Value = DRAFT1.TYPE2.Value 
     .Cells(iRow, 11).Value = DRAFT1.COLOR2.Value 
     .Cells(iRow, 12).Value = DRAFT1.FEATURES2.Value 

     'this is where I am having trouble 
     .Cells(iRow, 13).Value = "C:\User\ttech\Desktop\EXCEL\PHOTOS\" & DRAFT1.PHOTO2.Value & ".jpg" 
     'I tried ActiveSheets.Hyperlink.Add(filepath...) 
     'And (filepath...).hyperlinks 

     .Cells(iRow, 14).Value = DRAFT1.OTHERNAMES2.Value 
    ' .Protect Password:="password" 

Answer 1

この

.hyperlinks.add Anchor:= .Cells(iRow, 13), Address:= "C:\User\ttech\Desktop\EXCEL\PHOTOS\" & DRAFT1.PHOTO2.Value & ".jpg", TextToDisplay:= "C:\User\ttech\Desktop\EXCEL\PHOTOS\" & DRAFT1.PHOTO2.Value & ".jpg" 

ないハイパーリンクをしようとしたかどうかはわかりを試してみてくださいその場合は、アクティブなシートを必要としない追加けど、それは

上記のように動作するはずです