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

winter1021

求完整的VBA程序

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-19 12:28

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
   

复制代码

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

跳转到最佳答案楼层

hwc2ycy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 2 Then
   
3.         MsgBox "选择单元格超过2个了"
   
4.     End If
   
5. End Sub
   

复制代码

工作表事件。

hwc2ycy

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     If Target.Count > 2 Then
   
3.         MsgBox "在 工作表 " & Sh.Name & " 选取的单元格个数超过2个"
   
4.     End If
   
5. End Sub

复制代码

工作簿级事件。

hwc2ycy

hwc2ycy

如果不用事件。

1. Sub test()
   
2.     If Selection.Count > 2 Then
   
3.         MsgBox "选择的单元格超过2个了"
   
4.     End If
   
5. End Sub

复制代码

winter1021

这个程序还是可以选择两个，只是给出了个提示，那如何禁止选择两个及以上单元格呢

winter1021

hwc2ycy 发表于 2013-3-19 11:45
工作表事件。

这个程序还是可以选择两个，只是给出了个提示，那如何禁止选择两个及以上单元格呢，当选中两个以两个以上单元格时，自动选择选中的第一个单元格

hwc2ycy

.count>1就是禁止两个及以上了。

winter1021

hwc2ycy 发表于 2013-3-19 12:19
.count>1就是禁止两个及以上了。

这个程序还是可以选择两个，只是给出了个提示，消息框出来点确定后，已经选择的多个单元格仍然可以操作，比如同时删除多个单元格中的内容，那如何禁止选择两个及以上单元格呢，当选中两个以两个以上单元格时，自动选择选中的第一个单元格

爱疯

可在2楼msgbox那句后，多加句：

activecell.activate