[已解决]'当前工作表只有一行数据时，而且数据在第一行，就弹出提示，否则退出

yjwdjfqb

Sub test()
'当前工作表只有一行数据时，而且数据在第一行，就弹出提示，否则退出
MsgBox "当前工作表只有一行数据，而且数据在第一行", , "提示"
End Sub

当前工作表，只有一行数据而且在第一行时，弹出提示.rar (4.57 KB, 下载次数: 5)

2014-3-19 22:42 上传

点击文件名下载附件


请大家帮我补充下这一句代码。谢谢大家了！

最佳答案

月排行榜 / 总排行榜

风林火山

2014-3-19 23:04

1. Sub test()
   
2. 
   
3. '当前工作表只有一行数据时，而且数据在第一行，就弹出提示，否则退出
   
4.     If ActiveSheet.UsedRange.Rows.Count = 1  Then
   
5.         MsgBox "当前工作表只有一行数据，而且数据在第一行", , "提示"
   
6.     End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

风林火山

1. Sub test()
   
2. 
   
3. '当前工作表只有一行数据时，而且数据在第一行，就弹出提示，否则退出
   
4.     If ActiveSheet.UsedRange.Rows.Count = 1  Then
   
5.         MsgBox "当前工作表只有一行数据，而且数据在第一行", , "提示"
   
6.     End If
   
7. End Sub
   

复制代码