如何得知工作薄里有几个工作表?

suve

如何得知工作薄里有几个工作表?

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

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

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

suve

非空

yokoy

回答第一个.

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

用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

对于如何得知当前工作表有几行几列.

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

    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

谢谢各位，学习中！