Formulario para convertir el tipo de texto en Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

Deseamos crear un formulario para convertir el tipo de texto en Excel a mayúsculas, minúsculas o nombre propio, mediante una macro en VBA.

  • INSERTAR USERFORM

  1. Ir a: Barra de Menú / Insertar / UserForm; O Ir a: Panel de Proyecto / Clic sobre VBAProject(Libro1) / Botón derecho del ratón / Insertar / UserForm; O Ir a: Barra de Herramientas: Estándar / Clic Sobre la flecha del Botón Insertar / UserForm. Insertará un formulario (UserForm).

    Formulario para convertir el tipo de texto: Formulario (UserForm) insertado
  2. PROPIEDADES USERFORM. Mostrar ventana de propiedades, si no está visible. Ir a: Barra de Menú / Ver / Ventana Propiedades; O Ir a: Barra de Herramientas Estándar / Botón: Ventana de propiedades; O Atajo Teclado: "F4"; Mostrará la ventana de propiedades.

  3. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  4. Aplicar los valores a la propiedad UserForm:

    PropiedadValor
    NameMi_Formulario
    CaptionConversor tipo de texto
    Height216
    Width295
  • INSERTAR CONTROL REFEDIT

  1. MOSTRAR BARRA DE HERRAMIENTAS. Ir a: Barra de Menú / Ver / Cuadro de herramientas; O Ir a: Barra de herramientas Estándar / Botón: Cuadro de Herramientas. Mostrará la barra de Cuadro de Control.

    Control RefEdit insertado en el formulario
  2. Ir a: Barra de Herramientas / Cuadro de herramientas / Clic Botón: RefEdit. Control deseado.

    Cuadro de herramientas del formulario
  3. Ir al Formulario / Clic sobre el y mantener pulsado / Arrastrar el cursor / soltar el clic del ratón. Insertará el control.

  4. PROPIEDADES REFEDIT. Mostrar ventana de propiedades, si no está visible.

  5. Clic sobre el control RefEdit. Seleccionamos el control para aplicar sus propiedades.

  6. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  7. Aplicar los valores a la propiedad del control:

    PropiedadValor
    NameRefEdit1
    Height18
    Left102
    Top24
    Width120
  • INSERTAR CONTROL ETIQUETA

  1. Ir a: Barra de Herramientas / Cuadro de herramientas / Clic Botón: Etiqueta.

  2. Ir al formulario / Clic sobre él. Insertará el control.

    Control etiqueta insertado en el formulario
  3. PROPIEDADES ETIQUETA. Mostrar ventana de propiedades, si no está visible.

  4. Clic sobre la etiqueta. Seleccionamos el control para aplicar sus propiedades.

  5. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  6. Aplicar los valores a la propiedad del control:

    PropiedadValor
    CaptionRango:
    Height9,75
    Left66
    Top28
    Width30
  • INSERTAR MARCO

  1. Ir a: Barra de Herramientas / Cuadro de herramientas / Clic Botón: Marco.

  2. Ir al Formulario / Clic sobre él. Insertará el control.

    Control marco insertado en el formulario
  3. PROPIEDADES MARCO. Mostrar ventana de propiedades, si no está visible.

  4. Clic sobre el marco. Seleccionamos el control para aplicar sus propiedades.

  5. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  6. Aplicar los valores a la propiedad del control:

    PropiedadValor
    CaptionTipo Texto
    Height96
    Left42
    Top66
    Width108
  • INSERTAR BOTÓN DE OPCIÓN: MAYÚSCULAS

  1. Seleccionar el marco / Clic sobre él. Seleccionamos el marco para insertar en su interior los botones de opción.

  2. Ir a: Barra de Herramientas Cuadro de herramientas / Clic Botón: Botón de Opción.

  3. Ir al Formulario / Clic sobre él. Insertará el control.

    Control opciones insertado en el formulario
  4. PROPIEDADES BOTÓN DE OPCIÓN. Mostrar ventana de propiedades, si no está visible.

  5. Clic sobre el botón de opciones. Seleccionamos el control para aplicar sus propiedades.

  6. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  7. Aplicar los valores a la propiedad del control:

    PropiedadValor
    NameMayus
    CaptionMayúsculas.
    Height24
    Left12
    Top12
    Width61
  • INSERTAR BOTÓN DE OPCIÓN: MINÚSCULAS

  1. Seleccionar el marco / Clic sobre él. Seleccionamos el marco para insertar en su interior los botones de opción.

  2. Ir a: Barra de Herramientas Cuadro de herramientas / Clic Botón: Botón de Opción.

  3. Ir al Formulario / Clic sobre él. Insertará el control.

    Control opciones insertado en el formulario
  4. PROPIEDADES BOTÓN DE OPCIÓN. Mostrar ventana de propiedades, si no está visible.

  5. Clic sobre el botón de opciones. Seleccionamos el control para aplicar sus propiedades.

  6. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  7. Aplicar los valores a la propiedad del control:

    PropiedadValor
    NameMinus
    CaptionMinúsculas.
    Height17
    Left12
    Top36
    Width58
  • INSERTAR BOTÓN DE OPCIÓN: NOMBRE PROPIO

  1. Seleccionar el marco / Clic sobre él. Seleccionamos el marco para insertar en su interior los botones de opción.

  2. Ir a: Barra de Herramientas Cuadro de herramientas / Clic Botón: Botón de Opción.

  3. Ir al Formulario / Clic sobre él. Insertará el control.

    Control opciones insertado en el formulario
  4. PROPIEDADES BOTÓN DE OPCIÓN. Mostrar ventana de propiedades, si no está visible.

  5. Clic sobre el botón de opciones. Seleccionamos el control para aplicar sus propiedades.

  6. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  7. Aplicar los valores a la propiedad del control:

    PropiedadValor
    NamePropio
    CaptionNombre propio.
    Height17
    Left12
    Top60
    Width78
  • INSERTAR BOTÓN DE COMANDO: ACEPTAR

  1. Ir a Barra de Herramientas Cuadro de herramientas / Clic Botón: Botón de Comando.

  2. Ir al Formulario / Clic sobre él. Insertará el control.

    Control botón aceptar insertado en el formulario
  3. PROPIEDADES BOTÓN DE ACEPTAR. Mostrar ventana de propiedades, si no está visible.

  4. Clic sobre el botón de comando. Seleccionamos el control para aplicar sus propiedades.

  5. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  6. Aplicar los valores a la propiedad del control:

    PropiedadValor
    CaptionAceptar
    Height24
    Left174
    Top84
    Width84
  • INSERTAR BOTÓN DE COMANDO: CANCELAR

  1. Ir a Barra de Herramientas Cuadro de herramientas / Clic Botón: Botón de Comando.

  2. Ir al Formulario / Clic sobre él. Insertará el control.

    Control botón cancelar insertado en el formulario
  3. PROPIEDADES BOTÓN DE CANCELAR. Mostrar ventana de propiedades, si no está visible.

  4. Clic sobre el botón de comando. Seleccionamos el control para aplicar sus propiedades.

  5. Ir a: Ventana Propiedades / Clic Ficha Alfabética. Muestra las propiedades en orden alfabético.

  6. Aplicar los valores a la propiedad del control:

    PropiedadValor
    CaptionCancelar
    Height24
    Left174
    Top120
    Width84
  • CÓDIGO USERFORM (FORMULARIO)

  1. Ir a: Barra de menú / Ver / Código; O también, Atajo de teclado "F7". Mostrará la vista de código para el formulario.

  2. Escribir el código de la macro para CommandButton1 (Botón Aceptar):

    Private Sub CommandButton1_Click()

    Dim Mi_Rango As Range

    If Mi_Formulario.RefEdit1.Value = "" Then Exit Sub

    Set Mi_Rango = Range(RefEdit1)

    If Mayus = False And Minus = False And Propio = False Then

    MsgBox "¡Seleccionar un tipo de texto!", vbCritical, "Error"

    Exit Sub

    End If

    For Each celda In Mi_Rango

    If Mayus Then celda.Value = UCase(celda)

    If Minus Then celda.Value = LCase(celda)

    If Propio Then celda.Value = WorksheetFunction.Proper(celda)

    If celda.Value = "" Then celda.Value = ""

    Next

    Unload Me

    End Sub

    UCase: Función VB para convertir en mayúsculas.
    LCase: Función VB para convertir en minúsculas.
    WorksheetFunction.Proper: Estructura de la función de Excel NOMPROPIO (VB
    no dispone de función para el nombre propio).

  3. Escribir el código de la macro para CommandButton2 (Botón Cancelar):

    Private Sub CommandButton2_Click()

    Unload Me

    End Sub

  • MACRO ABRIR FORMULARIO

  1. Ir a: Barra de menú / Insertar / Módulo. Insertará el área para insertar la macro que muestre el formulario.

  2. Escribir el código de la macro:

    Sub ConversorTexto()

    Mi_Formulario.Show

    End Sub

  • GUARDAR LIBRO. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  • EJECUTAR MACRO

  1. Ejecutar la macro: ConversorTexto. Mostrará el formulario.

  2. Ir a: Rango / Seleccionar el rango deseado. Para convertir el texto.

  3. Ir a: Tipo texto / Activar la opción deseada: Mayúsculas, Minúsculas o Nombre propio.

  4. Pulsar el botón: Aceptar. Convertirá el rango al tipo de texto deseado.

Formulario para convertir el tipo de texto en Excel: Rango A2:A8 convertido a mayúsculas, minúsculas y nombre propio
Nivel de dificultad: Experto VBA-Macros Excel Experto VBA – Macros

Un comentario en “Formulario para convertir el tipo de texto en Excel

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *