1

約 1200 の URL を含む Excel ファイルがあります。

これらの URL をシングル ショットで開くマクロがありますが、これによりシステムが遅くなり、おそらくそれも不可能になる可能性があることに気付きました。

したがって、スクリプトを変更して、選択したセル (20 としましょう) でのみ URL を開くことを考えました。操作 、次の 20 を選択してマクロを再度実行します。

これが私のマクロです。選択したセルのみで動作するように変更する方法を教えてください

Sub Open_Hyperlinks()
    Dim i, LastRow
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        If Cells(i, "A").Hyperlinks.Count > 0 Then
            Cells(i, "A").Hyperlinks(1).Follow
        End If
    Next
End Sub

ヘルプは大歓迎です

4

1 に答える 1

0

セルがすでにハイパーリンクとして入力されている場合は、次を使用します。

サブOpen_SelectedHyperlinks（）
    Dim c As Range
    TypeOf SelectionがRangeでない場合は、Subを終了します
    Selection.Cellsの各cについて
        c.Hyperlinks.Count>0の場合Then_
            c.Hyperlinks（1）.Follow
    次
サブ終了

それ以外の場合、ハイパーリンクとして入力されていない場合でも、これはすべてのセルをたどります。

サブOpen_SelectedTextlinks（）
    Dim c As Range

    TypeOf SelectionがRangeでない場合は、Subを終了します
    Selection.Cellsの各cについて
        c.Hyperlinks.Count=0の場合
            ActiveSheet.Hyperlinks.Add Anchor：= c、_
                Address：= "http：//"＆c.Value'セルの内容に応じて、「http：//」と一部を削除します
        終了する場合
        c.Hyperlinks（1）.Follow
    次
サブ終了
于 2013-02-04T08:39:17.910 に答える