VBA – Pretvaranje velikih u mala slova

Posted: oktobar 17, 2011 in Uncategorized
Oznake:, , ,

VBA – Pretvaranje velikih u mala slova

Function UVelika(S As String) As String
Dim I As Integer
UVelika = S
For I = 1 To Len(S)
If Mid(UVelika, I, 1) Like „[a-z]“ Then
Mid(UVelika, I, 1) = Chr(Asc(Mid(UVelika, I, 1)) – Asc(„a“) + Asc(„A“))
End If
Next I
End Function

Advertisements

Zatvoreno za komentare.