虽然两个方法都可以选中工作表,但是具有如下的区别:
-
如果工作表是隐藏的,
Activate
方法可以正常运行,而
Select
方法将会出现错误。
-
如果需要同时选中多张工作表,只能使用
select
方法。
-
使用
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")