wwd1234wwd
2017-07-07 07:52
采纳率: 100%
浏览 2.7k
已采纳

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条回答 默认 最新

  • 战在春秋 2017-07-07 08:30
    已采纳

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

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

    评论
    解决 无用
    打赏 举报

报告相同问题？

提交

相关推荐 更多相似问题