最近更新:'2019-05-15'

1. 字符串函數(shù)
2. For Each語句

1. 字符串函數(shù)

系統(tǒng)函數(shù)：vBA中內(nèi)置的、已經(jīng)編寫好的函數(shù)，可以在自己的程序中隨時(shí)調(diào)用，實(shí)現(xiàn)一些常用功能（如數(shù)學(xué)運(yùn)算、文本處理等）

1.1函數(shù)：Sqr（a）

功能：計(jì)算并返回a的平方根

Sub 數(shù)學(xué)函數(shù)示例()
    Dim a
    a = Sqr(5)
    MsgBox a

End Sub

1.2函數(shù)：Len（s）

功能：返回字符串s的長度,即s中有多少字符（一個(gè)中文字符長度也為1）
案例1:

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "大家好abc"
    a = Len(s)
    MsgBox a

End Sub

案例2:

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "  大家好abc  "
    a = Len(s)
    MsgBox a

End Sub

1.3函數(shù)：Trim（s）

功能：返回一個(gè)新的字符串，該串的內(nèi)容等于s去掉了兩端的所有空格。

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "  大家好abc  "
    a = Trim(s)
    MsgBox "[" & a & "]"

End Sub

注意事項(xiàng):
1.trim(s)中的s沒有發(fā)生任何的變化,兩端仍然有空格.

2.trim(s)中的s如果中間有空格,結(jié)果返回的只有兩邊的空格會(huì)消失,而中間空格還在.

1.4函數(shù)： Replace（s,a,b）

功能：返回一個(gè)新的字符串，該串的內(nèi)容等于把s中所有的a都替換成b之后的樣子。

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "  大家      好 abc  "
    a = Replace(s, " ", ",")
    MsgBox a

End Sub

1.5 函數(shù)：UCAse（s）和函數(shù)：LCase（s）

函數(shù)：UCAse（s）
功能：返回一個(gè)新的字符串，該串的內(nèi)容等于把s中所有的英文字母都變成大寫（其他字符不變）的樣子。

函數(shù)： LCase（s）
功能：返回一個(gè)新的字符串，該串的內(nèi)容等于把s中所有的英文字母都成小寫（其他字符不變）的樣子

1.6函數(shù)： Right（s,a）

功能：從s的右邊取出a個(gè)字符，構(gòu)成新的字符串并返回。

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "大家好abc"
    a = Right(s, 2)
    MsgBox a

End Sub

1.7函數(shù)：Left（s,a）

功能：從s的左邊取出a個(gè)字符，構(gòu)成新的字符串并返回

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "大家好abc  "
    a = Left(s, 2)
    MsgBox a

End Sub

1.8函數(shù)：Mid（s,i,a）

功能：從s的第i個(gè)字符開始，取出a個(gè)字符返回。

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "大家好abc"
    a = Mid(s, 1, 2)
    MsgBox a

End Sub

1.9函數(shù)：InStr（s,a）

功能：在s中尋找a，如果找到則返回a出現(xiàn)的位置（第幾個(gè)字符）如果沒有找到則返回0。

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "吃葡萄不吐葡萄皮"
    a = InStr(s, "葡萄")
    MsgBox a

End Sub

函數(shù)：InStr（i,s,a）
功能：在s中,從第i個(gè)字符開始尋找a，如果找到則返回a出現(xiàn)的位置（第幾個(gè)字符）如果沒有找到則返回0。

Sub 字符串函數(shù)示例()
    Dim a, s
    s = "吃葡萄不吐葡萄皮"
    a = InStr(3, s, "葡萄")
    MsgBox a

End Sub

1.10綜合案例:

Sub test()
    s = "廣渠路55號(hào)307室"
    
    路字 = InStr(s, "路")
    
    號(hào)字 = InStr(s, "號(hào)")
    
    Cells(2, 3) = Left(s, 路字)
    
    Cells(2, 4) = Mid(s, 路字 + 1, 號(hào)字 - 路字)
    
    Cells(2, 5) = Right(s, Len(s) - 號(hào)字)
End Sub

2. For Each語句

常見的使用方法如下截圖:

案例:
將4月,5月,6月的每個(gè)員工的業(yè)績統(tǒng)一求和匯總在季度匯總表.如下截圖:

代碼顯示的最終結(jié)果如下