Prueba

Solo disponible en BuenasTareas
  • Páginas : 8 (1940 palabras )
  • Descarga(s) : 9
  • Publicado : 1 de abril de 2010
Leer documento completo
Vista previa del texto
VBA y hojas Excel
Nombre de la hoja (variable)
'asigna nombre variable a la hoja a variable
strHoja = ActiveWindow.Caption
Windows(strHoja).Activate 'para activar el libro del nombre asignado
Insertar hoja nueva (elegir posición)
ActiveWorkbook.Sheets.Add Before:=Worksheets("Informe1")
Insertar hoja nueva (primera posición)
Sheets("Informe1").Copy After:=Worksheets(Worksheets.Count)
Mover hojaWorksheets("informe5").Move After:=Worksheets("Informe4")
Ordenar hojas (orden alfabético)
intNumeroHojas = ActiveWorkbook.Worksheets.Count
For i = 1 To intNumeroHojas
  For j = i To intNumeroHojas
    If LCase(Worksheets(j).Name) <LCase(Worksheets(i).Name) Then
      Worksheets(j).Move Before:=Worksheets(i)
    End If
  Next j
Next i
Suprimir una hoja determinadaApplication.DisplayAlerts = False
For i = 1 To Sheets.Count
  Sheets(i).Activate
    xxx = ActiveCell.Worksheet.Name
      If xxx = "Informe" Then
        ActiveWindow.SelectedSheets.Delete
      End If
Next
Application.DisplayAlerts = True
Seleccionar primera hoja
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Seleccionar última hoja
ActiveWindow.ScrollWorkbookTabs Position:=xlLast

Formatos Excel y VBA
Excel pone adisposición un montón de formatos. Abajo presentamos como modificar algunos de ellos a través de macros Excel VBA.
Redondear celdas
Set Area = Selection
For Each Cell In Area
  z = Round(Cell, 2)
    Cell.Value = z
  Cell.NumberFormat = "#,##0.00"
Next Cell
Formatear fuente
Cells.Select
With Selection.Font
  .Name = "MS Sans Serif"
  .Size = 10
End With
Líneas de divisiónActiveWindow.DisplayGridlines = False
Indice de colores
ActiveWorkbook.Colors(44) = RGB(236, 235, 194) 'verde
Colorear rango
Range("A1:B10").Interior.ColorIndex = 44
Cambiar entre estilos A1 / RC
Application.ReferenceStyle = xlA1Application.ReferenceStyle = xlR1C1

Repasar archivos Excel de una carpeta
Esta macro de Excel presenta una solución para repasar todos los archivos Excel (o de cualquier tipo) de una carpeta. Incluso nos dejaabrir cada archivo Excel automáticamente para luego importar datos de todos los archivos de esa carpeta determinada.
Presentar los archivos Excel de la carpeta
Los ejemplos emplean la función DIR, y el código VBA presentado abajo, nos indica los nombres de cada archivo Excel.
Sub RepasarCarpeta()
'en este ejemplo sacamos los nombres de los archivos de la carpeta.
'dimensionesDim strArchivoExcel As String
Dim strNombreCarpeta As String
'carpeta a repasar
strNombreCarpeta = "C:/MisArchivosExcel"
'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
MsgBox strArchivoExcel
strArchivoExcel = Dir
Loop
End Sub
Sacar datos de todos los libros Excel de la carpeta
En este ejemplo añadimos la posibilidad deutilizar el objeto Workbook, para poder abrir (y cerrar) cada archivo Excel (para lectura o modificación).
Sub RepasarCarpeta2()
'en este ejemplo abriremos cada libro de la carpeta para sacar 
' información de 'las celdas A1 y B1.
'dimensiones
Dim wb As Workbook
Dim strArchivoExcel As String
Dim strNombreCarpeta As String
'carpeta a repasar
strNombreCarpeta = "C:/MisArchivosExcel"
'prepararcarpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
Set wb = Workbooks.Open(strNombreCarpeta & "\" & strArchivoExcel)
  MsgBox wb.ActiveSheet.Cells(1, 1)
  MsgBox wb.Application.Sheets("Hoja2").Cells(2, 1).Value
wb.Close False
Set wb = Nothing
strArchivoExcel = Dir
Loop
End Sub

Excel VBA y la paleta de coloresExcel emplea una paleta de 56 colores predefinidos. Puedes cambiar estos colores desde Herramientas - Opciones - Color o desde código VBA. Abajo presentamos unos ejemplos de código VBA para modificar la paleta de colores del libro Excel.
Por desgracia, a muchos de nosotros los colores de la hoja Excel predefinidos por Microsoft parecen bastante fuertes, y a veces hacen que la hoja sea...
tracking img