一、進(jìn)入vba

進(jìn)入vba.png

二、開始vba

Sub 一個(gè)隨便起的名字()

[代碼內(nèi)容]

End Sub

舉個(gè)栗子：

Sub aa()

Range("A1") = 10

End Sub

點(diǎn)擊運(yùn)行后運(yùn)行，如下圖

運(yùn)行.png

這是表格第一行第一列的內(nèi)容為10

三、彈出框

Msgbox 內(nèi)容

舉個(gè)栗子：

Sub hf()
MsgBox "HF"
End Sub

結(jié)果如下：

Msgbox.png

四、調(diào)用表和單元格

1、調(diào)用表

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

Sheets("表名")：指定用哪個(gè)表

Application.ActiveSheet：調(diào)用當(dāng)前你在使用的那個(gè)表

2、調(diào)用單元格

對(duì)單元格的調(diào)用：Range("單元格")，例如Range("A1")

舉個(gè)栗子吧：
現(xiàn)有兩個(gè)表 Sheet1 和 Sheet2

Sheet1.png

Sheet2.png

將Sheet2的B2 賦值給 將Sheet1 的A1
代碼如下：

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

結(jié)果：

運(yùn)行后的Sheet1.png

五、數(shù)據(jù)類型

常見的有數(shù)值型，字符型，日期型，如果不先定義直接賦值的話，VBA會(huì)自己猜一個(gè)

Range("A1").Value=5 ->數(shù)值型

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

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

但定義一個(gè)新變量更規(guī)范的方式是： Dim x as 數(shù)據(jù)類型

常用的有integer（整數(shù)）、single（單精度數(shù)值）、string（字符串）、date（日期）

六、IF......Then......End If 語(yǔ)句

簡(jiǎn)單的IF語(yǔ)句可以寫成一行：

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

也可以加入and或者or進(jìn)行邏輯判斷：

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

多層邏輯判斷可用括號(hào)進(jìn)行輔助：

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

舉個(gè)栗子：
如果Sheet1的A2值 小于100 那么 Sheet1的B2值 賦值為10

sheet1運(yùn)行前.png

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

Sheet1運(yùn)行后.png

七、For語(yǔ)句

常用于實(shí)現(xiàn)循環(huán)

Example:

For i= 1 To 10

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

Next i

運(yùn)行結(jié)果就是 A1 到 A10 表格單元的值是 1 到 10

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

for語(yǔ)句要用的靈活些哈

八、小技巧

Selection.Rows.Count // 當(dāng)前選擇行的總數(shù)
Selection.Row // 選擇的行號(hào)
Range("A65536").End(3).Row // 文檔中一共多少行

九、 按鈕

添加按鈕步驟：

第一步：

添加按鈕.png

ActionX控件 第一個(gè)

button.png

第二步：

雙擊按鈕，進(jìn)入編輯取

button.png

Private Sub CommandButton1_Click()
。。。。
End Sub

這就是button控件的執(zhí)行函數(shù)

第三步：

添加內(nèi)容

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

結(jié)果如下：

button運(yùn)行結(jié)果.png

小老弟要靈活運(yùn)用呦

第四步：

修改按鈕名字及函數(shù)名

1、點(diǎn)擊設(shè)計(jì)模式（如圖）

修改名字.png

2、右鍵點(diǎn)擊按鈕

3、點(diǎn)擊命令按鈕 對(duì)象

4、點(diǎn)擊編輯

5、再次點(diǎn)擊設(shè)計(jì)模式（1、點(diǎn)擊設(shè)計(jì)模式）

結(jié)果如圖：

修改后的結(jié)果.png

第五步：

修改函數(shù)名

1、點(diǎn)擊設(shè)計(jì)模式

2、右鍵點(diǎn)擊按鈕

3、屬性

4、（名稱） 改為 你想要的函數(shù)名

如圖：

修改函數(shù)名.png

這是我們?cè)倏磛ba

修改函數(shù)名的vba.png