'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
''''''''''''''''''''''''''''''''''''''''''''''''''''''
