vba 事件如何设置区域范围

Question

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean)
If ActiveCell.Value = "" Then
ActiveCell.Value = "√"
Else
ActiveCell.Value = ""
End If

我想问下，如何设置这个代码只在a1:a10范围生效

Answer 1

可以增加判断是否在指定区域(Range)，示例代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rng As Range

If Target.Count <= 10 Then

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then

For Each Rng In Selection

With Rng

If .Value = "" Then

.Value = "√"

Else

.Value = ""

End If

End With

Next

End If

End If

End Sub

没有排版代码，你可以参照调试下。