エクセルVBAについて質問です。

７４～８５というのはＢＶ列からＣＧ列を意味します。
左端から７４列目がＢＶ列ということで、そのまま７４～８６にすればＣＨ列までにできます。

ちなみに２行目の
Target.Column <> 74
は、７４列目（ＢＶ列）以外は抜けるということで、
クリックするセルを変更するときはここの数値を変更します。

SALINGER さん　

次回変更した際の選択範囲もこれで実行できそうです。

本当にありがとうございます。

VLOOKUP関数でリンクを読み込んだ形で処理を行ったのですが、

実行したところ、URLを開けませんでした。

ですのでVLOOKUP関数でリンクを読み込み、その後コピーアンドペーストをして値のみを残す。その後セルをダブルクリックしてURLを読み込む状況にする方法を取っているのですが少し面倒であります。

URLがリンク指定にされていない状況でもリンクを開ける方法はないでしょうか。

お手数をおかけしますがよろしくお願いいたします。

勝手に質問を終了させて申し訳ありませんがもしプログラムで可能でしたらよろしくお願いいたします。

VLOOKUP関数でリンクを読み込んだ形 というのがどういう状況か分かりませんが、VLOOKUP 関数で URL の文字列が表示されているのであれば VLOOKUP 関数を HYPERLINK 関数で囲んでみてはどうでしょう。

=HYPERLINK(VLOOKUP(…))

のような感じです。

s-n-k さん

ご回答ありがとうございます。

HYPERLINK指定できました。

実行してみたのですが、＝で持ってきたものはプログラム適応されませんでした。

どうにかして実行してみたいのですがどうも無理そうです。

HYPERLINK関数でいけるかなと思ってたのですが、試してみると駄目みたいですね。
それでコードの方を改良してみました。
リンクが無ければＡ列の最終行に擬似的にリンクを作る方法です。
>>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 74 Or Target.Value = "" Then Exit Sub
Dim r As Long
Dim i As Integer
r = Target.Row
For i = 74 To 85
If Cells(r, i).Hyperlinks.Count > 0 Then
Cells(r, i).Hyperlinks(1).Follow NewWindow:=False
Else
If Cells(r, i).Value <> "" Then
ActiveSheet.Hyperlinks.Add(Anchor:=Range("A65536"), _
Address:=Cells(r, i).Value).Follow
End If
End If
Next i
Range("A65536").Value = ""
End Sub
<<

SALINGER　さん

プログラム完璧に実行されました。

真にありがとうございます。