Activesheet 与 worksheet的区别

l沙漠中的绿洲f

蓝桥玄霜 发表于 2013-12-7 17:33
ActiveSheet是对象，Worksheet也是对象，
前者是活动工作表；后者不一定是活动的，差别很小。
activeshee ...

在不求甚解中钻牛角尖，在钻牛角尖中不求甚解

sdec040721

谢谢分享, 学习了

UUOffice

首先得跟你讲一讲excel中sheet的种类
1.为什么activesheet是一个object, 因为excel中有worksheet chartsheet macrosheet modulesheet及dialogsheet这五种sheet, 而每一种sheet都是可以是active状态的，所以activesheet是一个object 它可以是以上5种sheet.
2.worksheet只是5种sheet中的一种，不过也是最常见的一种。现在明白了吧。

wtb8152

UUOffice 发表于 2018-1-23 14:29
首先得跟你讲一讲excel中sheet的种类
1.为什么activesheet是一个object, 因为excel中有worksheet chartshe ...

很清楚了！

monkeyybab

学习中~~~~~~~~~~~~

zhangru2199

求助，http://club.excelhome.net/thread-1425612-1-1.html

macro_23

zhaogang1960 发表于 2013-12-7 17:44
还有一层意思：
Sheet或Worksheet不完全是一回事儿，前者是表，可以是工作表，也可以是图表，后者是工作表 ...

hi Zhao老师，请教一个问题。我这边有一段程序，不能excel add-in 加载成功，能否劳驾您有空帮忙看下，需要如何调试 ，才能运行成功，非常感谢。

1. Sub hide_column()
   
2. Dim rows, cols As Integer
   
3. 'batch all sheets in this workbook
   
4. 
   
5. With ActiveWorkbook
   
6. 
   
7. For Each sh In .Worksheets
   
8.     'read all sheets except the two sheets
   
9.     If sh.Name <> "Cover Page" And sh.Name <> "Summary" Then
   
10.         With sh
    
11.             'Unprotect the active sheet
    
12.             .Unprotect
    
13.             
    
14.             'get row number
    
15.             rows = .[A65536].End(xlUp).Row
    
16.             
    
17.             'get column number
    
18.             'cols = .[IV1].End(xlToLeft).Column
    
19.             cols = .UsedRange.Columns.Count
    
20.    
    
21.             'hide the column with character--rev_raised
    
22.              For j = 1 To cols
    
23.                If InStr(.Cells(4, j), "rev_raised") > 0 Then .Columns(j).EntireColumn.Hidden = True
    
24.              Next j
    
25.    
    
26.         End With
    
27.     End If
    
28. Next sh
    
29. 
    
30. End With
    
31. 
    
32. End Sub
    
33. 
    
34. 
    
35. Sub show_all_column()
    
36. Dim rows, cols As Integer
    
37. 
    
38. With ActiveWorkbook
    
39. 
    
40. For Each sh In .Worksheets
    
41. 
    
42.     'read all sheets except the two sheets
    
43.         If sh.Name <> "Cover Page" And sh.Name <> "Summary" Then
    
44.         With sh
    
45.             rows = .[A65536].End(xlUp).Row 'get row number
    
46.    
    
47.             'get column number
    
48.             'cols = .[IV1].End(xlToLeft).Column
    
49.             cols = .UsedRange.Columns.Count
    
50.    
    
51.              'show all columns
    
52.              For j = 1 To cols
    
53.    
    
54.                .Columns(j).Hidden = False
    
55.    
    
56.              Next j
    
57.    
    
58.         End With
    
59.     End If
    
60. Next sh
    
61. 
    
62.   
    
63. End With
    
64. 
    
65. End Sub
    
66. 
    

复制代码

cj9687451

蓝桥玄霜 发表于 2013-12-7 17:33
ActiveSheet是对象，Worksheet也是对象，
前者是活动工作表；后者不一定是活动的，差别很小。
activeshee ...

版主，您好！

为什么用以下代码,运行后代码1和代码2都是在文件最初的一个表上执行？把1和2换成表格名称也是同样效果

Set wb=Workbook.Open(某个文件)

With wb.Worksheets(1)
....
代码1
End With

With wb.WorkSheets(2)
...
代码2
End With

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。