Office中国论坛/Access中国论坛

标题: 如何得知工作薄里有几个工作表? [打印本页]

作者: suve 时间: 2006-7-10 19:49
标题: 如何得知工作薄里有几个工作表?
如何得知工作薄里有几个工作表?

如果得知工作表里有几行数据? 几列数据?

如何得知当前工作表的名称?

如何在当前工作表之外的所有工作表里查询某值?....

作者: suve 时间: 2006-7-10 23:00
非空

作者: yokoy 时间: 2006-7-10 23:27
回答第一个.

如何得到当前工作薄的工作表的数量?

用thisworkbook.sheets.count这个代码就行了.

比如:

Sub aa()
Dim bb
bb = ThisWorkbook.Sheets.Count '当前工作薄的工作表数量.
Range("b17") = bb
End Sub

运行此段后,就会在B17出行这个工作薄的工作表数目.

如何得到当前工作表的名称?

运行下面代码.

Sub aa()
Dim bb
bb = ActiveSheet.Name '当前工作表的名称
Range("b17") = bb
End Sub

[此贴子已经被作者于2006-7-10 16:45:40编辑过]

作者: yokoy 时间: 2006-7-10 23:46
对于如何得知当前工作表有几行几列.

以下有一个程序可以用一下,

Worksheets("日报流水账").Activate
Worksheets("日报流水账").Range("A65536").Select  '选择A65536单元格
Selection.End(xlUp).Select                   '用Ctrl+上箭头

hang = Selection.Row                      ' 得到当前单元格的行数字

Worksheets("日报流水账").Range("IV1").Select  '选择IV1单元格

Selection.End(xlToLeft).Select                '用Ctrl+左箭头
lie = Selection.Column                      ' 得到当前单元格的列数字
下面我就不说了.

只要再添加如:range("A36")="共" & lie & "列" & hang & "行"  就行了.

[此贴子已经被作者于2006-7-10 15:53:58编辑过]

作者: suve 时间: 2006-7-10 23:59
谢谢各位，学习中！

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