Función UDF para convertir texto a Oración en Excel

La manipulación de textos en Excel es una tarea que siempre es necesaria, sobretodo al momento de formatear datos que no están escritos uniformemente. Aunque como sabemos, Excel como hoja de cálculo no es especialista en texto como lo es Microsoft Word, sí tenemos funciones de texto como lo son MAYUS, MINUSC y NOMPROPIO.

Word cuenta con una función para convertir texto a oración, es decir, que cada letra posterior a un punto y un espacio (“. ”) debe de ir en mayúsculas.

Excel no cuenta con una función para transformar un texto a oración, es por que eso que se debe realizar una función para solventar dicha necesidad.

Cómo uso la función

La función que comparto con ustedes se llamará TipoOracion y sólo tendrá un parámetro que será la celda que querramos convertir. El uso que le daremos será:

[A2] =TipoOracion(A1)

Donde A1 contiene el texto.

Texto original

el término inteligencia empresarial se refiere al uso de datos en una empresa para facilitar la toma de decisiones.      abarca la comprensión del funcionamiento actual de la empresa, bien como la anticipación de acontecimientos futuros, con el objetivo de ofrecer conocimientos para respaldar las decisiones empresariales.   las herramientas de inteligencia se basan en la utilización de un sistema de información de inteligencia que se forma con distintos datos extraídos de los datos de producción, con información relacionada con la empresa o sus ámbitos y con datos económicos.       mediante las herramientas y técnicas elt (extraer, cargar y transformar), o actualmente etl (extraer, transformar y cargar) se extraen los datos de distintas fuentes, se depuran y preparan (homogeneización de los datos) para luego cargarlos en un almacén de datos.

Texto formateado

El término inteligencia empresarial se refiere al uso de datos en una empresa para facilitar la toma de decisiones. Abarca la comprensión del funcionamiento actual de la empresa, bien como la anticipación de acontecimientos futuros, con el objetivo de ofrecer conocimientos para respaldar las decisiones empresariales. Las herramientas de inteligencia se basan en la utilización de un sistema de información de inteligencia que se forma con distintos datos extraídos de los datos de producción, con información relacionada con la empresa o sus ámbitos y con datos económicos. Mediante las herramientas y técnicas elt (extraer, cargar y transformar), o actualmente etl (extraer, transformar y cargar) se extraen los datos de distintas fuentes, se depuran y preparan (homogeneización de los datos) para luego cargarlos en un almacén de datos.

Código de la función

El siguiente código deberá ser puesto en un módulo normal de vba.

Option Explicit
'---------------------------------------------------------------------------------------
' Module    : Módulo1
' Author    : MVP Excel Sergio Alejandro Campos
' Date      : 15/08/2013
' Blog      : http://blogs.itpro.es/exceleinfo
'---------------------------------------------------------------------------------------
'
Function TipoOracion(Celda As String)
Dim Largo As Integer
Dim i As Integer
Dim Valor As String
Dim Valor1 As String
Dim ValorAnt As String
Dim ValorAnt2 As String
Dim C As String
Application.Volatile
'
C = Application.WorksheetFunction.Trim(Replace(Celda, ".", ". "))
TipoOracion = C
'
Largo = Len(C)
'
On Error Resume Next
For i = 1 To Largo
    Valor = LCase(Mid(C, i, 1))
    ValorAnt = LCase(Mid(C, i - 1, 1))
    ValorAnt2 = LCase(Mid(C, i - 2, 1))
    If i = 1 Then
        Valor1 = Valor1 & UCase(Valor)
    ElseIf ValorAnt = " " And ValorAnt2 = "." Then
        Valor1 = Valor1 & UCase(Valor)
    Else
        Valor1 = Valor1 & LCase(Valor)
    End If
Next i
'
On Error GoTo 0
TipoOracion = Valor1
End Function

:: Descarga el ejemplo UDF Convertir texto a tipo Oración.zip

También te podría gustar...