miércoles, 28 de diciembre de 2011

Macros varias 0.1 (cambiar signos con evaluate) ,cambiar entre mayusculas y minusculas Uppercase,LowerCase

'Con las siguientes macros podemos realizar simples tareas cotidianas Cambiar signos con evaluate ,convertir a mayusculas Uppercase ,convertir a minusculas LowerCase o solo convertir la priemra letra a mayuscula vbProperCase










 

Sub Convertir_UPCASE() 'VBA.UPPERCASE
'- Mediante la sgte excel vba macro code puede Convertir seleccion A mayusculas

Dim UChr As Long

With Selection

For UChr = 97 To 122

.Replace Chr(UChr), UCase(Chr(UChr))

Next UChr

End With

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Convertir1era_UPCASE() 'VBA.UPPERCASE
' - Mediante la sgte excel vba macro code puede Convertir 1 Letra A mayusculas

Dim UChr As Long
Dim b As String

b = StrConv(ActiveCell.Text, vbProperCase)
ActiveCell.Value = b

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''

Sub Convertir_Minusculas() 'VBA.LOWERCASE
'- Mediante la sgte excel vba macro code puede Convertir seleccion A minusculas


Dim lowChr As Long

With Selection

For lowChr = 97 To 122

.Replace UCase(Chr(lowChr)), Chr(lowChr)

Next lowChr

End With

End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub cambiar_signo1()
''Mediante la sgte excel vba macro code puede Cambiar signo a 1 celda

Selection.Value = Evaluate("-" & Str(Selection.Value))

End Sub

'''''''''''''''''''''''''''''''''''''''''''''

Sub cambiar_signo_2()
' 'Mediante la sgte excel vba macro puede Cambiar signo a varias celdas
Dim CurCell As Object

For Each CurCell In Selection.Cells



If VBA.IsNumeric(CurCell.Value) Or VBA.Right(CurCell.Value, 1) = "-" Or CurCell.Value! = "" Then



CurCell.Value = Evaluate("-" & VBA.Str(CurCell.Cells))



End If



Next



End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''

1 comentario:

Unknown dijo...

Muchas gracias por la informacion esta muy buena y me será de utilidad like para ti mirad este link
http://www.badasscontent.com/dineroonline1