伙伴們，大家好。今天分享VBA三種基本類型語句，僅供參考。我們每天進步一點，夢想更近一步。

思語：天下難事，必作于易；天下大事，必作于細。

??????世人一直在追尋自己生命中的貴人，其實貴人的發(fā)源地就是自己本身。由于身世、年齡、經歷、思想、性格、包容、境遇、階段、方向、方法、心態(tài)、行為、習慣、資源不同，從空間維度看，每個人都處于不同的樓層，擺在我們面前的就是要突破自己所在樓層的天花板，向上能到多少層，不確定，至少先向上拓展一層。

? ?? ?VBA三種常用類型語句有順序結構語句、條件控制語句、循環(huán)結構語句。

1、順序結構語句。

? ? ?通俗講就是按部就班的語句，程序按照我們事先編譯代碼的順序執(zhí)行，而我們編譯的代碼又基于業(yè)務目標、業(yè)務流程而定，在運行過程中順風順水，道路平坦沒有洼地，一步到底。

案例：在合并利潤表中按如下代碼的先后順序實現相應的功能。

執(zhí)行代碼前，在VBA代碼窗口輸入如下代碼。

Sub test1() 'test1是過程名稱，可以根據代碼管理需求自定義

Range("A20").Interior.Color = 49407 '銷售費用填充橙色

Range("A21").Font.Size = 18 '管理費用的字號設置為：18磅

Range("A23").Font.Bold = True '財務費用加粗

End Sub

按F8功能鍵逐語句執(zhí)行代碼后：

2、條件控制語句。

? ? ? 指有條件的選擇執(zhí)行相關語句。達到預設條件就執(zhí)行，未達到預設條件就不執(zhí)行（繞過或忽略的意思）。通俗講就是只要你滿意，你就樂意去做某件事；不滿意，你就會視而不見，不做某件事。

案例：在合并利潤表中如果A20單元格的值為：銷售費用項目，則填充橙色，否則不執(zhí)行任何操作。

執(zhí)行代碼前，在VBA代碼窗口輸入如下代碼。

Sub test2()

'如果A20單元格的值為：銷售費用項目，則填充橙色，否則不執(zhí)行任何操作。

If Range("A20").Value = "銷售費用" Then

? ? Range("A20").Interior.Color = 49407 '填充橙色

End If

End Sub

按F8功能鍵逐語句執(zhí)行代碼后：

3、循環(huán)結構語句

? ? ? ?指重復執(zhí)行某個操作的語句。比如，在工作表中對目標區(qū)域里的單元格逐個填充橙色；再比如，我們在第一次撥打中國境內新手機號碼時，需要在手機面板上按鍵11次，這11次的行為就是在重復執(zhí)行按鍵動作。

案例：在合并利潤表中對A20:A23區(qū)域里的單元格逐個填充橙色。

執(zhí)行代碼前，在VBA代碼窗口輸入如下代碼。

Sub test3()

Dim myrng1 As Range '定義對象變量

Dim myrng2 As Range '定義對象變量

Set myrng1 = Sheets("sheet1").Range("A20:A23")?'對象變量賦值

For Each myrng2 In myrng1'在A20:A23區(qū)域循環(huán)執(zhí)行?

? ? ?? myrng2.Interior.Color = 49407 '填充橙色

Next

End?Sub

按F8功能鍵逐語句執(zhí)行代碼后：