一招制胜 | WPS表格——VBA系列之Select Case应用案例(第一篇)(基础篇)

⭐场景：Select Case的具体应用。

📢具体要求：根据给定的原始内容，以商品”笔记本电脑”为例，如果员工销量大于或等于150，返回”优秀”；如果大于或等于80，返回”良好”；如果大于或等于60，返回”合格”；如果小于60，返回”不合格”。同时设置字体颜色以及单元格背景色(此处的设置可根据自己的需要进行即可)。

📌说明：本文属于基础知识的应用，建议高手大神可以直接跳过忽略。

步骤1：先打开WPS软件，新建一份表格，并输入相应的内容。如下图所示：我们来实际操作一下。

步骤2：点击【工具】，【开发工具】，【查看代码】，然后点击【插入】，【模块】，然后输入具体代码，如下所示：

Option Explicit

Sub test()

Dim i As Integer

For i = 2 To 13

Select Case Range("F" & i).Value

Case Is >= 150

Range("G" & i).Value = "优秀"

Case Is >= 80

Range("G" & i).Value = "良好"

Case Is >= 60

Range("G" & i).Value = "合格"

Case Else

Range("G" & i).Value = "不合格"

End Select

Next

With Range("G2:G13")

.Font.Color = RGB(255, 0, 0)

.Font.Bold = True

.Interior.Color = vbGreen

End With

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

以上就是今天要分享的内容，欢迎大家评论区留言，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!