電子書籍の厳選無料作品が豊富!

教えて下さい。

1つの商品に対して2つハイパーリンクが設定されているのですが、
それぞれリンクを開いてページの内容を確認し、得た情報を入力する必要があり、
それが何千件もあります。

商品を選択→ハイパーリンク1をクリック→ブラウザに飛ぶ→エクセルに戻って2つ目のリンクを
クリック→2つのページを見比べる→エクセルに戻って情報入力

と、手作業でやるのが骨が折れます。


せめて、商品を選択する→マクロを実行すると2つのリンクが開く→見比べる→入力

くらいに、出来ないかと考えて色々と調べてみましたが、なかなかうまく出来ません。

何かいい方法はありますでしょうか?

もしくは、他にいい方法があれば教えていただきたいです。

宜しくお願い致します。

「大量のハイパーリンクを簡単に開く方法」の質問画像

A 回答 (3件)

No.2 です。



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

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

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

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

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

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

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

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

もし、ショートカットで起動するマクロの方が良ければ書き換えますが。
    • good
    • 0
この回答へのお礼

>「標準モジュール」ではなく、当該シートの「シートモジュール」に記述します。

シートモジュールに記入したら出来ました!
今まで標準モジュールしか使ったことが無かったです。

大変助かりました!!ありがとうございます!!!

お礼日時:2018/02/04 02:39

シートの 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
    • good
    • 0
この回答へのお礼

ありがとうございます!
今試してみたのですが、A~D列をクリックしても特に何も起きませんでした・・・

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

お礼日時:2018/02/03 03:35

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


ハイパーリンクの範囲を選択してコピー。
Sleipnir 側で[ctrl]+[shift]+[v]で、一期に開けます。
今、手元で確認できませんが、たぶんできます。
    • good
    • 0
この回答へのお礼

ありがとうございます。
ただ、私の求める回答ではありませんでした。

質問の題名が悪かったですが、
「簡単に、2つの指定したハイパーリンクを開く方法」
の方が分かりやすかったと思います。

回答いただいたのに申し訳ありません。

お礼日時:2018/02/02 19:45

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!