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

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
    

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?