EXCEL工作表中判断语句select之应用

1、通过实例和大家分享一下select多条件判断的应用，【实例：按等级发放红包？】

2、依次点击菜单栏【开发工具】——【visual basic】,如图所示。

3、会弹出【VB】界面。

4、点击菜单栏【插入】，在下拉框中点击【模块】，如图所示。

5、会弹出代码编写窗口！

6、在代码编辑窗口输入一下编码。

Sub select多条件判断应用()

Select Case Sheet3.[b3].Value

Case "A"

Sheet3.[c3] = "1000元"

Case "B"

Sheet3.[c3] = "800元"

Case "C"

Sheet3.[c3] = "500元"

Case Else

Sheet3.[c3] = "200元"

End Select

End Sub

7、同时按下CTRL+F11两键，返回工作表！

8、在【开发工具】菜单下点击【插入】按钮，选择一【表单控件】，在空白单元格处，拉动鼠标，出现一控件按钮，同时弹出【指定宏】对话框。

9、选择编写的模块后，点击确定！并将按钮重新命名为【判断】！

10、点击【判断】按钮，C3单元格内的值是不是变化了！