デフォルトのブラウザで複数のハイパーリンクを開きます

午後、私はウェブから得たコードを取得していないので、この質問をしています。私はリンクがたくさんあるシートを持っていて、一度に少なくとも10個、タブで開くことができるようにしたい。私は以前、大きな問題だった（クロムで）それらのすべてを開いたいくつかのコード（私が失った）を持っていた。デフォルトのブラウザで複数のハイパーリンクを開きます

オプション1：私が選択したすべてのハイパーリンクをデフォルトのブラウザ（chrome）で開きます（ハイパーリンクは次の式でハイパーリンク（leftcell; "OPEN" ）

オプション2：私は別のシートにハイパーリンクまたはテキストを貼り付け、10最初の行が開かれ

私は大いに助けに感謝

出典

2017-09-06 user8496595

サブ

Sub test_link() Dim current_row As Integer Dim last_row As Integer Dim current_sht As Worksheet current_row = 1 Set current_sht = ActiveWorkbook.ActiveSheet last_row = current_sht.Cells(current_sht.Rows.Count, "A").End(xlUp).Row While current_row <= last_row ActiveWorkbook.FollowHyperlink Address:=current_sht.Range("A" & current_row) 'Open link current_row = current_row + 1 Wend

終了問題の内容を推測するだけです。 – YowE3K

あなたはActiveWorkbook.FollowHyperlinkを呼び出すためにループを使用することができます。関数を呼び出して、ワークシートに既にあるリンクを使用してください。 Aあなたは今、これらのリンクにループに持ち、それらを一つずつ開い

Links in worksheet

：フォーム怒鳴るのリンクを持っているssuming。蛇のコードでは、列Aはハードコードされていますが、たとえば、ユーザーの選択のように、あなたの別の入力で簡単に変更することができます。あなたは私たちにあなたが仕事を得るためにしようとしているコードを表示し、それが正しくやっていないされているものを教えている場合、我々はあなたが場合よりもそれを修正する手助けするより良いことができるかもしれない

出典

2017-09-06 21:43:24

たぶん選択肢を開くためにそれを変更することができますが、私はそれを行う方法がわからないのでそのまま使用します。どうもありがとうございました。あなたが私を解放しようとしている時は、どうもありがとう。 – user8496595

デフォルトのブラウザで複数のハイパーリンクを開きます

答えて

関連する問題