☰

单元格不在范围内，出现运行时错误 13

tag-icon • tag-icon microsoft-excel vba
单元格不在范围内，出现运行时错误 13

我正在制作一个简单的电子表格，当您单击单元格时，它会更改字符，然后计算具有特定字符的单元格。我已将范围设置为仅查看某些单元格（A3:A27、B3:B27），但每当我单击第 1 行时，我都会得到

运行时错误 13。此行超出了选定的范围。

这是我的代码。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range

Set rng = Range("A3:A27,B3:B27")
        If Target.Value = Chr(254) Then
            Target.Value = Chr(168)
            Cancel = True
        ElseIf Target.Value = Chr(168) Then
            Target.Value = Chr(254)
            Cancel = True
        End If
End Sub

相关内容