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

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条)

报告相同问题?

悬赏问题

  • ¥15 利用Java连接API接口总是出问题
  • ¥15 请教一个关于镜头标定,棋盘格格子大小的问题(畸变测试)
  • ¥15 el-table输入多维数组怎么实现
  • ¥15 安装GroudingDINO RuntimeError: Error compiling objects for extension
  • ¥15 关于推送项目到github的问题
  • ¥15 急!C++指针编写相关的问题
  • ¥15 kerberos身份认证配置问题
  • ¥30 用python写一个多签情况下波场的代理资源和回收资源
  • ¥15 怎么在matlab中输出显示泵的流量-扬程和管路损失与流量均在一个表格里
  • ¥15 matlab学期例题代码答疑