Question

需要帮助才能在没有循环的情况下查找union范围中的下一个单元格。现在，它对循环

起作用了

Private Sub Worksheet_Change(ByVal Target As Range)
Set op = Union(Range("A1", "A2"), Range("A4", "A5"), Range("A9", "A10"))
If Not Intersect(Target, op) Is Nothing Then
    On Error Resume Next
    For Each cell In op
        If te = 1 Then
            cell.Select
            Exit Sub
        End If
        If cell.Address = Target.Address Then
            te = 1
        End If
    Next cell
    On Error GoTo 0
End If

End Sub

我没有找到如何在没有“For Each Cell In Range”的范围内获得细胞。并且没有找到我如何知道在我的特定联合范围内的一些选定单元格。

Answer 1

查看单元保护。在受保护的工作表上，用户只能访问“未锁定”（即Locked = False）单元格。

因此，如果对未锁定的单元格进行编辑，则将选择下一个未锁定的单元格。这需要以下附加设置：

您的联合会定义的所有单元格的保护均设置为“锁定= False”。所有非联盟单元的“保护”均设置为“锁定=真”（无论如何，这都是默认设置）。文件->选项->高级->复选框“按Enter后，移动选择”。（这也是默认设置。）

联盟范围VBA上的下一个单元格

1 个答案: