2015-01-02

VBA: cambiar el texto a mayúsculas, minúsculas o nombre propio

Title En esta entrada vamos a ver cómo cambiar el texto de mayúsculas, minúsculas o nombre propio mediante VBA. En esta entrada vimos dos maneras alternativas: las funciones de texto disponibles en Excel y el Relleno rápido en Excel 2013:

Funciones definidas por el usuario (UDFs)

Creamos tres funciones sencillas de VBA.

' minúsculas MINUSC
Function Minus(Texto As Range)
    Minus = LCase(Texto)
End Function

' MAYÚSCULAS: MAYUSC
Function Mayus(Texto As Range)
    Mayus = UCase(Texto)
End Function

' Nombre Propio: NOMPROPIO
Function Nom(Texto As Range)
    Nom = WorksheetFunction.Proper(Texto)
End Function

Función incluyendo las 3 anteriores

En la función anterior contemplamos los tres casos. Creamos una función con dos argumentos:

Sintaxis

Núm_función: número que indica la transformación:
  • 0: minúsculas.
  • 1: MAYÚSCULAS.
  • Otro número: Nombre Propio.
Texto: texto (celda) que deseamos convertir

Function MAYUSCULAS(Núm_función As Integer, Texto As Range)
    Select Case Núm_función
        Case 0 ' No: minúsculas
        MAYUSCULAS = LCase(Texto)
        Case 1 ' Sí: MAYÚSCULAS
        MAYUSCULAS = UCase(Texto)
        Case Else ' Resto: Nombre Propio
        MAYUSCULAS = WorksheetFunction.Proper(Texto)
    End Select
End Function

Notas

Como se aprecia en la imagen animada, hemos incluido una descripción de la función y de los argumentos.

También hemos añadido la función a la categoría de funciones de texto.

En una entrada posterior explicaremos la manera de añadir los mismos a las funciones que creemos.

Referencias:

No hay comentarios:

Publicar un comentario

Nube de datos