如何修改VBA代码仅对可见选中单元格执行文件或链接打开操作？

要实现仅对选中区域中的可见单元格执行操作，只需在循环处理每个单元格前添加可见性判断，利用单元格的Visible属性识别是否被自动筛选隐藏即可。

修改后的代码如下：

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _
        ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
 
Sub OpenDocument2() 'ShellExecute
 
    Dim cel As Range, El, arrCel
 
    For Each cel In Selection.Cells
        ' 仅处理可见单元格，跳过被筛选隐藏的单元格
        If cel.Visible Then
            If cel.Hyperlinks.Count > 0 Then
                ShellExecute 0, "open", cel.Hyperlinks(1).Address, "", "", 1
            Else
                arrCel = Split(cel.Value, vbLf)
                For Each El In arrCel
                    ShellExecute 0, "open", El, "", "", 1
                Next El
            End If
        End If
    Next cel
End Sub

修改说明 #

• 新增If cel.Visible Then判断逻辑：只有当单元格处于可见状态（未被自动筛选隐藏）时，才执行后续的打开操作。
• 该判断直接适配手动选中的非连续选区，自动跳过其中因筛选而被隐藏的单元格，避免打开不必要的链接。

内容的提问来源于stack exchange，提问作者Waleed