No.3ベストアンサー
- 回答日時:
範囲の指定ですが、提示した↓だと、アクティブシートのハイパーリンクすべてを対象とします。
Set Rng = ActiveSheet.UsedRange
これを、例えば、↓のようにすると、A1:E20内のハイパーリンクだけを対象とします。
Set Rng = Range("A1:E20")
これだけのことですので、まずは実際に試してみてください。
No.4
- 回答日時:
#1です。
セル範囲をループ処理するサンプルです。
Dim r As Range
Dim c As Range
Set r = Worksheets(1).Range("N1:N10")
for Each c In r
MsgBox c.Address
Next c
No.2
- 回答日時:
↓でどうでしょう?
Sub test()
Dim Rng As Range
Dim myHyp As Hyperlink
Dim myHyps As Hyperlinks
Set Rng = ActiveSheet.UsedRange '範囲を指定
Set myHyps = Rng.Hyperlinks
For Each myHyp In myHyps
myHyp.Follow NewWindow:=True
Next
Set Rng = Nothing
Set myHyps = Nothing
End Sub
参考URL:http://www2.odn.ne.jp/excel/waza/macro.html
No.1
- 回答日時:
単純にアクティブセルのハイパーリンク
を実行する方法です。
ActiveCell.Hyperlinks(1).Follow
ハイパーリンクのアドレスを取得する方法です。
ActiveCell.Hyperlinks(1).Address
特定のURLをIEで開く方法です。
Dim ie As Object
Dim MyUrl As String
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
MyUrl = "http://security.okwave.jp/qa4097240.html"
ie.navigate MyUrl
Do While (ie.busy = True) And (ie.readyState <> READYSTATE_COMPLETE)
DoEvents
Loop
ただし、複数のURLを開く場合は、別々のウィンドウで開くのか、一つのウィンドウ
で次々に開いていくのか、でコードが違ってきます。
早速のご教示ありがとうございました。
1つのURLを開くのは
ActiveCell.Hyperlinks(1).Followにて解決できました。
ただ、リスト(たとえば、n1:n10)にハイパーリンクがある場合の
繰り返し処理は上記の
ie.Visible = True
MyUrl = "http://security.okwave.jp/qa4097240.html"部分を
変更し別途繰り返しの処理を追加すればよいのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) マクロの保存先、開いてるすべてのブックの意味 エクセルを開き、表示→マクロ→マクロの表示と順番に開く 3 2022/06/25 17:52
- フリーソフト 画像貼り付け、URLに飛べる軽いメモ帳 3 2022/05/12 07:42
- Excel(エクセル) エクセルのマクロの有効について 4 2023/08/03 11:40
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Excel(エクセル) 画像のようなチェックボックスとハイパーリンクがありますが、 ハイパーリンクを押すと、チェックボックス 1 2023/04/07 12:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数学 Tan(θ)-1/Cos(θ)について...
-
スマートな関数を教えて下さい。
-
Excel ウインドウ枠の固定をす...
-
EXACT関数とIF関数の組み合わせ...
-
4つのパターンを表示するEXACT...
-
関数を教えて下さい。
-
Excel:一部のフォントでセルの...
-
エクセルで指定した日付、店舗...
-
エクセルでセルに「氏名を入力...
-
Excel 2019 のピボットテーブル...
-
スプレッドシートの関数VLOOKUP...
-
エクセルで日付の入ったセルの...
-
Excelファイルの「数式」タブ→...
-
excelの不要な行の削除ができな...
-
Excelのif関数で文字が見えなく...
-
各ページの1番上の表示について
-
エクセル関数に詳しい方、教え...
-
INDIRECTを使わず excelで複数...
-
Excel 2019 は、SPILL機能があ...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
getElementsByClassName不可
-
VBA→IEでtextareaにセル範囲の値
-
ブール代数を用いた、論理式の...
-
エクセルでマクロを使い、多数...
-
VBAで任意の文字がURLに出現す...
-
Webサイトのurlの保存方法?
-
サイトのショートカットアイコ...
-
パソコン版グーグルマップを最...
-
エクセルでマクロ使うとフリー...
-
クロームの右上のダウンロード...
-
Microsoft Edge で InPrivateを...
-
フォルダのショートカットをバ...
-
指定されたパスは存在しません...
-
エクセル固まった時 その作業...
-
EdgeでInPrivate上Webページの...
-
ASUS UEFI BIOS utilityという...
-
QuickTime のキーボードショー...
-
pdfファイルの回転を、ページ...
-
サイトのショートカットアイコ...
-
VMWare Player 上でフリーズ抜...
おすすめ情報