Office中国论坛/Access中国论坛

标题: 如何判断要打开的工作薄中哪个Sheet里有内容 [打印本页]

作者: koutx 时间: 2011-1-19 13:27
标题: 如何判断要打开的工作薄中哪个Sheet里有内容
一个Excel工作薄中有两个Sheet1和Sheet2，当打开此Excel工作薄时，如果Sheet1中是空的，而Sheet2中有内容时，如何用VBA语句来判断并将Sheet2设为当前活动Sheet呢？

作者: roych 时间: 2011-1-20 01:20
回复 koutx 的帖子

先贴是代码，把这段代码放置在workbook_Open事件中（如附件所示）：

For Each one In Application.Worksheets
'For循环遍历工作表
If Application.WorksheetFunction.CountA(one.Range("A1:IV65536")) > 0 Then
'用内置函数计算是否有内容，注意，空格也算是有输入的。如果不算，还要调试代码，暂时先不做。
MsgBox one.Name & "内容不为空，现在转向不为空的工作表"
one.Select
‘选中有内容的工作表（也可以用激活方法：Activate）
End If
Next one

复制代码

[attach]44699[/attach]

作者: koutx 时间: 2011-1-20 12:08
谢谢了.

作者: 余方方 时间: 2011-2-12 09:46
学习代码

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)