wwd1234wwd
wwd1234wwd
采纳率100%
2017-07-07 07:52 阅读 2.6k
已采纳

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

  • 已采纳
    fight_in_dl 战在春秋 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
    

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

    点赞 1 评论 复制链接分享
  • wwd1234wwd wwd1234wwd 2017-07-07 14:19

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

    点赞 评论 复制链接分享

相关推荐