[已解决]如何用VBA返回选中的区域是单个单元格还是区域？

蝶·舞

如果我在表格中选择一定数量的单元格，那么如何返回我选择的是单个单元格还是一个区域，如果是前者，返回“N”，如果是后者，返回“Y”

最佳答案

月排行榜 / 总排行榜

老糊涂

2012-10-20 10:10

Sub Count_Selection()
    Dim cell As Object
    Dim count As Long
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    if count =1 then
        MsgBox "N"
    elseif count >1 then
        msgbox "Y"
    end if
End Sub

跳转到最佳答案楼层

老糊涂

Sub Count_Selection()
    Dim cell As Object
    Dim count As Long
    count = 0
    For Each cell In Selection
        count = count + 1
    Next cell
    if count =1 then
        MsgBox "N"
    elseif count >1 then
        msgbox "Y"
    end if
End Sub

suye1010

1. Sub RegionOrCell()
   
2. If TypeName(Selection) = "Range" Then
   
3.     Select Case Selection.Count
   
4.         Case 1
   
5.             MsgBox "N"
   
6.         Case Else
   
7.             MsgBox "Y"
   
8.     End Select
   
9. End If
   
10. End Sub
    

复制代码

这个可以利用selection的count属性来进行判断

蝶·舞

suye1010 发表于 2012-10-20 12:42
这个可以利用selection的count属性来进行判断

多谢了，又学习了一招

suye1010

1. Sub RegionOrCell()
   
2. If TypeName(Selection) = "Range" Then
   
3.      MsgBox Application.WorksheetFunction.Text(Selection.Count, "[=1]\N;\Y")
   
4. End If
   
5. End Sub

复制代码

蝶·舞

suye1010 发表于 2012-10-20 12:49

这里的TEXT可以改用FORMAT吗？

斗笠渔翁

学习                              

fdchenxin

我今天刚学的

Sub Count_Selection()
If Selection.Columns.Count <> 1 Or Selection.Rows.Count <> 1 Then
MsgBox "Y"
Else
MsgBox "N"
End If
End Sub