ユーザーフォームデータを連結してハイパーリンクとしてセルに渡す

Question

ユーザーフォームから結合データをセルに渡してハイパーリンクを作成しようとしています。次のように

私は、ハイパーリンク構造で終わることを望んでいる：

• パート1：静的フォルダの場所
• パート2：ユーザーフォームで選択したオプションからの最初の2つの文字
• パート3 ：現在の日付と時刻

私は単独でこの作業のすべてを持っている：

1. .Cells(lRow, 2).Value = "=Hyperlink(""H:\revised_action_tracker\test\"")"
2. .Cells(lRow, 3).Value = UCase(Left(Me.cbo_action_type.Value, 2))
3. .Cells(lRow, 4).Value = Format(CStr(Now), "yyyymmdd_hhmmss")

私はパート1から作業ハイパーリンクにパート2と3に参加しようとすると、それは構文エラーがスローされます。

が

H：\ revised_action_tracker \テスト\がCT-20170322_162111私はこれにサークルでラウンドつもりのように感じる

、任意のヘルプは次のようになり

私はこのように見えるためにハイパーリンクを期待してい感謝して受け取りました。

Answer 1

これはステップ1の前部分2及び3 を処理する場合は、ハイパーリンクの式では、これら二つの部分からテキストを追加することができます。この方法で解決することができます：あなたはドン場合」、

ActiveSheet.Cells(lRow, 3).Value = UCase(Left(Me.cbo_action_type.Value, 2)) 
ActiveSheet.Cells(lRow, 4).Value = Format(CStr(Now), "yyyymmdd_hhmmss") 
ActiveSheet.Cells(lRow, 2).Value = _ 
    "=Hyperlink(""H:\revised_action_tracker\test\" & _ 
    ActiveSheet.Cells(lRow, 3).Value & ActiveSheet.Cells(lRow, 4).Value & """)" 

かトンのたいは、このように、これらの文字列を連結するための変数を宣言し、それこの大文作る：あなたたくセットアップのテキストを変更せずにリンク場合の代替案として

ActiveSheet.Cells(lRow, 3).Value = UCase(Left(Me.cbo_action_type.Value, 2)) 
ActiveSheet.Cells(lRow, 4).Value = Format(CStr(Now), "yyyymmdd_hhmmss") 
Dim c As String: c = ActiveSheet.Cells(lRow, 3).Value & ActiveSheet.Cells(lRow, 4).Value 
ActiveSheet.Cells(lRow, 2).Value = "=Hyperlink(""H:\revised_action_tracker\test\" & c & """)" 

、あなたは単純な文字列でセルを作成することができますし、 iにハイパーリンクを関連付けるtを使用して、式HYPERLINK（）を使用して作成するのではなく、あなたは次のようなものを持っています：

ActiveSheet.Cells(lRow, 2).Value = "H:\revised_action_tracker\test\" 
ActiveSheet.Cells(lRow, 3).Value = UCase(Left(Me.cbo_action_type.Value, 2)) 
ActiveSheet.Cells(lRow, 4).Value = Format(CStr(Now), "yyyymmdd_hhmmss") 
ActiveSheet.Hyperlinks.Add Anchor:=Cells(lRow, 2), Address:="H:\revised_action_tracker\test\" & Cells(lRow, 3) & Cells(lRow, 4)