VBA编程_常用函数总结1[通俗易懂]

Sub Main()
    ActiveSheet.Cells(7, 3).Value = 1

    If IsEmpty(ActiveSheet.Cells(7, 3)) Then
        Debug.Print "Is Empty"
    Else
        Debug.Print "Not Empty"
    End If
End Sub

Replace(string, find, replacewith)

Sub Main()
    Dim movie_name As String
    movie_name = Replace("速度与激情8.mp4", ".mp4", ".avi")
    Debug.Print movie_name ' 输出“速度与激情8.avi”
End Sub

Sub Main()
    Debug.Print Asc("123")
End Sub

Mid(string, start, length)

Sub Main()
    Dim txt As String
    txt = "This is a beautiful day!"
    Debug.Print Mid(txt, 1, 7)
End Sub

Round(expression, [numdecimalplaces])

Sub Main()
    Debug.Print Round(12.56)    ' 输出13
    Debug.Print Round(12.56, 0) ' 输出13
    Debug.Print Round(12.56, 1) ' 输出12.6
End Sub