Mayusculas en la primera letra

Alejandro Garcia a émis l'idée suivante :

Si, me sirve y funciona, sé de otra con StrConv, pero lo que sucede es que
debo presentar un examen, y una de las preguntas que me dieron en el
cuestionario es tratar de hacer una rutina que lo haga, no solo con una sola
instruccion sino con una rutina, y de Vbasic poco se, o mejor dicho no
recuerdo casi nada, y este algoritmo me ha dato trabajo hacerlo.

function PrimeraLetraMayus(texto as string) as string
PrimeraLetraMayus=ucase(left(texto,1)) & mid(texto,2)
end function

Alejandro Garcia vient de nous annoncer :

Si, me sirve y funciona, sé de otra con StrConv, pero lo que sucede es que
debo presentar un examen, y una de las preguntas que me dieron en el
cuestionario es tratar de hacer una rutina que lo haga, no solo con una sola
instruccion sino con una rutina, y de Vbasic poco se, o mejor dicho no
recuerdo casi nada, y este algoritmo me ha dato trabajo hacerlo.

Perdon, la escribi mal

function PrimerasLetrasMayus(texto as string) as string
Dim p As Integer
Dim tmp As String

tmp = ""
p1 = 1
Do
p = InStr(p1, texto, " ")
If p = 0 Then
pal = Mid(texto, p1)
Else
pal = Mid(texto, p1, p - p1 + 1)
End If
tmp = tmp & UCase(Left(pal, 1)) & Mid(pal, 2)
p1 = p + 1
Loop Until p=0
PrimerasLetrasMayus=tmp
end function

Esta es la que necesitaba, gracias, probe la primera que me diste y me
funciono para la primera palabra, voy a ver si con esta se puede hacer
para una frase completa.

Gracias.

Alejandro Garcia vient de nous annoncer :

Si, me sirve y funciona, sé de otra con StrConv, pero lo que sucede es que
debo presentar un examen, y una de las preguntas que me dieron en el
cuestionario es tratar de hacer una rutina que lo haga, no solo con una
sola instruccion sino con una rutina, y de Vbasic poco se, o mejor dicho no
recuerdo casi nada, y este algoritmo me ha dato trabajo hacerlo.

Perdon, la escribi mal

function PrimerasLetrasMayus(texto as string) as string
Dim p As Integer
Dim tmp As String

tmp = ""
p1 = 1
Do
p = InStr(p1, texto, " ")
If p = 0 Then
pal = Mid(texto, p1)
Else
pal = Mid(texto, p1, p - p1 + 1)
End If
tmp = tmp & UCase(Left(pal, 1)) & Mid(pal, 2)
p1 = p + 1
Loop Until p=0
PrimerasLetrasMayus=tmp
end function

Hola Alejandro,

Si te vale la funcion NOMPROPIO en la hoja de calculo, lo siguiente deberia valerte tambien:

Function PrimerasLetrasMayus(texto As String) As String
PrimerasLetrasMayus = Application.Proper(texto)
End Function

Saludos,
KL


"Alejandro Garcia" wrote in message news:

Esta es la que necesitaba, gracias, probe la primera que me diste y me funciono para la primera palabra, voy a ver si con esta se
puede hacer para una frase completa.

Gracias.

Alejandro Garcia vient de nous annoncer :

Si, me sirve y funciona, sé de otra con StrConv, pero lo que sucede es que debo presentar un examen, y una de las preguntas que
me dieron en el cuestionario es tratar de hacer una rutina que lo haga, no solo con una sola instruccion sino con una rutina, y
de Vbasic poco se, o mejor dicho no recuerdo casi nada, y este algoritmo me ha dato trabajo hacerlo.

Perdon, la escribi mal

function PrimerasLetrasMayus(texto as string) as string
Dim p As Integer
Dim tmp As String

tmp = ""
p1 = 1
Do
p = InStr(p1, texto, " ")
If p = 0 Then
pal = Mid(texto, p1)
Else
pal = Mid(texto, p1, p - p1 + 1)
End If
tmp = tmp & UCase(Left(pal, 1)) & Mid(pal, 2)
p1 = p + 1
Loop Until p=0
PrimerasLetrasMayus=tmp
end function