虽然两个方法都可以选中工作表,但是具有如下的区别:

  • 如果工作表是隐藏的, Activate 方法可以正常运行,而 Select 方法将会出现错误。
  • 如果需要同时选中多张工作表,只能使用 select 方法。

2、选中工作簿中的3个工作表

  • 使用 select 方法,格式为: Select(Replace) 。参数为逻辑值,如果该值为 True,则用指定对象替代当前选定对象。如果该值为 False,则延伸当前选定对象以包括任何以前选定的对象。
  • 使用 worksheets 选择所有的工作表。
  • 使用数组选择,可以选择任意个工作表
Sub test ( ) Dim sht As Worksheet For Each sht In Worksheets sht. Select False End Sub Sub test3 ( ) Worksheets. Select End Sub Sub test4 ( ) Worksheets ( Array ( 1 , 2 , 3 ) ) . Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Count = 1 Then MsgBox "你 选中 了:" & Target.Text End If End Sub 1、选定一打开的 工作 薄(abc.xls)windows("abc.xls")2、选定sheet(sheet1) Sheets("Sheet1").Select3、选定单元格 Range("a1").Select或 cells(1,1).selec ActiveSheet.Paste4、选定行(第11行) Rows("11:11").Select5、选定列(H列) Co... 当前区域是指包含有当前单元格的由空行和空列围绕组成的区域。在该区域中,必须保证区域中的每一行或列中至少有一个存在数据的单元格。这节主要是讲解各种 选择 VBA 中的实现,如果在EXCEL中,轻点鼠标就可以实现,那么在 VBA 中是如何实现的呢?我们不可能自己不犯错,就如同你不可能不允许别人犯错,每个人都不是圣人,但即便是圣人,他也有犯错的时候。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“备注:RANGE是单元格,也可以用CELLS(M,N)来代替,其中M是行,N是列。 问题背景:经常性的要对同一 工作 簿中的多个 工作 同时进行格式设置等,那就需要首先先对其进行选定,建立 工作 组,然后才能对进行操作. 问题提出:①如何快速选定同一 工作 簿中所有 工作 ?②如何选定部分 工作 ? 解决代码: ①如何快速选定同一 工作 簿中的所有 工作 ? Sub 快速选定所有 工作 () Dim sht As Worksheet For Each sht In Worksheets ... expression.Select(Replace),expression 必需。该 达式返回以上一个对象。 达式 一个代 Range 对象的变量。 Replace V... 每一个使用过Excel的用户都了解 工作 簿和 工作 这两个概念。 工作 簿,简单地说就是与一个excel文件对应,一个打开的excel文件就是一个 工作 簿。而 工作 工作 簿的一部分,是一个独立的数据区域。一个 工作 簿中可以有很多 工作 ,在较老的office版本中,一个 工作 簿最多可允许建立255个 工作 ,但是目前最新的Office,理论上支持在一个 工作 簿中建立无限个 工作 ,只受电脑的硬件资源的限制。 Excel VBA 开发中, 工作 簿集合WorkBooks , 工作 簿Workbook,图与 集合Sheets '实现 格内 头的筛选 同时实现部分单元格内数据的更改,同时将更改好的信息进行保存到另外一个 工作 薄 '实现逻辑与步骤: '(1)打开目标 工作 ,创建新的 工作 ... 虽然我前面讲过,在 VBA 中操作 工作 薄并不是件明智的事,但有些时候,还是避免不了要这么做。绝大多数情况下,我们要做的是获取到某个 工作 薄对象,并以此来获得其中的 工作 对象,然后再对 工作 中的数据进行处理。而后面这一部分(操作 工作 )在前面已经讲过了,所以本章只讲如何在 VBA 中打开、关闭 工作 薄,以及介绍两个常用的 工作 薄对象。在 VBA 中打开 工作 薄有两种 方法 :显式打开及隐式打开。 1. 显式打开 显式打开即... 'Worksheets("sheet3").Activate 'Worksheets("Sheet3").Range(Cells(1, 1), Cells(6, 8)).Select Dim mySheet As Object Set mySheet = Worksheets("sheet3")