嘻皮客娱乐学习网
标题:
VBA返回选中的区域是单个单元格还是区域?
[打印本页]
作者:
xipick
时间:
2016-7-8 14:06
标题:
VBA返回选中的区域是单个单元格还是区域?
如果我在表格中选择一定数量的单元格,那么如何返回我选择的是单个单元格还是一个区域,如果是前者,返回“N”,如果是后者,返回“Y”
Sub RegionOrCell()
If TypeName(Selection) = "Range" Then
Select Case Selection.Count
Case 1
MsgBox "N"
Case Else
MsgBox "Y"
End Select
End If
End Sub
复制代码
这个可以利用selection的count属性来进行判断
作者:
xipick
时间:
2016-7-8 14:11
Sub RegionOrCell()
If TypeName(Selection) = "Range" Then
MsgBox Application.WorksheetFunction.Text(Selection.Count, "[=1]\N;\Y")
End If
End Sub
复制代码
这个利用了工作表函数text,设置了数值的显示格式。如果selection.Count=1,刚显示为N,如果不为1,则显示为Y
作者:
xipick
时间:
2016-7-8 14:13
Sub Count_Selection()
If Selection.Columns.Count <> 1 Or Selection.Rows.Count <> 1 Then
MsgBox "Y"
Else
MsgBox "N"
End If
End Sub
复制代码
欢迎光临 嘻皮客娱乐学习网 (http://www.xipick.com/)
Powered by Discuz! X3.3