VBA基础2

使用VBA编辑器需要用Alt+F11打开
或者VB编辑器打开
可以在这里插入模块，进行编程，可以插入模块

sub过程语法

sub 宏名()
语句......
End sub

Sub 案例一()MsgBox "你好，美女"End Sub

MsgBox "你好，美女"
## 打印输入函数

删除单元格>操作单元格对象：Range
复制工作表>操作工作表对象：Worksheets
新建工作簿>操作工作簿对象：Workbooks
例如：
workbooks("学生数据").worksheets("六年级1班").Range("C3")
"."意思是：的（属性调用）
Range("C3")：C3单元格区域
引用正在使用的对象是会省略掉上一级对像

对单元格进行赋值操作

连续赋值

单元格“D3”被填入100的方法

Sub 赋值()
Range("D3").Value = 100
Range("C3").Value = “赋值”			
Range("A1:B10").Value = 100  #
#  自动填入
End Sub

不连续赋值

Sub 多个区域赋值()
Range("E3,F3").Value = 888
End Sub

cells （行，列）

只能引用单个单元格

cells(5,6)  //5是行号，6是列号
cells(5,"D")

或者：

Sub cells引用()
[B2].Value = 666
End Sub

行引用rows

行引用

Sub 行引用()
Rows.Select
End Sub#整个表选中

Sub 行引用()
Rows（4）.Select
End Sub#选中第四行

Sub 行引用()
Rows("4:6").Select
End Sub#选中第四行到第六行

Sub 行引用()
Rows("4:6").Rows(1).Select
End Sub#选中第4行到第6行的第4行被选中了

列引用 （columns）

Sub 列引用()
Columns(4).Select
End Sub
#选中第4列

Sub 列引用()
Columns("F:I").Columns(2).Select
End Sub
#选中F到I列第二列（即G列）

offset位移属性

range("B1").offset(5,1).select
#选中的B1单元格，向右偏移5个单位，向上偏移1个单元格
参数为正数：向上或者向右偏移n个单元格
参数为负数：向下或者向左偏移n个单元格
0不偏移

End属性（指定返回）

行或列的首末端单元格

常量名称	单元格
xlToLeft	最左
xlToRight	最右
xlToUp	最上
xlToDown	最下

range("D5").End(xlToDown).select##初选D5单元格，来到了D5单元格的最下一个单元格