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范围生效

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问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐