vba 事件如何设置区域范围

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

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

excel vba

2个回答

按赞数排序

可以增加判断是否在指定区域(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

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

wwd1234wwd
wwd1234wwd 谢谢，你的方法可以解决我的问题
3 年多之前 回复
fight_in_dl
战在春秋 如果有帮助，请采纳答案好吗，谢谢！
3 年多之前 回复

我自己加了条
target.column=1 and rarget.row<11 这个条件也可以了

Csdn user default icon
插入链接
本地上传 网络图片
上传中...
上传图片
插入图片
抄袭、复制答案，以达到刷声望分或其他目的的行为，在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了！
我要提问
立即提问
相关内容推荐