Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2010)
フィルターが掛かったセルからWebを開くには?
投稿日時: 19/08/24 22:26:27
投稿者: andoandoando

いつもお世話になっております。
 
EXCELのセルに記載してあるURLからWEBを開くことはできるのですが、フィルターで抽出してあるURLのみを開きたいのですが、複数セルを選択して下記マクロを実行すると非表示のセルも開いてしまいます。
見えているセルだけを開くにはどのようにしたら良いでしょうか?
以上よろしくお願いいたします。
 
Sub 選択されているURL開く()
' CTRL+SHIFT+O
  Dim rng As Range
  If TypeName(Selection) <> "Range" Then Exit Sub
  For Each rng In Selection
    Range(rng.Address(False, False)).Select
      Range(rng.Address(False, False)).Hyperlinks.Add anchor:=Range(rng.Address(False, False)), Address:=Range(rng.Address(False, False)).Value
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
  Next rng
   
End Sub

回答
投稿日時: 19/08/24 22:45:23
投稿者: simple

テスト検証していませんが、こんなことですか?

    For Each rng In Selection.SpecialCells(xlCellTypeVisible)
        rng.Hyperlinks.Add anchor:=rng, Address:=rng.Value
        rng.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Next rng

投稿日時: 19/08/24 23:08:57
投稿者: andoandoando

ご返信ありがとうございます。
 
はい、その意味です。
今、パソコン無いので検証できないのですが、ご提示頂いたことをやりたいです。
また、明日検証してご報告いたします。
ありがとうございます。

投稿日時: 19/08/25 07:31:06
投稿者: andoandoando

simple 様
 
ありがとうございます。
使わせていただいたところ動きました!!
 
ちょうど、ご提示したマクロがなぜか動かなくなってしまい、??となっていましたのでこちらに交換させていただきます。
大変ありがとうございました!!