'这个工作簿.工作表Sheet1.单元格A1.选择 '等同于: With ThisWorkbook.Sheets("Sheet1").Parent.Activate '这个对象的父对象即ThisWorkbook.激活.Select '这个对象即ThisWorkbook.Sheets("Sheet1").选择.Range("A1").Select '这个对象的子对象Range("A1").选择 'Range("A1")也可以写成[A1]End With 'With就...
Sub test() Dim sht_slea As Worksheet Dim sht_result As Worksheet Dim sht_para As Worksheet Set sht_slea = Worksheets("SLEA") Set sht_result = Worksheets("Check_Result") Set sht_para = Worksheets("Parameter") End Sub 如上,用Dim 变量名 As Worksheet的格式来定义一个工作表对象。用Set ...
在With语句块中,我们可以省略对对象的引用,直接使用”.”来访问对象的属性和方法。同时,在With语句块中编写的代码都是针对该对象进行操作的。 With语句案例 下面我们通过一个实例来说明With语句的用法。假设我们要将某一列的数据进行累加,并将结果输出到另一列。 Sub SumColumn() Dim ws As Worksheet Dim rng As...
Dim ws As Worksheet With Application If bSwitchOff Then ' OFF lCalcSave = .Calculation bScreenUpdate = .ScreenUpdating .Calculation = xlCalculationManual .ScreenUpdating = False .EnableAnimations = False ' '关闭所有工作表的显示分页符 ' 对于ActiveWorkbook.Worksheets 中的每个 ws.DisplayPageBreaks = F...
End With Close #k ' 关闭文件 Close #f2 ' 关闭文件 End Sub 3) Access 文件 使用VBA 来访问数据库,其实就是通过一定方法借助数据库引擎来访问,关键是使用什么方法来使 用引擎。目前访问ACCESS 数据库常用的有DAO 和ADO 方法,DAO 就是Database Access Object(数据库 ...
DimwshAsWorksheet, nAsByte, mAsString ForEachwshInWorksheets'取当前工作表集合中的每个成员 n = n + 1 Sheet1.Cells(n, 3) = wsh.Name Next EndSub 1.15、FOR...NEXT语句 FOR...NEXT也是循环语句,与之前的DO...LOOP不同之处在于,for next有一个内置计数器 ...
with语句的使用能够提高代码的效率和可读性,减少代码的重复性,是VBA编程中不可缺少的工具。 6. with语句的示例 以下是一个应用with语句的示例: ```VBA Sub Example() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1") With ws.Range("A1:A10") .HorizontalAlignment = xlCenter .Vertical...
with <对象> [语句代码] end with 结构相对简单,下面我们就将上节字体属性代码用with语句来修改如下: 代码中间所有属性的对象worksheets(1).range("b2").font 单独列出来,然后另起一行。加上英文逗号和属性,如.name等,代码如下: Sub test() With Worksheets(1).Range("b2").Font ...
WITH 语句的最基本的格式为: WITH 象序 END WITH 其中,“对象”可以是 Excel 表格中的任何一个元素,比如格、 worksheet、ranges 等;而“程序”可以是任何一个 VBA 程序,例如 赋值,排序,计算等等。 使用 WITH 语句的优点有很多,首先,它可以提高程序的可读性, 使程序的逻辑更加清晰明了。其次,它还可以节约键盘...
如上,用Dim 变量名 As Worksheet的格式来定义一个工作表对象。用Set 变量名 = Worksheets("表名")的格式来把工作表对象赋值给指定的变量。然后就可以用这个变量来引用或操作对应工作表中的对象和数据了。 1.2 按表顺序引用 顺序引用,即按工作表出现在工作薄中的顺序从左到右,依次用1、2、3.……来引用。格式...