大量のハイパーリンクを簡単に開く方法

Question

教えて下さい。

1つの商品に対して2つハイパーリンクが設定されているのですが、
それぞれリンクを開いてページの内容を確認し、得た情報を入力する必要があり、
それが何千件もあります。

商品を選択→ハイパーリンク1をクリック→ブラウザに飛ぶ→エクセルに戻って2つ目のリンクを
クリック→2つのページを見比べる→エクセルに戻って情報入力

と、手作業でやるのが骨が折れます。


せめて、商品を選択する→マクロを実行すると2つのリンクが開く→見比べる→入力

くらいに、出来ないかと考えて色々と調べてみましたが、なかなかうまく出来ません。

何かいい方法はありますでしょうか？

もしくは、他にいい方法があれば教えていただきたいです。

宜しくお願い致します。

bonaron · Accepted Answer

No.2 です。

> ハイパーリンクはH,J列なので、そこを変更してやってみても、変わらずでした

あっ！すみません。
テストデータを作るときミスったままでした。

> A~D列をクリックしても特に何も起きませんでした

まさかとは思いますが、「ダブルクリック」ですよ。念のため。

hiro000987 さんの VBA スキルが不明ですが、
簡単な確認をお願いします

１．同じブックに簡単なマクロを登録して動作するか。（セキュリティの設定の確認）

２．「If Application.Intersect(Target, Columns("A:D")) Is Nothing Then」の行に
　　　ブレークポイントを設定して、止まることを確認。

３．２ で止まらなかった場合、
　　プログラムの書かれている場所をチェック。
　　シートでのイベントプロシージャですから
　　「標準モジュール」ではなく、当該シートの「シートモジュール」に記述します。
　　２ より こちらのチェックが先かな。

もし、ショートカットで起動するマクロの方が良ければ書き換えますが。

bonaron · Answer

シートの　BeforeDoubleClick イベントでやってみました。
A ～ D のいずれかの列をダブルクリックした場合に
その行の G,I 列に設定されたハイパーリンクを開きます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Dim ara As Variant
　Dim i   As Long
　Dim R   As Long
　Dim C   As String
    
　If Application.Intersect(Target, Columns("A:D")) Is Nothing Then
　　Exit Sub
　End If
    
　ara = Array("G", "I")
　R = Target.Row
　For i = LBound(ara) To UBound(ara)
　　C = ara(i)
　　If Range(C & R).Hyperlinks.Count > 0 Then
　　　Cancel = True
　　　Range(C & R).Hyperlinks(1).Follow NewWindow:=True
　　End If
　Next
End Sub

pontajya · Answer

Sleipnir 4又はSleipnir 6でできます。
ハイパーリンクの範囲を選択してコピー。
Sleipnir 側で[ctrl]+[shift]+[v]で、一期に開けます。
今、手元で確認できませんが、たぶんできます。

大量のハイパーリンクを簡単に開く方法

No.2 です。

シートの BeforeDoubleClick イベントでやってみました。

Sleipnir 4又はSleipnir 6でできます。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

シートの　BeforeDoubleClick イベントでやってみました。