有不少粉絲朋友說想要學習VBA，那韓老師從今天開始就寫一些VBA應用的問題。其實，上一篇 已經開始了。
當然，並不是每天都寫哦，因為也還有粉絲關心函數應用的問題。
學VBA是個大工程，韓老師不可能從數據類型、常量變量、語法等一一講起，只能從簡單的應用的寫起。很多東西，還是需要大家自己去領悟。
今天講一個簡單的判斷等級的問題。
IF函數函數判斷等級
如下的數據：
可以用IF函數實現根據銷售業績判斷每位銷售員的業績等級。公式為：“=IF(B2>=8,"優秀",IF(B2>=4,"合格","不合格"))“。
判斷方法是:
- 銷售業績大於等於8，業績等級為”優秀“；
- 銷售業績大於等於4，且小於8，業績等級為”合格“；
- 銷售業績小於4，業績等級為”不合格“。
VBA實現
打開VBA窗口，可以用Alt+F11組合鍵，也可以選擇”開發工具“菜單中的”Visual Basic"來打開，也可以直接在工作表名稱上點擊右鍵，選擇“查看代碼”打開。
在右側工程窗口中插入“模塊”，在右側代碼窗口中添加代碼：
Sub 業績等級()
Dim i As Integer ‘定義一個整型變量
i = 2 ’變量賦初值
Do While Range("B" & i).Value <> "" ‘當B列數據不為空時則進行等級判斷
If Range("B" & i) >= 8 Then
Range("D" & i).Value = "優秀"
ElseIf Range("B" & i) >= 4 Then
Range("D" & i).Value = "合格"
Else
Range("D" & i).Value = "不合格"
End If
i = i + 1
Loop
End Sub
如下圖：
即可判斷等級。
而且用Do While語句寫出的代碼，不受數據行數的限制，只要添加數據，隨時都可點擊“判斷銷售業績”按鈕實現。
結果如下：
如查不知道“判斷業績等級”按鈕怎麼插入，可參考 。
關於更多判斷等級的方法可參考韓老師這篇文章：
閱讀更多 韓老師講office 的文章
