EXCEL之VBA
学习笔记
                   
                 
  姓名：刘磊
                  时间：2015年9
第一章  VBA基础知识
1：代码帮助：  F1
2：代码换行：  下划线+空格+回车
3：.常用代码操作excel中的对象
  （1）、工作簿（Workbooks）
      Workbooks（N）第N个工作簿
      Workbooks ("工作簿名")
      ActiveWorkbook 活动工作簿
      ThisWorkBook 代码所在工作簿
   
  （2）、工作表（Worksheets）
      Sheets(N) 第N个工作表
      Sheets("工作表名")
      SheetN 第N个工作表
      ActiveSheet 活动工作表
      worksheets 与 Sheets的区别
     
  （3）、  单元格（cells）
      Range ("单元格地址")
      Cells(行号,列号)
      [A1]单元格简写
      Activecell 活动单元格
      Selection 当前被选取的区域
4：常量与变量
    （1.）常量：常量是定义了之后就不做变化了。
      常量定义格式：Const 常量名= 常量表达式
      （2）.变量:在定义之后还能再次赋值
      变量定义格式：Dim 变量 As 变量类型
5：数据类型
      （1.）VBA中的常见数据类型：
                      类型          注释        简写    占用内存
                      Integer        整型        %      2Byte
                      Single        单精度      !        4Byte
                      Double        双精度      #        8Byte
                      Long        长整型      &        4Byte
                      String        字符型      $      定长或变长( 变长字符串最多可包含大约   
                  20 亿 ( 2^31)个字符。 定长字符串可包含 1 到大约 64K ( 2^16 ) 个字符。)
                      Currency  货币型      @    8Byte
6:if条件语句
 
            1.单行形式1（If...Then）
            If 条件判断 Then 条件成立结果
            注意 在单行形式中，按照 If...Then 判断的结果也可以执行多条语句。
            所有语句必须在同一行上并且以冒号分开?
例子:
Sub test()
If 1 > 10 Then a = a + 1: b = 1 + a: c = 1 + b
End Sub
            2. 单行形式1（If 条件判断 Then 条件成立 Else 条件不成立）
例子:
Sub test2()
If 1 > 1 Then MsgBox "yes" Else MsgBox "no"
End Sub
            3.块形式（If...Then…End）
            If 条件判断 Then
            条件成立结果
            End If
例子:
Sub test3()
If 11 > 10 Then
a = 1 + a
b = 1 + a
c = 1 + b
End If
End Sub
            4.块形式的If嵌套
            If 条件判断 Then
            成立时的结果
            ElseIf 条件判断 Then
            成立时的结果
            ……
            Else
            不成立时的结果
            End If
例子:
            Sub 等级判断()
                If Sheet1.Range("b1") >= 90 Then
                    Sheet1.Range("b2") = "优"
                ElseIf Sheet1.Range("b1") >= 80 Then
                    Sheet1.Range("b2") = "良"
                ElseIf Sheet1.Range("b1") >= 70 Then
                    Sheet1.Range("b2") = "中"
                Else
                    Sheet1.Range("b2") = "差"
                End If
            End Sub
7：select语句用于判断选择
  Select case
    Case 1
    Case 2
    …..
    Case  else
  End select
8：循环语句
  （1）：do loop语句
        Do
        …..
        Loop
(2):do while  loop语句
  Do  while  (条件成立时候循环)
 
  Loop
（3）do until loop 语句
  Do until (直到条件成立)
 
  Loop
[注]：while与until不但可以放在DO后面，也可以放在LOOP后面事实上有时在循环的最后一行进行判断，更具有意义。
Do [{While | Until} 表达式]
[执行的一条或多条语句]
[Exit Do]
[执行的一条或多条语句]
Loop
---------------------------------------------------------------------------------
while：当这个条件为True时就  循环
until：直到这个条件为True时就 跳出循环
---------------------------------------------------------------------------------
或者可以使用下面这种语法:
Dovba自学好学吗
[执行的一条或多条语句]
[Exit Do]
[执行的一条或多条语句]
Loop [{While | Until}表达式]
---------------------------------------------------------------------------------
用Do…Loop循环要注意的几点:
1.  While与Until是放在Do后面还是Loop后面，取决于是先判断再循环，还是先循环再判断。前者则在Do后面，后者则在Loop后面。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。