viernes, 4 de enero de 2008

ejemplos macros excel vba

sub gridlines

'seria bueno que ejecutes el codigo linea por linea
'como te explique en algun post anterior
'debes dar click sobre la macro en la primera linea
'y luego de presionar f8 podras ejecutar tus macros de excel por pasos



ActiveWindow.DisplayGridlines = False ' quitar las lineas de la hoja


ActiveWindow.DisplayGridlines = True ' mostrar las lineas de la hoja



end sub


sub trabajndo_con_colores

'en el excel puedes modificar 56 colores
' en este ejemplo modificaremos el color 44 de la paleta de colores


ActiveWorkbook.Colors(44) = RGB(230, 230, 233)
'con esto cambias el color con el index 44 en todas las celdas del libro


'restablecer los colores por defecto
ActiveWorkbook.ResetColors


'copiar colores desde otro libro
ActiveWorkbook.Colors = Workbooks("coloradon.xls").Colors
'con esto copias los colores del libro "coloradon.xls" para tu libro activo.


'-------------------------
'y si solo quieres trabajar con una celda o selección
'como te dije puedes usar cualquiera delos 56 colore que la paleta de Excel

ActiveCell.Interior.ColorIndex = 16 'en este caso le asignamos color 16 a la celda


Selection.Interior.ColorIndex = 56 'ahora sobre la selección(una celda o varias)


end sub