vba程序设计实例精讲

《vba程序设计实例精讲》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、沈阳建筑大学第2章VBA程序设计2.1工作簿和工作表一、创建和打开工作簿Workbooks.Add创建一个新的工作簿SetNewBook=Workbooks.Add建工作簿，用对象变量表示NewBook.SaveAsFilename:="Test.xls"工作簿另存为Workbooks.Open("D:Test.xls")打开工作簿二、引用工作表Worksheets(1).Activate激活第一张工作表Sheets(4).Activate激活四张工作表Worksheets("Sheet1").Activate激

2、活指定的工作表Sheets("Chart1").Activate激活图表“Chart1”2.2单元格和区域一、引用单元格和区域1．用A1样式记号引用单元格和单元格区域表2.1使用Range属性的A1样式引用示例引用含义Range("A1")单元格A1Range("A1:B5")从单元格A1到单元格B5的区域Range("C5:D9,G9:H16")多块选定区域Range("A:A")A列Range("1:1")第一行Range("A:C")从A列到C列的区域Range("1:5")从第一行到第五行的区域Range(

3、"1:1,3:3,8:8")第1、3和8行Range("A:A,C:C,F:F")A、C和F列【例2.6】将工作表“Sheet1”中单元格区域A1:D5的字体设置为加粗。Sheets("Sheet1").Range("A1:D5").Font.Bold=True2.用编号引用单元格【例2.7】将Sheet1上的单元格A6的Value属性设置为10Worksheets("Sheet1").Cells(6,1).Value=10【例2.9】清除活动工作簿中Sheet1上的所有单元格的内容Worksheets("Shee

4、t1").Cells.ClearContents【例2.10】假设工作簿中Sheet1的A列是员工姓名（不超过50人），Sheet2的A列是员工姓名、B列是对应的电话号码。现在需将所有员工的电话号码填写到Sheet1中的B列(注：Sheet1中姓名“李三”在Sheet2中可能为“李三”，中间没有空格)。3.引用行和列【例2.11】将Sheet1上第一行单元格区域的Font对象Bold属性设置为True。Worksheets("Sheet1").Rows(1).Font.Bold=True19/19沈阳建筑大学表2.

5、2Rows和Columns属性的应用示例引用含义Rows(1)第一行Rows工作表上所有的行Columns(1)第一列Columns("A")第一列Columns工作表上所有的列【例2.12】将活动工作表上的第一行、第三行和第五行的字体设置为加粗。SetmyUn=Union(Rows(1),Rows(3),Rows(5))myUn.Font.Bold=True4.用快捷记号引用单元格【例2.13】将工作表“Sheet1”的单元格区域“A1:B5”内容清除。Worksheets("Sheet1").[A1:B5].C

6、learContents5.引用命名区域【例2.14】将当前工作表中名为“AA”的单元格区域设置为30。[AA].Value=30【例2.15】用GoTo方法激活工作簿“Book1.xls”，选定区域“AA”，然后清除该区域内容。Application.GotoReference:="Book1.xls!AA"Selection.ClearContents【例2.16】用ForEach...Next循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过25，就将该单元格的颜色更改为黄色。ForE

7、achcInRange("AA")Ifc.Value>25Thenc.Interior.ColorIndex=27EndIfNextc6.相对于其他单元格来引用单元格【例2.17】将位于活动单元格下一行和右边三列的单元格的内容设置为双下划线格式。ActiveCell.Offset(1,3).Font.Underline=xlDouble7.用Range对象引用单元格【例2.18】将Sheet1上的单元格区域A1:D5赋予该变量，随后用该变量代替该区域对象，填充随机函数。SetmyRange=Worksheets("

8、Sheet1").Range("A1:D5")myRange.Formula="=RAND()"8.引用多个单元格区域【例2.19】清除当前工作表上三个区域的内容。Range("C5:D9,G9:H16,B14:D18").ClearContentsRange("MyRange,YourRange,HisRange").ClearContents【例2.20