Excel之VBA

1、Select...Case语句计算税率（模块中输入）

Public Function TaxRate(Salary) As Single
    Select Case Salary - 3500
        Case Is < 0
            TaxRate = 0
        Case Is <= 1500
            TaxRate = 0.03
        Case Is <= 4500
            TaxRate = 0.1
        Case Is <= 7000
            TaxRate = 0.3
        Case Else
            TaxRate = 1
    End Select
End Function

 2、Open事件，每次打开工作簿都弹出提示框（ThisWorkbook中输入）

Private Sub Workbook_Open()
　　Dim MsgStr As String
　　MsgStr = "Hello World!" & Chr(13) & Chr(10)
　　MsgStr = MsgStr & "这是第2行了" & vbCrLf
　　MsgStr = MsgStr & "这是第3行了"
　　MsgBox MsgStr, , "标题名称"
End Sub
//Chr(13)回车符；Chr(10)换行符；vbCrLf或VBNewLine强制换行