解决if语句-运行时错误6溢出错误

精灵火儿

下面代码是用来在状态栏显示单个单元格数值的,
Private Sub myapp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Count = 1 And IsNumeric(Target) Then
    Application.StatusBar = Target
    Else
    Application.StatusBar = False
End If
End Sub
问题是一旦Ctrl+A单元格选择多了,就会提示"运行时错误6溢出错误",
求大神指点,如何改进啊

qingc0221

if target.count>1 then exit sub

山菊花

If Target.CountLarge = 1 And IsNumeric(Target) Then

精灵火儿

山菊花 发表于 2019-6-6 09:45
If Target.CountLarge = 1 And IsNumeric(Target) Then

非常感谢,有效果

精灵火儿

qingc0221 发表于 2019-6-6 09:30
if target.count>1 then exit sub

之前就是这样干的,不能解决报错

精灵火儿

山菊花 发表于 2019-6-6 09:45
If Target.CountLarge = 1 And IsNumeric(Target) Then

版主,能实现把单个单元格的数值显示到状态栏右侧(目前在状态栏左侧边缘)
(因为选中多个单元格时候显示在状态栏右侧)

山菊花

精灵火儿 发表于 2019-6-6 09:56
版主,能实现把单个单元格的数值显示到状态栏右侧(目前在状态栏左侧边缘)
(因为选中多个单元格时候显示在 ...

这个我也不懂。