[已解决]怎样防止InputBox选择多个单元格，或区域

yjwdjfqb

怎样防止InputBox选择多个单元格，或区域

Sub 选择()
   
   
    Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox("请选择" & vbCrLf & vbCrLf & "可按CTRL键选择多个", "提示", , Type:=8)
    If rng Is Nothing Then Exit Sub


End Sub


请教各位老师了，谢谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-14 23:55

重复的返回总之有一个呀。你又何必纠结这个了。
你选两个A1，返回到RNG中就只有一个A1。

刚测试了，确实会返回两个同样的单元格。

跳转到最佳答案楼层

hwc2ycy

1. Sub 选择()
   
2.     Dim rng As Range
   
3.     On Error Resume Next
   
4.     Set rng = Application.InputBox("请选择" & vbCrLf & vbCrLf & "可按CTRL键选择多个", "提示", , Type:=8)
   
5.     If rng Is Nothing Then Exit Sub
   
6.     If rng.Areas.Count > 1 Or rng.CountLarge > 1 Then Exit Sub
   
7.     '接下来跟处理代码
   
8. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2014-4-14 23:49

老师你好，是我没有表述清楚

我是说，可以选择多个区域，或单元格

但不能选择重复的

如我按CTRL键盘，我点了下E5，又继续点E5，　　选择框内只会显示一个E5。。。。。。这样的。。。

hwc2ycy

重复的返回总之有一个呀。你又何必纠结这个了。
你选两个A1，返回到RNG中就只有一个A1。

刚测试了，确实会返回两个同样的单元格。

yjwdjfqb

hwc2ycy 发表于 2014-4-14 23:55
重复的返回总之有一个呀。你又何必纠结这个了。
你选两个A1，返回到RNG中就只有一个A1。

哦，是这样。。。

hwc2ycy

1. Sub 选择()
   
2.     Dim rng As Range
   
3.     On Error Resume Next
   
4.     Set rng = Application.InputBox("请选择" & vbCrLf & vbCrLf & "可按CTRL键选择多个", "提示", , Type:=8)
   
5.     If rng Is Nothing Then Exit Sub
   
6.     If rng.Areas.Count > 1 Then
   
7.         For i = 1 To rng.Areas.Count - 1
   
8.             If Not Intersect(rng.Areas(i), rng.Areas(i + 1)) Is Nothing Then
   
9.                 MsgBox "有重复的区域"
   
10.                 Exit Sub
    
11.             End If
    
12.         Next
    
13.     End If
    
14. 
    
15. End Sub

复制代码

hwc2ycy

其实这个代码还有漏洞，因为找重复是这么来的，第1个区域与第2个区域，第2个区域与第3个区域，即便1与2没有重复，2与3没有重复，也保不准1与3没重复。

yjwdjfqb

hwc2ycy 发表于 2014-4-15 09:41
其实这个代码还有漏洞，因为找重复是这么来的，第1个区域与第2个区域，第2个区域与第3个区域，即便1与2没有 ...

其实还是我想错了，根本，选择重不重复不重要

老师4楼的正解
重复的返回总之有一个呀。你又何必纠结这个了。
你选两个A1，返回到RNG中就只有一个A1。

刚测试了，确实会返回两个同样的单元格。