excel使用elseif流程简写if函数条件的方法

首先我们打开一个工作样表作为例子。

打开vba编辑窗口，使用alt+f11快捷组合键或在开发者工具标签中点击vb快捷按钮，进入。

我们设计一个代码，比如满足岗位工资100的为红色，岗位工资300的为蓝色，岗位工资900的为绿色。这样我们写下如下代码。 Sub 颜色() For i = 6 To 13 t = Sheets(1).Cells(i, 7).Value   '取得数据 If t = 100 Then Sheets(1).Cells(i, 7).Select Selection.Font.ColorIndex = 3 End If If t = 300 Then Sheets(1).Cells(i, 7).Select Selection.Font.ColorIndex = 5 End If If t = 900 Then Sheets(1).Cells(i, 7).Select Selection.Font.ColorIndex = 4 End If Next End Sub

上面的代码其实是在循环运行并每次都对值做了3次判断，虽然计算机运行速度快，大家感觉不到差异，但是我们可以对其进行修改。来达到优化代码的目的。

这里需要使用到elseif函数。简写代码如下： Sub 颜色() For i = 6 To 13 t = Sheets(1).Cells(i, 7).Value   '取得数据 If t = 100 Then c = 3 ElseIf t = 300 Then c = 5 ElseIf t = 900 Then c = 4 Else: c = 0 End If Sheets(1).Cells(i, 7).Select Selection.Font.ColorIndex = c Next End Sub

这里可以解释一下函数的运行方法，首先是循环语句for历遍sheet1表格中G列6-13行数据。并每次对其取值进行判断，最关键的是对字体颜色进行变量定义，这样可以简化代码中选择单元格和进行字体颜色变更的多次操作。