Deztaca - Academia online para destacar en tu trabajo

Temario del curso

Anterior Siguiente

Lección 12 de 96 · Módulo 3

Caso práctico: Cambiar texto a MAYÚSCULAS

▶️ Video · 2 min 📊 Módulo 3

Tus notas de esta clase

Inicia sesión y accede al contenido para usar marcadores en este curso.

Inicia sesión y accede al contenido para ver los anuncios de esta lección.

Participaciones 9 comentarios

Inicia sesión para dejar tu duda, comentario y/o respuesta

Iniciar sesión Inscribirme

Juan Alberto hace 1 año

Podría hacerse con un InputBox y según la respuesta efectuar u UCase o LCase. También podrían agregarse 2 botones de comando uno para mayúsculas y el otro para minúsculas. Igualmente habrían más opciones...

JuliaBravo490 Equipo Deztaca hace 1 año

¡Buena propuesta!
El InputBox es práctico y los botones de comando mejoran la experiencia.
También podrías usar un Select Case para validar la entrada y evitar errores.

Gracias por aportar.

nalattanzio hace 1 año

Sabiendo que la función IMPUTBOX devuelve un STRING la estructura CASE podría ser:
CASE "1"
...
CASE "2"
...

JuliaBravo490 Equipo Deztaca hace 1 año

¡Exactamente!
Muy bien apuntado: como InputBox devuelve un String, lo ideal es que los valores en la estructura Select Case estén entre comillas, como "1", "2", etc.

¡Gracias por compartirlo! Seguro que este detalle le sirve a muchos compañeros.

JuanRodriguez603 hace 1 año

Buenos días Sergio yo haría la siguiente macro para preguntar 
si quiere convertir a Mayúsculas o a Minúsculas:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range
Dim Resp As Byte

Resp = InputBox("Digite la opción que desea" & vbNewLine & _
        "1. Cambiar a Mayúsculas" & vbNewLine & _
        "2. Cambiar a Minúsculas", _
        "Convertir a Mayúsculas o Minúsculas", 1)
        
For Each Celda In Selection
        
    Select Case Resp
        Case 1
            Celda.Value = VBA.UCase(Celda)
        Case 2
            Celda.Value = VBA.LCase(Celda)
        Case Else
            MsgBox "Opción No Valida": Exit Sub
    End Select
    
Next Celda
    
End Sub

SusanaUztariz245 hace 1 año

Sub Convertir_Mayusc()

Dim Celda As Range
Dim Opcion As Variant
Dim Texto As String

Texto = "Elige uns opcion:" & vbNewLine & _
vbNewLine & " 1. MAYÚSCULAS" & _
vbNewLine & " 2. minúsculas"

Opcion = InputBox(Texto, "Excela", 1)

Select Case Opción

Case 1
For Each Celda In Selection
Celda.Value = VBA.UCase(Celda)
Next Celda

Case 2
For Each Celda In Selection
Celda.Value = VBA.LCase(Celda)
Next Celda

Case Else

MsgBox "Eligio un valor no asignado", vbCritical, "Excela": Exit Sub

End Select



End Sub

Elena-G hace 1 año

Hola, respondiendo al ejercicio:

Como hacer un macro que permita elegir entre Mayúsculas y Minúsculas. Tengo la siguiente propuesta:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range
Dim Texto As String
Dim Opción As Byte

Texto = "Elige una opción:" & vbNewLine & _
vbNewLine & "1. MAYÚSCULAS" & _
vbNewLine & "2. minúsculas"

Opción = InputBox(Texto, 1)

Select Case Opción
Case 1
For Each Celda In Selection
Celda.Value = VBA.UCase(Celda)
Next Celda
Case 2
For Each Celda In Selection
Celda.Value = VBA.LCase(Celda)
Next Celda
Case Else: MsgBox "Elegiste un valor no asignado": Exit Sub

End Select

JuliaBravo490 Equipo Deztaca hace 1 año

¡Buena propuesta, Elena!

Tu macro tiene una buena estructura para permitir la conversión de texto a mayúsculas o minúsculas, pero hay un pequeño detalle: InputBox devuelve un valor de tipo String, por lo que al asignarlo a Opción, que es de tipo Byte, puede haber errores si el usuario ingresa un valor no numérico.

Corrección recomendada: Convertir explícitamente la entrada a número con CLng y validar que sea un valor esperado antes de continuar.

Versión mejorada de tu macro:

Sub Convertir_Mayusc_Minusc()

Dim Celda As Range

Dim Texto As String

Dim Opción As Variant ' Cambiado a Variant para manejar mejor la entrada del usuario

Texto = "Elige una opción:" & vbNewLine & _

vbNewLine & "1. MAYÚSCULAS" & _

vbNewLine & "2. minúsculas"

Opción = InputBox(Texto, "Conversión de texto")

' Validar que la entrada sea un número

If Not IsNumeric(Opción) Then

MsgBox "Por favor, ingresa un número válido (1 o 2).", vbExclamation

Exit Sub

End If

Select Case CLng(Opción)

Case 1

For Each Celda In Selection

Celda.Value = VBA.UCase(Celda.Value)

Next Celda

Case 2

For Each Celda In Selection

Celda.Value = VBA.LCase(Celda.Value)

Next Celda

Case Else

MsgBox "Elegiste un valor no asignado", vbExclamation

End Select

End Sub

Mejoras aplicadas:
- Se usa Variant en lugar de Byte para evitar errores de tipo de dato.
- Se valida que la entrada sea numérica antes de procesarla.
- Se usa CLng(Opción) en Select Case para evitar problemas de comparación de tipos.
- Se agrega un mensaje de advertencia si el usuario ingresa un valor inválido.

Con estos ajustes, tu macro será más robusta y evitará posibles errores.

FelixSilvaNavas177 hace 1 año

Como mis compañeros que me antecedieron han respondido acertadamente con sus propuestas, me tome la libertad de agregar una opción para convertir los texto como Nombre Propio, A continuación les comparto el código.

Sub Convertir_Mayusc_Minusc_Nombre_Propio()

Dim Celda As Range
Dim Texto As String
Dim Opción As Byte

Texto = "Elige una opción:" & vbNewLine & _
vbNewLine & "1. Mayúscula" & _
vbNewLine & "2. Minúscula" & _
vbNewLine & "3. Nombre Propio "

Opción = InputBox(Texto, 1)

Select Case Opción
Case 1
For Each Celda In Selection
Celda.Value = VBA.UCase(Celda)
Next Celda
Case 2
For Each Celda In Selection
Celda.Value = VBA.LCase(Celda)
Next Celda

Case 3
For Each Celda In Selection
Celda.Value = Application.WorksheetFunction.Proper(Celda)
Next Celda

Case Else: MsgBox "Elegiste un valor no asignado": Exit Sub

End Select

End Sub

JuliaBravo490 Equipo Deztaca hace 1 año

Hola, Félix

¡Excelente iniciativa! Me parece una propuesta muy útil agregar la opción para convertir a "Nombre Propio". Así, se cubren todas las posibles necesidades de formato de texto.

Tu código está muy bien estructurado y la opción adicional complementa perfectamente las funcionalidades que ya se habían planteado. Sin duda, es una mejora que puede facilitar mucho la tarea de dar formato a los textos de manera eficiente.

Gracias por compartirlo, ¡sin duda será de gran ayuda!

Saludos,
Julia
Equipo DEZTACA