VBA嘘嘘嘘

 

什么是VBA？它有什么作用？

 A.实现Excel中没有实现的功能。

 B.提高运行速度。

 C.编写自定义函数。

 D.实现自动化功能。

 E.通过插入窗体做小型管理软件。

VBA在哪里存放的？怎么运行？

 A.模块中

   在Excel 2010中若没有“开发工具”项，通过“文件”——“选项”——“自定义功能区”——选中“开发工具”——“确定”（图1）。

（注：为了提高word2010中插入的图片的质量，“文件”——“选项”——“高级”——选中“不压缩文件图像质量”——“确定”。）

         

                                   图1 “开发工具”开启页面                                                          图2 “模块1”中的代码

B.运行宏

单击向右的绿三角，即可以运行。

       

                       图3 运行界面                                                                                        图4  运行结果

3.什么是宏？宏和VBA有什么关系？

 宏（Macro)，是一种批量处理。

 宏通常既可以录制又可以手动编程，而VBA一般是通过编程完成。宏可以和VBA相结合使用。

4.录制一个宏。

  A.“开发工具”——“录制宏”——宏名为“输入100”——“录制”——在A1单元格中输入100——“停止”。

  B.“宏”——选中“输入100”——“执行”。

        

              图5 选中“录制宏”                                         图6 在单元格中输入100                                  图7  选中“停止录制”

      

                  图8 单击“宏”并选中“输入100”—“执行”                                                图9 执行结果

5.编写一个宏。

  A.“开发工具”——“Visual Basic”——“视图”——“工程资源管理器”——“插入”——“模块”——在右侧输入代码：

         ——“保存”。

  B. 单击绿右三角即可运行。或者关闭VBA编辑窗口，单击“宏”——选中“test”——“执行”。

            

                             图10 单击绿右三角运行                                                 图11 运行结果

6.VBA语句

  A.宏程序语句。

   

  B.函数程序语句

  

C.在程序中应运语句。

  

D.循环语句。

  

7.VBA对象

  A.工作簿对象

     Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N个工作簿

     Workbooks ("工作簿名称")

     ActiveWorkbook 正在操作的工作簿

     ThisWorkBook ‘代码所在的工作簿

  B.工作表对象

     Sheets("工作表名称")

     Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表....

     Sheets(n) 表示按排列顺序，第n个工作表

     ActiveSheet 表示活动工作表，光标所在工作表

     worksheet 也表示工作表，但不包括图表工作表、宏工作表等。

  C.单元格对象

     cells 所有单元格

     Range ("单元格地址")

     Cells(行数,列数)    Range（“B3”）和Cells（3,2）表示相同的单元格

     Activecell 正在选中或编辑的单元格

     Selection 正被选中或选取的单元格或单元格区域

8. VBA属性

    VBA属性就是VBA对象所具有的特点，表示某个对象的属性如下：

         对象.属性=属性值

    Sub ttt()

      Range("a1").Value = 100     ’给单元格填充数值100

    End Sub

 

    Sub ttt1()

      Sheets(1).Name = "工作表改名了"   ’给工作簿重命名为“工作表改名了”

    End Sub

 

    Sub ttt2()

       Sheets("Sheet2").Range("a1").Value = "abcd"   ’给sheet2工作表的a1单元格填充字符串“abcd”

    End Sub

    

Sub ttt3()

 ’单元格的内部的填充色

      Range("A2").Interior.ColorIndex = 3  ’将A2单元格的背景颜色设置为红色

      Range("A2").Font.ColorIndex = 3      ’将A2单元格的字体颜色设置为红色

    End Sub

 

9.VBA方法

   VBA方法是作用于VBA对象上的动作,表示用某个方法作用于VBA的对象上，可以用下面的格式：

   对象.方法  参数名称:=参数值

  Sub ttt4()

      ’Range("A1").Copy Destination:= Range("A2")

      Range("A1").Copy Range("A2")   ’将A1中的内容复制到A2

  End Sub

   

  Sub ttt5()

    Sheet1.Move before:=Sheets("Sheet3")   ’将sheet1表移动到sheet3之前

  End Sub