vba

一、进入vba

进入vba.png

二、开始vba

Sub 一个随便起的名字()

[代码内容]

End Sub

举个栗子：

Sub aa()

Range("A1") = 10

End Sub

点击运行后运行，如下图

运行.png

这是表格第一行第一列的内容为10

三、弹出框

Msgbox 内容

举个栗子：

Sub hf()
MsgBox "HF"
End Sub

结果如下：

Msgbox.png

四、调用表和单元格

1、调用表

Sheets("表名")或者Application.ActiveSheet

Sheets("表名")：指定用哪个表

Application.ActiveSheet：调用当前你在使用的那个表

2、调用单元格

对单元格的调用：Range("单元格")，例如Range("A1")

举个栗子吧：
现有两个表 Sheet1 和 Sheet2

Sheet1.png Sheet2.png

将Sheet2的B2 赋值给 将Sheet1 的A1
代码如下：

Sheets("Sheet1").Range("A1").Value = Application.ActiveSheet.Range("B2").Value

结果：

运行后的Sheet1.png

五、数据类型

常见的有数值型，字符型，日期型，如果不先定义直接赋值的话，VBA会自己猜一个

Range("A1").Value=5 ->数值型

Range("A1").Value="ABC" ->字符型

Range("A1").Value="2015/9/25" ->日期型

但定义一个新变量更规范的方式是： Dim x as 数据类型

常用的有integer（整数）、single（单精度数值）、string（字符串）、date（日期）

六、IF......Then......End If 语句

简单的IF语句可以写成一行：

If a>=0 Then b="True" Else b="False" End If

也可以加入and或者or进行逻辑判断：

If a>0 and b>0 Then c="True" Else c="False" End If

If a>0 or b>0 Then c="True" Else c="False" End If

多层逻辑判断可用括号进行辅助：

If a>0 and (b>0 or c>0) Then d="True" Else d="False" End If

举个栗子：
如果Sheet1的A2值 小于100 那么 Sheet1的B2值 赋值为10

sheet1运行前.png

Sub hf()
If Sheets("Sheet1").Range("A2").Value < 100 Then
Sheets("Sheet1").Range("B2").Value = 10
End If
End Sub

Sheet1运行后.png

七、For语句

常用于实现循环

Example:

For i= 1 To 10

Range("A" & i).Value=i

Next i

运行结果就是 A1 到 A10 表格单元的值是 1 到 10

小老弟注意（&是拼接符）

for语句要用的灵活些哈

八、小技巧

Selection.Rows.Count // 当前选择行的总数
Selection.Row // 选择的行号
Range("A65536").End(3).Row // 文档中一共多少行

九、 按钮

添加按钮步骤：

第一步：

添加按钮.png

ActionX控件 第一个

button.png

第二步：

双击按钮，进入编辑取

button.png

Private Sub CommandButton1_Click()
。。。。
End Sub

这就是button控件的执行函数

第三步：

添加内容

Private Sub CommandButton1_Click()
MsgBox "HF is best"
End Sub

结果如下：

button运行结果.png

小老弟要灵活运用呦

第四步：

修改按钮名字及函数名

1、点击设计模式（如图）

修改名字.png

2、右键点击按钮

3、点击命令按钮 对象

4、点击编辑

5、再次点击设计模式（1、点击设计模式）

结果如图：

修改后的结果.png

第五步：

修改函数名

1、点击设计模式

2、右键点击按钮

3、属性

4、（名称） 改为 你想要的函数名

如图：

修改函数名.png

这是我们再看vba

修改函数名的vba.png