第5章 Worksheet(工作表)对象

合集下载

VBA中常用的Excel对象和其属性方法解析

VBA中常用的Excel对象和其属性方法解析在VBA中，Excel对象是我们在编写Excel宏时经常使用的重要元素之一。

通过使用Excel对象，我们可以操作Excel工作簿、工作表、单元格等，实现对Excel数据的读取、写入、操作等功能。

本文将详细解析VBA中常用的Excel对象以及它们的属性和方法。

首先，我们先介绍Excel对象的层级结构。

在VBA中，Excel对象的层级结构分为四个层次：Excel应用程序对象、工作簿对象、工作表对象和单元格对象，由上至下，依次代表了Excel的整体、工作簿、工作表和单元格。

1. Excel应用程序对象(Application对象)：Excel应用程序对象是最顶层的对象，它代表了整个Excel应用程序的实例。

在VBA中，我们可以通过创建Application对象来访问Excel应用程序的各项功能和操作。

我们可以通过下面的代码来创建一个Excel应用程序对象：```vbaDim app As Excel.ApplicationSet app = New Excel.Application```2. 工作簿对象(Workbook对象)：工作簿对象是Excel文件的最高级别对象，一个Excel应用程序可以包含多个工作簿对象。

在VBA中，我们可以通过创建Workbook对象来打开、创建、保存和关闭Excel工作簿。

下面是创建一个Workbook对象的例子：```vbaDim wb As Excel.WorkbookSet wb = app.Workbooks.Add '创建一个新的工作簿对象```在工作簿对象中，我们可以访问以下一些常用的属性和方法：- Name：表示工作簿的名称。

- Worksheets：表示该工作簿中所有工作表的集合。

可以通过索引或名称来访问特定的工作表。

- Save：保存对工作簿的修改。

- Close：关闭工作簿。

3. 工作表对象(Worksheet对象)：工作表对象是Excel文件中的一个表格，每一个Excel工作簿可以包含多个工作表对象。

跟烟花入门VBA之51：工作表对象Worksheet（六）

跟烟花入门VBA之51：工作表对象Worksheet（六）工作表对象的属性告一段落，从今天开始我们讲讲工作表对象的方法。

Worksheet.Activate 方法使当前工作表成为活动工作表。

调用此方法等同于单击工作表的标签。

示例：Worksheets('Sheet1').Activate‘激活Sheet1工作表Workbooks(2).Worksheets(3).Activate‘激活工作簿集合中的第2个工作簿内的第3个工作表Worksheet.Calculate 方法计算特定工作表的单元格。

相当于按F9重新计算一次。

Worksheets('Sheet1').CalculateCalculate方法在工作簿，工作表，单元格甚至应用对象中都有存在。

所有打开的工作簿 Application.Calculate（或只是 Calculate）指定工作表 Worksheets(1).Calculate指定区域 Worksheets(1).Rows(2).CalculateWorksheet.Copy 方法将工作表复制到工作簿的另一位置。

语法：Copy(Before, After)Before 可选Variant 将要在其之前放置所复制工作表的工作表。

如果指定了 After，则不能指定 Before。

After 可选 Variant 将要在其之后放置所复制工作表的工作表。

如果指定了 Before，则不能指定 After。

说明：如果既不指定 Before 也不指定 After，则 Microsoft Excel 将新建一个工作簿，其中包含复制的工作表。

工作表复制后，复制后的新工作表自动成为活动工作表。

示例：Worksheets('Sheet1').CopyAfter:=Worksheets('Sheet3')‘Sheet1工作表复制到SHEET3工作表之后。

excelwriter中获取sheet对象

excelwriter中获取sheet对象在ExcelWriter中获取Sheet对象Excel是一种广泛使用的电子表格软件，它可以对数据进行分析、计算和可视化。

而ExcelWriter是Python中的一个库，它允许我们使用Python生成和修改Excel文件。

在Excel中，Sheet是指工作簿内的一个表格，它由行、列和单元格组成。

在ExcelWriter库中，我们可以通过几个简单的步骤来获取Sheet 对象。

首先，我们需要导入ExcelWriter库，并创建一个工作簿对象：```import xlsxwriterworkbook = xlsxwriter.Workbook('example.xlsx')```然后，我们可以使用`add_worksheet()`方法创建一个新的Sheet对象：```worksheet = workbook.add_worksheet()```在创建Sheet对象时，我们可以指定它的名称：```worksheet = workbook.add_worksheet('Sheet1')```如果我们想要在工作簿内创建多个Sheet对象，可以使用不同的名称进行区分。

接下来，我们可以向Sheet对象中添加数据。

通过指定行和列的索引，可以将数据写入到相应的单元格中：```worksheet.write(0, 0, 'Hello')worksheet.write(0, 1, 'World')```在这个例子中，我们将字符串"Hello"写入到第一行第一列的单元格中，将字符串"World"写入到第一行第二列的单元格中。

除了写入数据，我们还可以设置单元格的格式。

通过使用`add_format()`方法，我们可以创建一个格式对象，并将其应用到单元格上：```format = workbook.add_format()format.set_bold()worksheet.write(0, 0, 'Hello', format)```在这个例子中，我们创建了一个粗体的格式对象，并将其应用到第一行第一列的单元格中。

第5章 Worksheet(工作表)对象PPT

Worksheet.Cells 属性：返回一个 Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。 Worksheet.Columns 属性：返回一个 Range 对象，它代表活动工作表中的所有列属性：返回或设置一个 String 值，它代表对象的名称
2020/3/15
11
3、使用ActiveSheet属性引用活动工作表
使用ActiveSheet属性可以返回当前活动工作表
MsgBox
2020/3/15
12
工作表的添加与删除
在工作簿中添加工作表使用Add方法，语法如下
expression.Add(Before, After, Count, Type)
2020/3/15
6
2.2 使用工作表的编号
工作表编号（索引号）是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。
Worksheets(1).Select 该代码选中并激活当前工作簿中第1个工作表
2020/3/15
7
使用Worksheet对象的Index属性可以返回工作表的编号：
End Sub
2020/3/15
14
三、工作表的添加与删除
3.1、工作表对象的Delete方法删除指定的对象，语法如下：
expression.Delete
参数expression是必需的，该表达式返回“应用于”列表中的对象之一例如：Sheet7.Delete
2020/3/15
15
3.2、工作表中插入行
在工作表的中插入空行，需要使用Insert方法
Sheet1.Rows(3).Insert 在sheet1的第2行和第3行之间插入一行空行

VBA笔记：Workbook、Worksheets对象

VBA笔记：Workbook、Worksheets对象1.对象清单对象说明Application代表excel应⽤程序Workbook代表excel的⼯作簿，⼀个workbook对象代表⼀个⼯作簿对象worksheet代表excel的⼯作表，⼀个worksheet对象代表⼀张普通⼯作表Range代表⼯作表⾥的单元格，可以是单个、也可以是单元格区域2.对象 Application2.1 属性 ScreenUpdating作⽤：屏幕是否刷新的开关Sub InputTest2() Cells.ClearComments Application.ScreenUpdating = False '暂停屏幕刷新，不能看到运算过程 Range('A1:A10') = 100 MsgBox '有看到100的输⼊过程吗？' Range('B1:B10') = 200 MsgBox '有看到200的输⼊过程吗' Application.ScreenUpdating = Tru 刷新屏幕End Sub2.2 属性 DisplayAlerts作⽤：程序在运⾏过程中，是否显⽰警告信息，默认值为trueSub DelSht() Dim sht As Worksheet Application.DisplayAlerts = False '关闭警告信息显⽰ For Each sht In Worksheets If = Then sht.Delete End If Next Application.DisplayAlerts = True '解锁警告信息显⽰2.3 属性 EnableEvents作⽤：限制事件的触发'Worksheet_SelectionChange = ⼯作表点击事件'Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Value = Target.Address Application.EnableEvents = False Target.Offset(1, 0).Select Application.EnableEvents = TrueEnd Sub2.4 属性 WorksheetFunction作⽤：部分excel函数在vba⾥并不能直接使⽤，只能通过 WorksheetFunction的⽅式来间接使⽤Sub CountTest() Dim mycount As Integer mycount = Application.WorksheetFunction.CountIf(Range('A1:B50'), '>100') MsgBox 'A1:B50中⼤于100的单元格个数为：' & mycountEnd Sub3.对象：Workbook3.1 基础属性Sub WBMsg() Range('B2:B4').ClearContents Range('B2') = '当前⼯作簿的名字 Range('B3') = ThisWorkbook.Path '当前⼯作簿的路径 Range('B4') = ThisWorkbook.FullName '当前⼯作簿的路径（带名字）End Sub更多的属性，可以在帮助⽂档⾥查看3.2 ⼯作簿的操作新建空⽩⼯作簿Workbooks.Add模板⼯作簿（以⽬标⽂件为模板）Workbooks.Add 'C:\Book1.xls'打开Workbooks.Open 'C:\Book1.xls'激活(选中)Workbooks('Book1'). Activate保存保存ThisWorkbook.Save另存为ThisWorkbook.SaveAs Filename:='C:\Book2.xls'保留原⽂件、另存新⽂件ThisWorkbook.SaveCopyAs Filename:='C:\Book2.xls'关闭关闭所有Workbooks.Close关闭某个⽂件Workbooks('Book2').Close保存并关闭某个⽂件Workbooks('Book2').Close savechanges :=True '写法1Workbooks('Book2').Close True '写法2(省略参数名)3.3 ThisWorkbook与ActiveWorkbook前者是代码所在的⼯作簿，后者是活动的⼯作簿4.对象：Worksheet索引选择第1个⼯作表Worksheets.(1)选择名为'Sheet1'的⼯作表Worksheets.('Sheet1')新建空⽩⼯作表Worksheets.Add插⼊多个⼯作表Worksheets.Add Count:=3在xx⼯作表前后插⼊⼯作表Worksheets.Add before:=Worksheets(1)Worksheets.Add after:=Worksheets(1)在xx⼯作表前后插⼊多个⼯作表Worksheets.Add after:=Worksheets(1) Count:=3改名改名Worksheets(2).Name = '⼯资表'新建起名Sub ShtAdd() Worksheets.Add before:=worksheets(1) = '⼯资表'End SubSub ShtAdd() Worksheets.Add(before:=worksheets(1)).Name='⼯资表'End Sub 删除Worksheets('Sheet1').Delete激活Worksheets('Sheet1').ActivateWorksheets('Sheet1').Select复制将'Sheet1'复制，并粘贴到'考勤表'的前&后⾯Worksheets('Sheet1').copy before:=Worksheets('考勤表')Worksheets('Sheet1').copy after:=Worksheets('考勤表')不使⽤参数，默认将⼯作表复制到新⼯作簿中Worksheets('考勤表').copy移动将'Sheet1'移动到'考勤表'的前&后⾯Worksheets('Sheet1').move before:=Worksheets('考勤表')Worksheets('Sheet1').move after:=Worksheets('考勤表')不使⽤参数，默认将⼯作表移动到新⼯作簿中Worksheets('考勤表').move5.对象：RangeRange对象的内容太⼤，后⾯开个独⽴章。

worksheets对象方法

worksheets对象方法Microsoft Excel是一款广泛应用于数据处理和分析的电子表格软件，它提供了丰富的功能和工具来帮助用户完成各种任务。

在Excel中，worksheets对象是一个非常重要的对象，它代表了工作簿中的一个或多个工作表。

worksheets对象方法提供了一系列操作工作表的功能，下面将介绍几个常用的worksheets对象方法。

1. Add方法worksheets对象的Add方法用于在工作簿中添加新的工作表。

通过Add方法，可以指定新工作表的名称和位置。

例如，可以使用下面的代码在工作簿的末尾添加一个名为"新工作表"的工作表：```Worksheets.Add().Name = "新工作表"```这样就在工作簿中添加了一个名为"新工作表"的工作表。

2. Delete方法worksheets对象的Delete方法用于删除工作簿中的一个或多个工作表。

Delete方法接受一个参数，表示要删除的工作表的索引或名称。

例如，可以使用下面的代码删除工作簿中的第一个工作表：```Worksheets(1).Delete```这样就删除了工作簿中的第一个工作表。

3. Copy方法worksheets对象的Copy方法用于复制工作表。

Copy方法接受一个参数，表示要复制的工作表的索引或名称，同时可以指定目标位置。

例如，可以使用下面的代码将工作簿中的第一个工作表复制到末尾：```Worksheets(1).Copy After:=Worksheets(Worksheets.Count)```这样就在工作簿末尾复制了一份与第一个工作表相同的工作表。

4. Hide方法worksheets对象的Hide方法用于隐藏工作表。

Hide方法接受一个参数，表示要隐藏的工作表的索引或名称。

例如，可以使用下面的代码隐藏工作簿中的第一个工作表：```Worksheets(1).Visible = False```这样就隐藏了工作簿中的第一个工作表。

Excel VBA编程 WorkSheet对象

Unprotect
取消保护工作表。例如Worksheets("Sheet2").Unprotect("ABC")
Range
返回一个Range对象，该对象表示一பைடு நூலகம்单元格或者单元格区域。
SaveAs
保存对不同的文件中的图表或者工作表的更改。
Select
选择一个工作表。例如Worksheets("Sheet3").Select
Visible
设置或者显示一个工作簿。例如Worksheets("Sheet3").Visible=True
SelectionChange
当工作表中选择的区域发生改变时，将产生本事件。
Calculate
在对工作表进行重新计算之后产生此事件。
Change
当更改工作表中的单元格时，产生此事件。
例如，在VBE窗口中的【代码】编辑窗口中，输入“Worksheets("Sheet1").Activate”代码，表示激活该工作表。
Excel VBA
使用Worksheet对象可以处理当前工作簿中的一个工作表内容。例如，可以通过WorkSheet对象中的属性、方法和事件的学习，来掌握使用该对象如何进行删除工作表、打印工作表等操作。
下面通过表10-8来了解一下WorkSheet对象中常用的属性、方法以及事件内容。
表10-8 WorkSheet对象中的属性、方法和事件
PrintOut
打印指定的工作表。例如Worksheets("Sheet3").PrintOut
PrintPreview
打印预览工作表。例如Worksheets("Sheet2").PrintPreview

VBA之WrokSheet工作表对象（精品）

WorkSheet工作表对象(一)如何引用工作表？通过Sheets(index)或Worksheets(index)可返回一个WorkSheet对象（工作簿中如果包含图表工作表，那Sheets(index)有可能返回的是图表对象）。

Index是工作表索引号或者工作表名称。

索引号表示该工作表在工作簿的标签栏上的位置。

所有工作表均包含在索引计数中，即便是隐藏的工作表也是如此。

Worksheets(1)是工作表中第一个（最左边）工作表，而Worksheets（worksheets.count）则是最后一个。

Worksheet.Application 属性如果不使用对象识别符，则该属性返回一个Application 对象，该对象表示Microsoft Excel 应用程序。

如果使用对象识别符，则该属性返回一个表示指定对象（可对一个OLE 自动操作对象使用本属性来返回该对象的应用程序）创建者的Application 对象。

这个属性在之前的工作簿，工作簿集合，工作表集合都包含有，以后再介绍Application 对象。

Worksheet.Cells 属性返回一个Range 对象，它代表工作表中的所有单元格（不仅仅是当前使用的单元格）。

因为Item 属性是Range 对象的默认属性（默认属性：可以为控件设置的属性，以使每次创建该类型的新控件时，这个属性的值都相同），所以可以在Cells 关键字后面紧接着指定行和列索引。

示例：ActiveSheet.Cells(5, 3).Value = "VBA零基础入门"'修改C5单元格的值'5代表行号，3是列号Worksheet.CircularReference 属性返回一个Range 对象，该对象表示工作表上包含第一个循环引用的区域，或返回Nothing（如果工作表上没有循环引用）。

在继续执行计算之前，必须删除循环引用。

示例：Dim rg As RangeSet rg = ActiveSheet.CircularReferenceIf Not rg Is Nothing ThenMsgBox "当前工作表中第一个循环引用的单元格地址为：" & rg.AddressEnd IfWorksheet.CodeName 属性返回对象的代码名，String类型，只读。

VBA常用对象和属性介绍

VBA常用对象和属性介绍VBA（Visual Basic for Applications）是一种在Microsoft Office应用程序中编写宏的编程语言。

它提供了丰富的对象模型和属性，使得开发者可以轻松地操作和控制Office应用程序的各种功能。

本文将介绍VBA中一些常用的对象和属性，帮助读者更好地理解和使用VBA。

一、工作簿和工作表对象在VBA中，一个Excel文件被表示为一个工作簿（Workbook）对象。

可以通过创建或打开一个工作簿对象来访问和处理Excel文件中的数据。

下面是一些常用的工作簿对象属性和方法：1. Name：表示工作簿的名称。

2. Worksheets：表示工作簿中的所有工作表集合。

3. Save：保存工作簿。

4. Close：关闭工作簿。

而工作表（Worksheet）对象则表示Excel文件中的一个标签页，可以通过工作簿对象的Worksheets属性访问到。

下面是一些常用的工作表对象属性和方法：1. Name：表示工作表的名称。

2. Range：用于操作工作表中的单元格区域。

3. Cells：用于操作工作表中的单个单元格。

二、单元格对象和Range对象在VBA中，单元格（Cell）对象表示Excel表中的一个单元格，可以通过Range对象的属性和方法访问和操作。

下面是一些常用的单元格对象属性和方法：1. Value：表示单元格的值。

2. Formula：表示单元格的公式。

3. Font：表示单元格的字体。

4. Interior：表示单元格的背景色。

而Range对象则表示一个包含一个或多个单元格的区域。

下面是一些常用的Range对象属性和方法：1. Value：表示区域内单元格的值。

2. Formula：表示区域内单元格的公式。

3. Select：选择区域内的单元格。

4. Copy：复制区域内的单元格。

5. PasteSpecial：粘贴复制的单元格到另一个区域。

三、图表对象在Excel中，图表（Chart）对象用于可视化数据，VBA提供了丰富的图表对象和属性来创建、修改和控制Excel图表。

WorkSheet属性和方法

WorkSheet属性和⽅法WorkSheet和workSheets的关系：workSheet是单个⼯作表，workSheets是指定⼯作簿中所有⼯作表的集合。

对象名称与⼯作表名称：每个⼯作表都有两个名，⼯作表名或者标签名称即看到的⼯作表的名称，如“sheet1”、“⼯资表”，对象名称或者代码名称，⼀般只为“sheet1”，“sheet2”这种形式，可以在⼯程资源管理器和属性窗⼝⾥⾯看到。

在使⽤多过程中，我们多使⽤的是代码名称，⼯作表名称的修改不会影响代码名称，在属性窗⼝⾥可以修改代码名称，但建议不要修改代码名称。

怎么引⽤⼯作表：1. 利⽤⼯作表的索引号或者标签名称引⽤；如：三张⼯作表.索引号是指定⼯作簿⾥第⼏张⼯作表，如上图“第⼆张表”的索引号为2，标签名称为“第⼆张表”。

引⽤格式如下：Worksheets.Item(2) ‘引⽤⼯作簿中第⼆张⼯作表Worksheets(2) ‘ 如上Worksheets(“第⼆张表”) ‘引⽤名为“第⼆张表”的⼯作表2. 利⽤代码名称引⽤直接使⽤代码名称引⽤，如操作表代码名称为sheet1表中的单元格：Sheet1.Range(“D2”).Value=12 ‘在sheet1中D2单元格输⼊12如要查看当前⼯作表的代码名称，则：Msgbox ActiveSheet.CodeName⽅法：Add⽅法：插⼊⼀张新的⼯作表，格式和参数如下：当前活动⼯作表是“第⼆张表”，我在⽴即窗⼝⾥新建⼀张表，出现了名为sheet1的⼯作表，在活动⼯作表前⾯，同时它的代码名称为sheet4。

加⼊参数：before|after：指定放在某⼀⼯作表前或后worksheets.Addafter:=worksheets(3)，这⼀句在当前⼯作簿中效果⼀样。

使⽤count指定插⼊⼯作表的数量：Worksheets.Add after := Worksheets(3) , Count:=3‘在索引号为3 的⼯作表后插⼊3张⼯作表，多个参数要⽤逗号隔开另外补充，count可⽤于计数，代码“Worksheets.Count”返回值即为活动⼯作簿中的⼯作表数量。

ExcleVBA常用技巧Worksheet对象

VBA常用技巧目录VBA常用技巧 (1)第 2 章Worksheet（工作表）对象 (2)技巧 1引用工作表的方式 (2)1-1使用工作表的名称 (2)1-2使用工作表的索引号 (2)1-3使用工作表的代码名称 (3)1-4使用 ActiveSheet 属性引用活动工作表 (3)技巧 2选择工作表的方法 (4)技巧 3遍历工作表的方法 (5)3-1使用 For...Next语句 . (5)3-2使用 For Each...Next 语句 . (7)技巧 4在工作表中上下翻页 (8)技巧 5工作表的增添与删除 (9)技巧 6严禁删除指定工作表 (13)技巧 7自动建立工作表目录 (15)技巧 8工作表的深度隐蔽 (17)技巧 9防范改正工作表的名称 (19)技巧 10工作表中一次插入多行 (20)技巧 11删除工作表中的空行 (21)技巧 12删除工作表的重复行 (23)技巧 13定位删除特定内容所在的行 (25)技巧 14判断能否选中整行 (26)技巧 15限制工作表的转动地域 (27)技巧 16复制自动挑选后的数据地域 (28)技巧 17使用高级挑选获取不重复记录 (30)技巧 18工作表的保护与排除保护 (31)技巧 19奇偶页打印 (34)第 2章 Worksheet （工作表）对象技巧 1 引用工作表的方式VBA 中，在不一样的工作表之间变换也许对不一样工作表中的单元格地域进行操作时，需要指定引用的工作表，平时有下边几种方法：1-1 使用工作表的名称工作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets会集和Sheets 会集两种引用方式，以下边的代码所示。

#001 Sub ShActivate()#002Worksheets("索引号").Activate#003'Sheets("索引号").Activate#004 End Sub第 3、 4 行代码都激活工作簿中名称为“索引号”的工作表，激活后“索引号”工作表将成为活动工作表。

工作表对象和属性

工作表对象和属性讲完了VBA中三大件中的第一大件：range对象，不知道大家对Excel VBA的认识有了怎样的加深呢？在这里必须要提的一点是：VBA是用来解决实际问题的，推荐大家自己想一想工作中的重复性excel工作，然后想办法用VBA优化，这样才会进步更快哦！这一节我们开始分享三大件中的第二大件：工作表sheets和worksheets的区别从定义上来讲，worksheets是工作表的一个集合对象，而sheets 不仅包括工作表对象，还包括图表charts，宏工作表macroworksheet等等。

在我们学习VBA的初级阶段，只需要学懂worksheets就可以。

因此，本文将主要着眼于worksheets对象来讲解。

worksheets和worksheet的区别讲到这里，大家可能又云里雾里了，不是说好了要讲worksheets 么，怎么还出来一个单数形式？上面我们也说到了，worksheets是一组工作表集合对象，那工作表又是什么呢？ worksheet呀！也就是说，可以这么简单的理解，worksheet是单个的工作表，有一些个性，例如，姓名，编号，等等，而worksheets更多偏向的是worksheets一些共性，例如计数count等。

A哥还有一些小小的体会，worksheet作为单个对象，属性和方法都有兼顾。

而worksheets作为集合对象，更多的是偏向于方法。

worksheet与activesheet如果我们把worksheet再进行分类，就可以按照其是否为当前活动工作表来区分。

当前活动的工作表也可以称为activesheet。

也就是说，activesheet其实是worksheet的一种特例。

本节，我们就先从单个的worksheet的属性和方法学起，中间也会穿插一些worksheets的内容。

属性index用于返回worksheet在worksheets集合中的索引号。

号码从1开始，一直到worksheets的个数。

Worksheet 对象成员 Excel 2007 开发人员参考

Next
返回代表下一个工作表的Worksheet对象。
Outline
返回一个Outline对象，该对象表示指定工作表的分级显示。只读。
PageSetup
返回一个PageSetup对象，它包含用于指定对象的所有页面设置。只读。
Parent
返回指定对象的父对象。只读。
Previous
返回代表下一个工作表的Worksheet对象。
BeforeRightClick
右键单击工作表时发生此事件，此事件先于默认的右键单击操作。
Calculate
对于Worksheet对象，在对工作表进行重新计算之后发生此事件。
Change
当用户更改工作表中的单元格，或外部链接引起单元格的更改时发生此事件。
Deactivate
图表、工作表或工作簿被停用时发生此事件。
如果显示指定工作表中的分页符（包括自动和手动分页符），则该属性值为True。Boolean类型，可读写。
DisplayRightToLeft
如果指定工作表是从右到左显示（而非从左到右），则为True。如果对象从左到右显示，则为False。Boolean类型，只读。
EnableAutoFilter
如果当仅限于用户界面保护处于打开状态时，启用自动筛选箭头，则该属性值为True。Boolean类型，可读写。
EnableOutlining
如果当仅限于用户界面保护处于打开状态时，启用分级显示符号，则该属性值为True。Boolean类型，可读写。
EnablePivotTable
如果当仅限于用户界面保护处于打开状态时，启用数据透视表控件和操作，则该属性值为True。Boolean类型，可读写。
EnableSelection

第5章 Worksheet(工作表)对象

3、使用ActiveSheet属性引用活动工作表
• 使用ActiveSheet属性可以返回当前活动工作表
MsgBox
工作表的添加与删除
• 在工作簿中添加工作表使用Add方法，语法如下 • expression.Add(Before, After, Count, Type)
End Sub
三、工作表的添加与删除
•3.1、工作表对象的Delete方法删除指定的对象，语法如下：
expression.Delete
• 参数expression是必需的，该表达式返回“应用于”列表中的对象之一
• 例如：Sheet7.Delete
3.2、工作表中插入行
• 在工作表的中插入空行，需要使用Insert方法
限制工作表的滚动区域
• 在VBE中的工程管理窗口选择相应工作表对象，然后在其属性窗口中设置ScrollArea属性，即可限制工作表中滚动的区域，如图所示。
• 但是Excel不会记忆该项设置，当再次打开该工作簿时， ScrollArea属性将被重置，用户必须重新设置ScrollArea属性才能限制工作表中的滚动区域
•如果需要取消滚动区域的限制，可以将ScrollArea属性值设置为空
Sheet1.ScrollArea = ""
四、工作表的保护与解除保护
• 在实际应用中，为了防止在使用过程中修改或无意中修改这些设置。
• 方法１：一般使用Excel的工作表保护功能来保护这些设置。
Sub Prot () Sheet5.Cells(1, 4) = 100 Sheet5.Protect Password:="12345" End Sub

worksheets对象方法

worksheets对象方法使用worksheets对象方法可以对Excel工作表进行各种操作，包括创建、删除、重命名、复制、隐藏、显示等。

本文将介绍几个常用的worksheets对象方法，帮助读者更好地使用Excel。

一、创建工作表使用worksheets对象的add方法可以在工作簿中创建新的工作表。

例如，调用add方法并指定工作表名称，即可创建一个名为"Sheet1"的新工作表。

另外，还可以通过指定位置参数来指定新工作表的位置。

二、删除工作表使用worksheets对象的delete方法可以删除指定的工作表。

例如，调用delete方法并指定要删除的工作表名称，即可删除该工作表。

需要注意的是，删除工作表时会丢失该工作表中的所有数据，因此在删除之前应该先备份重要的数据。

三、重命名工作表使用worksheets对象的rename方法可以修改工作表的名称。

例如，调用rename方法并指定要修改的工作表名称和新名称，即可将该工作表重命名为新名称。

需要注意的是，工作表的名称不能与其他工作表的名称重复。

四、复制工作表使用worksheets对象的copy方法可以复制指定的工作表。

例如，调用copy方法并指定要复制的工作表名称和目标位置，即可将该工作表复制到目标位置。

复制后的工作表将具有相同的数据和格式。

五、隐藏和显示工作表使用worksheets对象的visible属性可以设置工作表的可见性。

例如，将visible属性设置为False可以隐藏工作表，将visible属性设置为True可以显示工作表。

需要注意的是，隐藏工作表后，用户将无法直接看到该工作表，但仍可以通过VBA代码等方式进行访问。

六、移动工作表使用worksheets对象的move方法可以移动工作表到指定位置。

例如，调用move方法并指定要移动的工作表名称和目标位置，即可将该工作表移动到目标位置。

移动后，工作表在工作簿中的位置将发生相应的变化。

excel 对象层次结构

excel 对象层次结构Excel对象层次结构是指Excel中各个对象之间的关系和层次。

在Excel中，对象层次结构包括工作簿（Workbook）、工作表（Worksheet）、单元格（Cell）、行（Row）和列（Column）等。

首先是工作簿（Workbook），它是Excel文件的最高层次对象。

一个Excel文件可以包含多个工作簿，每个工作簿可以包含多个工作表。

其次是工作表（Worksheet），它是工作簿的子对象。

一个工作簿可以包含多个工作表，每个工作表由行和列组成，形成一个二维表格的结构。

在工作表中，最基本的对象是单元格（Cell）。

每个单元格由一个字母和一个数字组成，字母代表列，数字代表行，例如A1、B2等。

单元格是Excel中最小的数据单位，可以用于存放文本、数值、日期、公式等类型的数据。

单元格所在的行（Row）和列（Column）也是Excel的对象。

行是由一系列单元格组成的水平排列，用数字表示，例如第1行、第2行等。

列是由一系列单元格组成的垂直排列，用字母表示，例如A列、B列等。

行和列可以用来调整单元格的布局和样式。

除了上述对象之外，Excel还有其他一些对象，如图表、PivotTable和宏等。

图表（Chart）是用来可视化数据的对象，可以将数据以柱状图、折线图、饼图等形式展示出来。

PivotTable是一种数据透视表，可以对数据进行汇总和分析。

宏（Macro）是一段用VBA语言编写的程序代码，可以实现自动化操作和批量处理。

在Excel对象层次结构中，各个对象之间存在一定的关系。

工作簿包含工作表，工作表包含行和列，行和列包含单元格。

可以通过操作这些对象，来实现对Excel文件的创建、编辑和处理。

Excel对象层次结构包括工作簿、工作表、单元格、行和列等对象，它们之间存在一定的关系和层次。

通过对这些对象的操作，可以实现对Excel文件的各种操作和处理。

掌握Excel对象层次结构的概念和使用方法，可以提高Excel的应用效率和数据处理能力。

工作表对象(Worksheet)

工作表对象（Worksheet）
基础练习下面的代码可以练习如何新建、命名、激活、移动、隐藏、显示、删除工作表
注释在右边，左右滑动查看图片Worksheets.Add有4个参数(Before,After,Count, Type)参数说明：Before：指定工作表的对象，新建的工作表将置于此工作表之前。

After ：指定工作表的对象，新建的工作表将置于此工作表之后。

Count：要添加的工作表数。

默认值为1。

Type：指定工作表类型。

可以为下列XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet或xlExcel4IntlMacroSheet。

如果基于现有模板插入工作表，则指定该模板的路径。

默认值为xlWorksheet。

综合案例练习将多个工作表内容汇总到一张工作表中。

Worksheet对象的方法

前言:温馨小提示：本篇文档是通过查阅资料精心整理编制的，希望能帮助大家解决实际问题，文档内容不一定完美契合各位的需求，请各位根据需求进行下载。

文档下载后可自己根据实际情况对内容进行任意改写，确保能够帮助到大家。

除此之外，本店铺还提供各种文档材料，涉及多个领域例如活动文案、工作方案、读后感、读书笔记等，大家按需搜索查看！Warm tip:This document is prepared by consulting information carefully. Hope to help you solve practical problems. The content of the document is not necessarily perfect to match your needs. Please download according to your needs. Then you can rewrite the content according to the actualsituation to ensure that we can help. In addition, the store also provides a variety of documents and materials, covering areas such as copywriting for activities, work plans, reflections, reading notes, etc.正文如下:Worksheet对象的方法Worksheet对象的方法Worksheet对象的方法一、创建Worksheet对象（一）使用Excel应用程序创建在Microsoft Excel中创建Worksheet对象是一个直观的过程。

用户可以直接通过Excel的用户界面进行创建。

以下是基本步骤：打开Microsoft Excel应用程序。

ExcelVBA入门（6）-Worksheet对象常用方法事件

ExcelVBA⼊门（6）-Worksheet对象常⽤⽅法事件1. 激活⼯作表 ActiveDim ws As WorksheetSet ws = Application.WorkBooks(1).Worksheets(2)ws.Activate激活了第⼀个⼯作簿的Sheet22. 复制⼯作表 Copy([before], [after])将当前⼯作表复制⼀份, 名字为"当前⼯作表名字(2)"Dim ws As WorksheetSet ws = Application.ActiveWorkbook.Worksheets(1)ws.Copy after:=Worksheets(1)该代码将Sheet1的内容拷贝到新表Sheet1(2)如果不指定before或after, 同样会⽣成⼀个新表, 注意, before和after不能同时使⽤另外, ⼯作表的复制可以跨⼯作簿之间进⾏Dim wbSrc As WorkbookDim wbDes As WorkbookDim ws As WorksheetSet wbSrc = Application.WorkBooks(1)Set wbDes = Application.WorkBooks.AddSet ws = wbSrc.Worksheets(1)ws.Copy after:=wbDes.Worksheets(1)将当前⼯作表的内容复制到新⼯作簿的第2个⼯作表3. 将剪贴板的内容粘贴到⼯作表Paste([destination], [link])Dim ws As WorksheetSet ws = Application.ActiveWorkbook.ActiveSheetws.range("A1:A3").Copyws.Paste destination:=ws.range("F1:F3")先将A1:A3的内容复制到剪贴板, 然后利⽤Paste⽅法, 粘贴到F1:F3区域, 亦或者直接:ws.range("A1:A3").Copyws.Paste destination:=ws.range("F1")Worksheet事件:和Workbook的事件类似, 在"⼯程资源管理器"中, 双击⼀个⼯作表, 在右边代码区上⾯选择Worksheet, 然后再选择相应的事件选择⼀个事件会⾃动列出事件代码常⽤的操作⼯作表的⽅法1. 访问⼯作表两种⽅式: a. 根据索引号(从1开始) b.根据⼯作表名称Dim wb As WorkbookDim ws As WorksheetDim wsCount As IntegerDim i As IntegerDim sheetnames() As StringSet wb = Application.WorkBooks(1)wb.ActivatewsCount = wb.Worksheets.CountReDim sheetnames(1 To wsCount)PrintInfo "当前⼯作簿共包含" & CStr(wsCount) & "个⼯作表"For i = 1 To wsCountSet ws = wb.Worksheets(i)Debug.Print Space(5) & sheetnames(i) = NextDebug.PrintDebug.Print "使⽤Sheets集合按名称访问⼯作表"For i = 1 To wsCountSet ws = wb.Worksheets(sheetnames(i))Debug.Print Space(5) & NextSet ws = NothingSet wb = Nothing例⼦⽐较简单, 说明⼀下Space(5)的意思是五个空格, CStr()是把参数转换为字符串核⼼就是 Worksheets(1) 和Worksheets("Sheet1") 是等效的 (默认没有改⼯作表名字⽽且没有移动⼯作表顺序的情况下)另外在遍历⼯作表的时候使⽤的是Worksheets属性, 如果使⽤Sheets属性则需要判断⼯作表的类型是普通⼯作表还是图表⼯作表根据Type属性判断: If ws.Type = xlWorksheet Then2. 判断⼯作表是否存在判断⼯作表是否存在就是⽤指定的名称遍历所有⼯作表, 没什么难点Dim wb As WorkbookDim ws As WorksheetDim i As IntegerDim count As IntegerDim flag As BooleanDim findName As StringfindName = "Sheet7"Set wb = Application.ActiveWorkbookcount = wb.Worksheets.countflag = FalseFor i = 1 To countIf wb.Worksheets(i).name = findName Thenflag = TrueExit ForEnd IfNextIf flag ThenMsgBox "存在" & findNameElseMsgBox "不存在" & findNameEnd IfSet ws = NothingSet wb = Nothing这段代码不⽤解释了3.新建⼯作表 Application.ActiveWorkbook.Worksheets.Add([Before], [After], [Count], [Type]) As Object新建⼯作表和之前的新建⼯作簿类似Dim ws As WorksheetSet ws = Worksheets.AddDebug.Print 完整写法Set ws = Application.ActiveWorkbook.Worksheets.Add(before:=Worksheets(8), count:=2, Type:=xlWorksheet)意思是在第8个表前加⼊两个⼯作表同样的Before和After不能同时使⽤4. 重命名⼯作表直接设置⼯作表的name属性即可, 但是要先判断该名称是否已经存在, 否则会报错为了简单说明, 这⾥就不作判断了Dim ws As WorksheetSet ws = Application.WorkBooks(1).Worksheets(1) = "SheeT1"将"Sheet1"重命名为了"SheeT1"5. 移动⼯作表Dim wb As WorkbookDim ws As WorksheetSet wb = Application.WorkBooks(1)wb.ActivateSet ws = wb.Worksheets(1)ws.Move after:=ws.NextSet wb = NothingSet ws = Nothing道理和复制⼀样, ws.Move after:=ws.Next 将第⼀个⼯作表向后移动⼀次同理, 移动也可以跨⼯作簿进⾏Dim wbSrc As WorkbookDim wbDes As WorkbookDim ws As WorksheetSet wbSrc = Application.WorkBooks(1)Set wbDes = Application.WorkBooks.AddSet ws = wbSrc.Worksheets(1)ws.Move after:=wbDes.Worksheets(1)将当前⼯作簿的Sheet1 移动到新的⼯作簿的Sheet1后6. 删除⼯作表注意: 删除前请保存重要数据Dim wb As WorkbookDim ws As WorksheetDim sheetName As StringDim count As IntegerSet wb = Application.WorkBooks(1)Set ws = wb.Worksheets(1)sheetName = count = wb.Worksheets.countIf count > 1 ThenApplication.DisplayAlerts = Falsews.DeleteMsgBox "成功删除" & sheetName, vbOKOnly, "删除⼯作表"Application.DisplayAlerts = TrueElseMsgBox "⼯作表" & sheetName & "是⼯作簿的最后⼀张表, ⽆法删除", vbCritical, "删除⼯作表" End IfSet wb = NothingSet ws = Nothing。

worksheet对象

Sheets,worksheets,worksheet,chart8.1使用名称引用工作表、打印工作表的Name属性值sheet8.2使用名称引用工作表worksheets(name),sheets(name)8.3使用索引号引用工作表worksheets(index),sheets(index)8.4获取当前工作表的索引号(Index属性) activesheet.index属性8.5选定活动工作簿中的三张工作表(引用多张工作表) array函数8.6在立即窗口中打印工作簿中所有工作表的名称8.7使用对象变量引用工作表8.8新建单个空白工作表worksheets.add8.9新建多张工作表count参数8.10在工资工作表前新建一个工作表before参数8.11在工资工作表后新建一个工作表8.12在工作表最后一个位置新建一个工作表after:=sheets(sheets.count)8.13在工作表最前新建一个工作表8.14为新建的单个工作表命名set mySh=sheets.add =”我爱吴晓星”8.15为活动工作表命名=”工资”8.16新建工作表并分别命名为“高一1”~ “高一10”8.17新建工作表以当前月份命名name=Format(Now(), "mmmm_yyyy")8.18删除单个工作表worksheets(indes)/sheets(name).delete8.19删除多个工作表删除8.16中新建的表8.20选取指定工作表.select方法8.21设置活动工作表.activate方法8.22选取多个工作表sheets(array(1,2)).select; sheets(array(“高一1”, “高一2”).Select 8.23选取全部工作表sheets.select8.24当工资工作簿中的sheet1被选取时，显示选取消息。

For each sh In Workbooks(“工资.XLS”).Windows(1).SelectedSheets8.25隐藏单个工作表sheets(i).visible8.26隐藏多个工作表sheets(array(,,,)).visible8.29隐藏特定名称的工作表8.27取消隐藏多个工作表sheets(array(,,,)).visible8.28转换显隐状态worksheets(index).visible=Not worksheets(index).visible8.30复制工作表，放在指定工作表前sheet1.copy before8.31复制工作表，放在全部工作表后sheet1.copy after8.32复制工作表到新簿sheets(i).copy/move8.34复制工作表到指定工作簿sheets(i).Move Before:=Worbooks(“name.xlsx”).Sheets(i) 8.35复制所有工作表到新工作簿activeworkbook.sheets.copy8.36只把一个表中的数值复制到另一个新工作簿中，并保存8.37把多个工作表的数值复制到新建的工作簿，并保存8.38移动工作表到指定表前sheets(i).move before8.39移动工作表到指定表后sheets(i).move after8.40移动工作表到新工作簿sheets(i).move8.41复制和移动工作表综合应用8.42保护单个工作表sheet1.protect passord8.43保护所有工作表for each sht in sheets8.44解除对单个工作表的保护sheet1.unprocted password8.45解除对所有工作表的保护for each sht in sheets8.46活动工作表打印activesheet.printout8.47打印方向设置worksheets(i).pagesetup.orientation=xlLandscape worksheets(i).printout 8.48设置第一张工作表的所有页边距worksheets(1).pagesetup.leftmargin/rightmargin P178 8.49打印页眉，设置字体，页眉第2行标题(副标题)取自工作表2A2单元格内容。