文章目錄

• IsEmpty
• Replace
• Asc
• Mid
• Round

IsEmpty

??用于判斷單元格是否為空：

Sub Main()ActiveSheet.Cells(7, 3).Value = 1If IsEmpty(ActiveSheet.Cells(7, 3)) ThenDebug.Print "Is Empty"ElseDebug.Print "Not Empty"End If End Sub

Replace

??函數原型如下：

Replace(string, find, replacewith)

• 功能：將string中的find用replacewith進行替換。
• 返回值：返回被替換后的字符串。

Sub Main()Dim movie_name As Stringmovie_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 Stringtxt = "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) ' 輸出13Debug.Print Round(12.56, 0) ' 輸出13Debug.Print Round(12.56, 1) ' 輸出12.6 End Sub

總結

以上是生活随笔為你收集整理的VBA编程_常用函数总结1的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。