Public Function FUcase(ByVal InString As String) As Variant Dim a, i As Byte, s As String a = Split(InString, " ") For i = 0 To UBound(a) a(i) = Ucase(Left(a(i), 1)) & Right(a(i), Len(a(i)) - 1) s = s & a(i) & " " Next FUcase = s End Function这结帖率……当作我自己练练手吧,哈哈
Dim a, i As Byte, s As String
a = Split(InString, " ")
For i = 0 To UBound(a)
a(i) = Ucase(Left(a(i), 1)) & Right(a(i), Len(a(i)) - 1)
s = s & a(i) & " "
Next
FUcase = s
End Function这结帖率……当作我自己练练手吧,哈哈