Tips de VBA para Excel

enero 20, 2009 por Bill Yesterday

Convertir a Minúsculas las celdas seleccionadas:

Public Sub Minusculas()

For Each obj In Selection

obj.Value = LCase(obj.Value)

Next

End Sub


Convertir a Mayúsculas las celdas seleccionadas:

Public Sub Mayusculas()

For Each obj In Selection

obj.Value = UCase(obj.Value)

Next

End Sub


Contar caracteres en celda(s) seleccionada(s):

Public Sub Contador()

Dim nombre As String

Dim cuenta As Long

cuenta = 0

For Each obj In Selection

nombre = obj.Value

cuenta = cuenta + Len(nombre)

Next obj

MsgBox “La cantidad de bytes es: ” & cuenta

End Sub




Posteado en Computación