[已解决]如何限制用户同时选取两个以上单元格

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then
   
3.         Application.EnableEvents = False
   
4.         Target.Range("a1").Select
   
5.         Application.EnableEvents = True
   
6.     End If
   
7. End Sub
   

复制代码

这样不管你选了多少个，事件代码只会选择第一个单元格。

winter1021

爱疯 发表于 2013-3-19 12:26
可在2楼msgbox那句后，多加句：

activecell.activate

不得行，没有效果

hwc2ycy

爱疯 发表于 2013-3-19 12:26
可在2楼msgbox那句后，多加句：

activecell.activate

这只是激活活动单元格。

选择可以是多个，但活动单元格只会有一个。

1. activecell.select

复制代码

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then
   
3.         Application.EnableEvents = False
   
4.         ActiveCell.Select
   
5.         Application.EnableEvents = True
   
6.     End If
   
7. End Sub
   

复制代码

winter1021

hwc2ycy 发表于 2013-3-19 12:28
这样不管你选了多少个，事件代码只会选择第一个单元格。

谢谢了，可以了，

winter1021

怎么解决这个表格里每次操作都闪一下的问题呢

winter1021

hwc2ycy 发表于 2013-3-19 12:32

设备材料发货管理.rar (11.84 KB, 下载次数: 2)

2013-3-19 12:44 上传

点击文件名下载附件 怎么解决这个表格里每次操作一下就闪一下的问题

winter1021

已解决了