蓝色幻想VBA分析和总结.docxVIP

兰色幻想 VBA80 集第 1 集：宏与 VBA. 2 兰色幻想 VBA80 集第 2 集：VBA 中的语句、对象、方法与属性 4 兰色幻想 VBA80 集第 3 集：循环语句 5 兰色幻想 VBA80 集第 4 集：判断语句 7 兰色幻想 VBA80 集第 5 集：VBA 变量 Dim m As Integer 8 兰色幻想 VBA80 集第 1 集：宏与 VBA VBA 中的对象其实就是我们操作的具有方法、属性的excel 中支持的对象Excel 中的几个常用对象表示方法 1、工作簿 Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N 个工 作簿 Workbooks (工作簿名称) ActiveWorkbook 正在操作的工作簿 ThisWorkBook 代码所在的工作簿 2、工作表 Sheets(工作表名称) Sheet1 表示第一个插入的工作表,Sheet2 表示第二个插入的工作表.... Sheets(n) 表示按排列顺序，第n 个工作表 ActiveSheet 表示活动工作表，光标所在工作表 worksheet 也表示工作表，但不包括图表工作表、宏工作表等。 3、单元格 cells 所有单元格 Range (单元格地址) Cells(行数,列数) Activecell 正在选中或编辑的单元格 Selection 正被选中或选取的单元格或单元格区域 一、VBA 属性 VBA 属性就是 VBA 对象所具有的特点表示某个对象的属性的方法是 对象.属性=属性值 Sub ttt() Range(a1).Value = 100 End Sub Sub ttt1() Sheets(1).Name = 工作表改名了 End Sub Sub ttt2() Sheets(Sheet2).Range(a1).Value = abcd End Sub Sub ttt3() Range(A2).Interior.ColorIndex = 3 End Sub 二 、VBA 方法 VBA 方法是作用于 VBA 对象上的动作 表示用某个方法作用于 VBA 的对象上，可以用下面的格式： Sub ttt4() 牛排.做 熟的程度:=七成熟 Range(A1).Copy Range(A2) End Sub Sub ttt5() Sheet1.Move before:=Sheets(Sheet3) End Sub 兰色幻想 VBA80 集第 2 集：VBA 中的语句、对象、方法与属性 VBA 语句 一、宏程序语句 运行后可以完成一个功能Sub test() 开始语句 Range(a1) = 100 End Sub 结束语句 二、函数程序语句 运行后可以返回一个值Function shcount() shcount = Sheets.Count End Function 三、在程序中应用的语句 Sub test2() Call test End Sub Sub test3() For x = 1 To 100 for next 循环语句 Cells(x, 1) = x Next x End Sub 兰色幻想 VBA80 集第 3 集：循环语句 Sub 判断 1() 单条件判断 If Range(a1).Value 0 Then Range(b1) = 正数 Else Range(b1) = 负数或 0 End If End Sub Sub 判断 2() 多条件判断 If Range(a1).Value 0 Then Range(b1) = 正数 ElseIf Range(a1) = 0 Then Range(b1) = 等于 0 ElseIf Range(B1) = 0 Then Range(b1) = 负数 End If End Sub Sub 多条件判断 2() If Range(a1) And Range(a2) Then Range(a3) = Range(a1) * Range(a2) End If End Sub select 判断 Sub 判断 1() 单条件判断Select Case Range(a1).Value Case Is 0 Range(b1) = 正数 Case Else Range(b1) = 负数或 0 End Select End Sub Sub 判断 2() 多条件判断Select Case Range(a1).Value Case Is 0 Range(b1) = 正数 Case Is = 0 Range(b1) = 0 Case Else Range(b1) = 负数 End Select End Sub Sub 判断 3() If R