大家好，又见面了，我是你们的朋友全栈君。
IsEmpty
用于判断单元格是否为空：
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
函数原型如下：
Replace(string, find, replacewith)
- 功能：将
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
Asc
输出字符串首字符的ASCII码：
Sub Main()
Debug.Print Asc("123")
End Sub
Mid
函数原型如下：
Mid(string, start, length)
- 功能：从
string中提取从start起始的length个字符。 - 返回值：返回提取出的字符串。
Sub Main()
Dim txt As String
txt = "This is a beautiful day!"
Debug.Print Mid(txt, 1, 7)
End Sub
Round
函数原型如下：
Round(expression, [numdecimalplaces])
- 作用：对
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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/142805.html原文链接：https://javaforall.net
