Anuncios

martes, 3 de abril de 2012

Apuntes de Macros en Excel

comparador excel Wizard de comparación y actualización entre 2 hojas Excel




¿ Cómo insertar un hola mundo en la celda A1 de excel ?

Cells(1, 1) = "Hola mundo"

¿ Cómo utilizar ciclos en Excel con VB ?


El siguiente código de Macro, utiliza VB con la sentencia for:

For n = 1 To 10
    Cells(n, 1) = n
Next n
El código inserta números del 1 al 10 desde la celda A1 hasta la A10

Mandar el mensaje hola mundo en Excel con VBA
Msgbox "hola mundo"

Mandar un mensaje preguntando si se desea guardar los datos de la celda. En caso de presionar si, borrar el contenido.



Dim respuesta As String
 
    Answer = MsgBox("¿Desea borrar el contenido de la celda ?", vbQuestion + vbYesNo, "Borrar celda")

    If Answer = vbYes Then
        ActiveCell.FormulaR1C1 = ""

Mandar un mensaje de error crítico en Excel con VBA
MsgBox "Error en el programa !", vbCritical


Mandar un mensaje informacional en Excel con VBA
MsgBox "El macro fue ejecutado exitosamente", vbInformation

Para ir a una celda A1 en Excel con Visual Basic para Excel
Range("A1").Select


Para utilizar la fecha actual en la celda seleccionada
ActiveCell.FormulaR1C1 = "=NOW()"


Uso de condicionales if y else en Excel VBA. Si el valor de la celda seleccionado es mayor que 20, pintarlo de rojo. En caso contrario, pintarlo de azul.

Dim valorCelda As Integer
valorCelda = ActiveCell.Value
If valorCelda > 20 Then
 With Selection.Font
        .Color = -16776961
    End With
Else
    With Selection.Font
        .ThemeColor = xlThemeColorLight2
'        .TintAndShade = 0
    End With
End If

Uso de sentencia case en Excel. Determinar la edad de la celda y clasificar según la edad en persona anciana, adulta, adolescente, menor de edad de acuerdo al rango de edades:



Dim valorCelda As Integer
valorCelda = ActiveCell.Value

Select Case valorCelda
     Case 60 To 200
   
         MsgBox "La persona es anciana"
    Case 30 To 59
   
        MsgBox "La persona es adulta"
   
    Case 18 To 29
       MsgBox "La persona es joven"
   
    Case 0 To 17
    MsgBox "La persona es menor de edad"
   
    Case Else
    MsgBox "Edad no determinada"

End Select

People who read this post also read :