excel-vba語法基礎(編輯修改稿)
2025-09-01 00:29 本頁面
【文章內容簡介】 的判斷時，最方便的方法是 If … Then 語 句。If 后面的語句就是判斷的條件，Then 后面的語句是需要執(zhí)行的操作。2．語法說明在 Excel VBA 中，使用 If...Then 語句可有條件地執(zhí)行語句。其語法格式如下：If 邏輯表達式 Then語句 1語句 1… …語句 nEnd If邏輯表達式可以是計算數(shù)值的表達式，VBA 將為 0 看作為 False，而非零數(shù)值都被看作 True。該語句的執(zhí)行順序是：當邏輯表達式的值是 True，則執(zhí)行位于 Then 與 End If 之 間的語句；當邏輯表達式的值是 False，則不執(zhí)行 Then 與 End If 之間的語句，直接跳出循 環(huán)結構，其流程圖如圖 所示。語句序列邏輯表達式假真圖 If … Then 語句流程圖If … Then 結構還有單行結構條件語句。其語法格式如下： If 邏輯表達式 Then 語句 該語句的功能為：當邏輯表達式的值是 True，則執(zhí)行 Then 后的語句；當邏輯表達式 的值是 False，則不執(zhí)行 Then 后的語句。3．案例說明某公司統(tǒng)計了員工上個月的銷量，根據(jù)銷量數(shù)值，公司判定銷量數(shù)值大于 350 的員工為優(yōu)秀員工。對于優(yōu)秀員工將其對應的單元格標紅，原始數(shù)據(jù)如圖 所示。圖 原始數(shù)據(jù)4．編寫代碼判斷優(yōu)秀員工的代碼如下：Sub ShowExcel() Dim i As IntegerFor i = 2 To 10If Sheets(1).Cells(i, 2).Value 350 Then Cells(i, 2). = 3End If NextEnd Sub5．運行結果打開工作薄，然后運行程序代碼，結果如圖 所示。圖 運行結果6．程序分析從上面案例的結果中可以看出，當程序處理的只有一個條件時，使用 If...Then 語句可 以很便利的解決問題。案例 12 根據(jù)編號分組1．功能說明當用戶在實際開發(fā)時，經常需要進行多條件判斷。例如，當滿足條件 1 時，執(zhí)行第一種操作；當不滿足條件 1 時，執(zhí)行另外一種操作。當用戶需要編寫這些類型的代碼時，前 面案例中的 If … Then 語句將無法滿足，用戶需要使用 If .. . Then … Else 語句。 2．語法說明在 Excel VBA 中，用戶可以使用 If .. . Then … Else 語句，根據(jù)條件是否成立分別執(zhí)行 兩段不同的代碼，其語法格式如下：If 邏輯表達式 Then語句序列 1 Else語句序列 2End If該語句的執(zhí)行過程是：當邏輯表達式的值是 True 時，將執(zhí)行“語句序列 1”中的各條語句；當“邏輯表達式”的值為 False 時，就執(zhí)行“語句序列 2”中的各條語句，其流程圖 如圖 所示。圖 If Then Else 語句流程圖3．案例說明某公司統(tǒng)計了員工上個月的銷量，公司需要根據(jù)員工編號判斷員工的組別。當編號是 偶數(shù)的時候，員工屬于女組；當編號是奇數(shù)時，員工屬于男組，原始數(shù)據(jù)如圖 所示。 圖 原始數(shù)據(jù)4．編寫代碼分組的程序代碼如下：Sub ShowTeam() Dim i As Integer For i = 2 To 10If Sheets(1).Cells(i, 1).Value Mod 2 Then Cells(i, 3).Value = 男組ElseCells(i, 3).Value = 女組 End IfNextEnd Sub5．運行結果打開工作薄，運行程序代碼，得到的結果如圖 所示。圖 運行結果6．程序分析從上面的典型例子中可以看出，當在實際情況中需要根據(jù)某條件執(zhí)行兩種不同的操作 時，可以使用 If .. . Then … Else 語句便利的完成任務。案例 13 計算消費金額1．功能說明在實際開發(fā)中，用戶可能需要處理多條件問題。例如，某公司根據(jù)多個銷量，將折扣 分為多個檔次。在計算銷售金額的時候，需要判斷具體銷售屬于哪個檔次，然后根據(jù)該檔 次的折扣值，計算銷售金額。這個時候，用戶可以使用 Select Case 語句。2．語法說明在 Excel VBA 中，Select Case 結構的語法格式如下：Select Case 測試表達式Case 表達式列表 1語句序列 1Case 表達式列表 2語句序列 2…
黨政相關相關推薦
鄂ICP備17016276號-1