Anuncios

Confio

lunes, 9 de abril de 2012

Ejemplos prácticos de Macros Excel 2007

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

Este ejemplo coloca el valor prueba en todas las hojas Excel desde los rangos de la celda A1 hasta la B6.

    For Each c In Worksheets("Hoja1").Range("A1:B6").Cells
        If c.Value = "" Then
            c.Value = "Prueba"
            
        End If

    Next



Borrar el contenido de todas las celdas de la hoja 1:


Worksheets("Hoja1").Cells.ClearContents


A la celda de un puesto a la derecha y 0 puestos arriba, convertirlo en el valor entero de la celda activa.
   ActiveCell.Offset(0, 1).Value = Int(ActiveCell.Value)



    For Each c In Worksheets("Hoja1").Range("A1:B6").Cells
            c.Offset(0,1).Value = Int(c.value)
         
        End If

    Next

Insertar valores en rangos específicos de Excel. El siguiente ejemplo inserta la palabra probando rangos en las celdas A1, hata la B10. Existen 2 formas de hacerlo:

Range("A1", "B10") = "Probando Rangos"
o
Range("A1:B10") = "Probando Rangos"



Trabajar en macros con rangos elegidos dinámicamente. El siguiente ejemplo inserta la palabra probando rangos en las celdas seleccionadas.


Dim rango As String
rango = Selection.Address(ReferenceStyle:=xlA1, _
                           RowAbsolute:=False, ColumnAbsolute:=False)


Range(rango) = "Probando Rangos"
End Sub

Obtener el valor mínimo de un rango de valores en Excel con rango seleccionado dinámico.

Dim rango As String
rango = Selection.Address(ReferenceStyle:=xlA1, _
                           RowAbsolute:=False, ColumnAbsolute:=False)
Range(rango).End(xlDown).Offset(1, 0).Value = "=MIN(" + rango + ")"

Referencias

http://www.programatium.com/manuales/excel/5.htm

http://spreadsheetpage.com/index.php/tip/C29

http://www.functionx.com/vbaexcel/Lesson05.htm

http://msdn.microsoft.com/en-us/library/bb211413(v=office.12).aspx





People who read this post also read :