![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
教えて下さい。
1つの商品に対して2つハイパーリンクが設定されているのですが、
それぞれリンクを開いてページの内容を確認し、得た情報を入力する必要があり、
それが何千件もあります。
商品を選択→ハイパーリンク1をクリック→ブラウザに飛ぶ→エクセルに戻って2つ目のリンクを
クリック→2つのページを見比べる→エクセルに戻って情報入力
と、手作業でやるのが骨が折れます。
せめて、商品を選択する→マクロを実行すると2つのリンクが開く→見比べる→入力
くらいに、出来ないかと考えて色々と調べてみましたが、なかなかうまく出来ません。
何かいい方法はありますでしょうか?
もしくは、他にいい方法があれば教えていただきたいです。
宜しくお願い致します。
![「大量のハイパーリンクを簡単に開く方法」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/6/542398282_5a742fc4dfb92/M.png)
No.3ベストアンサー
- 回答日時:
No.2 です。
> ハイパーリンクはH,J列なので、そこを変更してやってみても、変わらずでした
あっ!すみません。
テストデータを作るときミスったままでした。
> A~D列をクリックしても特に何も起きませんでした
まさかとは思いますが、「ダブルクリック」ですよ。念のため。
hiro000987 さんの VBA スキルが不明ですが、
簡単な確認をお願いします
1.同じブックに簡単なマクロを登録して動作するか。(セキュリティの設定の確認)
2.「If Application.Intersect(Target, Columns("A:D")) Is Nothing Then」の行に
ブレークポイントを設定して、止まることを確認。
3.2 で止まらなかった場合、
プログラムの書かれている場所をチェック。
シートでのイベントプロシージャですから
「標準モジュール」ではなく、当該シートの「シートモジュール」に記述します。
2 より こちらのチェックが先かな。
もし、ショートカットで起動するマクロの方が良ければ書き換えますが。
>「標準モジュール」ではなく、当該シートの「シートモジュール」に記述します。
シートモジュールに記入したら出来ました!
今まで標準モジュールしか使ったことが無かったです。
大変助かりました!!ありがとうございます!!!
No.2
- 回答日時:
シートの 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
ありがとうございます!
今試してみたのですが、A~D列をクリックしても特に何も起きませんでした・・・
ハイパーリンクはH,J列なので、そこを変更してやってみても、変わらずでした・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Amazon 新規でAmazon商品ページ作成方法について 1 2022/03/28 00:22
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Excel(エクセル) エクセルで複数設定したハイパーリンク先を、どれを選んでも画面の左上に来るようにしたいのですが・・・ 3 2022/04/07 16:15
- Excel(エクセル) エクセルのマクロの有効について 4 2023/08/03 11:40
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- ヤフオク! 落札者の削除について 4 2023/05/22 14:37
- 一眼レフカメラ マップカメラのネットショッピング 1 2022/12/17 01:35
- くじ・懸賞 懸賞等の芸能人のサイン入りチェキの転売について以下の内容がわかる方教えてください。 1.サイン入りチ 4 2022/05/22 16:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
文字の色も参照 VLOOKUP
-
【条件付き書式】countifsで複...
-
Excel複数シートにあるデータを...
-
エクセルの列の限界は255列以上...
-
Excel の複数シートの列幅を同...
-
SUMPRODUCTにて別シートのデー...
-
Excel VBA ピボットテーブルに...
-
Excelでの並べ替えを全シートま...
-
VBAで繰り返しコピーしながら下...
-
Excelに自動で行の増減をしたい...
-
【VBA】複数のシートの指定した...
-
エクセルで、チェックボックス...
-
Excelで全てのシートに一気に列...
-
エクセルのブック分割マクロを...
-
VLOOKアップ関数の結果の...
-
エクセルVBAで、ある文字を含ん...
-
ある数値に対して、値を返す数...
-
excel 複数のシートの同じ場所...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
文字の色も参照 VLOOKUP
-
ExcelのVlookup関数の制限について
-
エクセルの保護で、列の表示や...
-
VBAで繰り返しコピーしながら下...
-
Excel の複数シートの列幅を同...
-
Excel複数シートにあるデータを...
-
エクセルの列の限界は255列以上...
-
【条件付き書式】countifsで複...
-
エクセル マクロ 標準モジュー...
-
Excelでの並べ替えを全シートま...
-
SUMPRODUCTにて別シートのデー...
-
エクセルで、チェックボックス...
-
スプレッドシートでindexとIMPO...
-
VLOOKアップ関数の結果の...
-
Excel VBA ピボットテーブルに...
-
エクセルで横並びの複数データ...
-
Excelに自動で行の増減をしたい...
-
【VBA】ピボットテーブルを既存...
-
【VBA】複数のシートの指定した...
-
Excel 2段組み
おすすめ情報