VBA自已学习笔记.docVIP

MsgBox Workbooks.Count 这是统计打开工作薄的数量 Workbooks后再输入个点(.),就会出现一个下拉框,框中的带小手指的就是工作薄集合的属性,带飞行的小书本的是方法,比如:新建(ADD),关闭(CLOSE),打开(OPEN)就是方法Workbooks.Open Filename:=c:\2.xls 打开指定的工作簿 Workbooks(2.XLS).Activate 把打开的某个工作设为当前工作薄 一次新建多个工作薄: For i = 10 To 13 Workbooks.Add ActiveWorkbook.SaveAs Filename:=c:\ i .xls Next Workbooks.close是关闭所有打开的工作薄 Workbooks(123,XLS).close是关闭指定的工作薄 在VBA中，单元格常用的表示方法有两种，一种是RANGE 如A1在VBA的表示方法是Range(a1) A1:100的表法方法是： Range(A1:A100) 和以前一样,大家先在工作表中插入一个矩形作为执行宏的按纽 在按纽上单击右键,单击指定宏,再单击新建,在VBE窗口中的代码窗口会出现 Sub 矩形1_单击() End Sub 在两句中间输入 Range(a1)=1000 Range可以代表一个单元格区域,也可以代表一个单元格,通过 Range(a1)=1000 也可以看出,它的用法是Range后括号中带上A1 就可以表示我们平时在工作表用到的中的A1单元格了, 它在表示一个连续区域时是这个的,Range(区域的左上角单元格：区域的右下角单元格) 请把刚才的代码再加上一句:Range(a1:a10)=1000 对,如果是不连续的单元格多个区域,它是这样表示的: Range(单元格区域1,单元格区域2) 把刚才的代码替换为: Range(a1:a10,c1:c10,e1:e10) = 100 再试试 [A1]是Range(A1)的简写.二者在用法上没有什么区别,但在输入时有点不同,如当你输入[A1]后加点时,后面不会出现属性和方法列表,而输入Range(A1)加点后则会出现属性列表供你选取 Application.Intersect(Range(a1:a10), Range(a3:c4)).Select 这一句的意思是选中区域A1：A10 和 A3:C4重叠的区域，即两个区域共有的区域，此名代码运行的结果是选中区域A3：A4 注意Intersect 方法是一个非常实用的一个方法，比如我们在动态选取工作表Sheet1A列中已存在数据的区域时，就会用到它。在介绍这个用法前还要介绍一下另一个工作表中非常实用的属性：Usedrange 你可以选试着运行一下:Activecell.usedrange.Select 2003不支持 可用这个ActiveSheet.UsedRange.Select Sheet1.UsedRange.Select 行Activecell.usedrange.Select你会发现，在当前工作表中的所有用过的区域全被选中了。你明白了吗，其实usedrange就是工作表中所有已存在内容的矩形区域，为什么不说是存在内容的单元格呢？原因是比如你在一个空工作表中的B3和C5单元格任意输入一个数值，运行Activecell.usedrange.Select后选取的不只是B3和C5单元格，而是B3:C5单元格区域我们平时在程序中会看到 Activesheet worksheets(sheet1) sheet1 sheets(sheet1) Sheets(1) 顺便说一说他们的区别 Activesheet是指当前活动工作表，即你正在操作的工作表 worksheets(sheet1)等同于sheets(sheet1)是特指工作表Sheet1,注意这时的Sheet1是工作表的名子,就如同员工工资表一样是工作表的名称,而Sheet1和Sheets(1),不管你如何命名，Sheet1和Sheets(1)就只代表第一个工作表，Sheet2和Sheets(2)代表第二个工作表。。。。 下面以一个实例说明如何动态选取一个区域： 要求：无论工作表中所有单元格如何填入，运行程序后要选取A列已用所有区域： 代码如下： Intersect(Range(a:a), Sheets(sheet1).UsedRange).Select Range(a:a)是A列，Sheets(sheet1).UsedRange是工作表sheet1已使用的所有单元格区域，用Intersect求二者的共有区域，结果就是我们所要的A列已用所有区域 其实这中间有个规律：如果你输入的是非数字的字符，即使你删除了，也被当做已用区域（已用