Códigos Más Comunes en Macros

CÓDIGOS MÁS COMUNES EN MACROS SELECCIÓN DE CELDAS  S eleccionar una celda

Combinar rango de celdas celdas Range("A2:C3").Select Selection.MergeCells = True

Range(“A4”).Select

 S eleccionar un rang o de celdas celdas

BORRAR VALORES Y FORMATOS DE UNA CELDA

Range(“A1:F10”).Select

Bor rar contenido excepto formatos formatos  Ac tivar una celda

Selection.ClearContents

Range(“A4”).Activate

Bor rar todo  S eleccionar toda la la hoja

Selection.Clear

Cells.Select

ESCRIBIR DATOS Es cribir dato dato en una celda celda Range("A3").Value = "ADOLFO"

Escribir dato en una determinada hoja Worksheets(1).Range("A5").Value = "FELIPEZ"

Es cribir dato dato en un grupo de celdas celdas

Bor rar formatos formatos de celda Selection.ClearFormats

B orr ar los datos de toda la hoja de cálculo Cells.Clear

Bor rar bordes a un gr upo de celdas celdas seleccionadas seleccionadas Selection.Borders.LineStyle = xlNone

FORMATO DE CELDAS (FUENTE)

Range("A9:C19").Value = "KASANDRA"

 As ig nar tipo de letra en celdas especí fic as Escribir dato en la hoja activa

Range("A3:C10").Font.Name = "ALGERIAN"

 ActiveSheet.Range("A7").Value = "ALEJANDRO"

 As ig nar tipo de letra en la celda activa activa Escribir dato en la celda activa

 ActiveCell.Font.Name = "Courier New"

 ActiveCell.Value = "ALE-KASA"

 As ig nar tipo de letra a un g rupo de celdas selecc ionadas Es cribir dato dato en un determinado determinado libro

Selection.Font.Name = "Times New Roman"

 Application.Workbooks(1).Worksheets(1).Range("B15").Value = "ALE FELIPEZ"

 As ig nar tamaño tamaño de letra en la celda activa activa Es cribir dato dato en una celda celda  Activecell.FormulaR1C1="ADOLFO"

Es cribir dato dato en un rango de celdas celdas s eleccionadas eleccionadas

 ActiveCell.Font.Size = 20

 As ig nar color de fuente en la celda activa activa  ActiveCell.Font.ColorIndex = 3 ‘Donde el valor debe ser de 1 a 56

Selection.Value="ADOLFO"

COMBINAR CELDAS Combinar C eldas eldas Range(“B2:E2”).Select Selection.Merge

Desc ombinar ombinar C eldas eldas Range(“B2:E2”).Select Selection.UnMerge

 Apli car fuente negr ita en la celda activa activa  ActiveCell.Font.Bold = True

 Apli car fuente curs iva en la celda activa activa  ActiveCell.Font.Italic = True

 Apli car fuente subr ayado en la celda activa activa  ActiveCell.Font.Underline = True

 Apli car color de relleno en en la celda activa activa  ActiveCell.Interior.ColorIndex = 5

 Apli car color de fuente en la celda activa activa  ActiveCell.Font.ColorIndex = 4

Página 1 de 3

 Apli car color de borde a un gr upo de celdas s eleccionadas Selection.Borders.ColorIndex = 22

 Apli car neg rita a un gr upo de celdas s eleccionadas Selection.Font.Bold = True

 Ali near celda jus tific ado horizontal  ActiveCell.HorizontalAlignment = xlJustify

 Ali near celda centrado vertical  ActiveCell.VerticalAlignment = xlCenter

 Apli car tamaño de fuente a un g rupo de celdas selecci onadas Selection.Font.Size = 16

 Ali near celda s uperior vertic al  ActiveCell.VerticalAlignment = xlTop

 Apli car color de fuente a un gr upo de celdas s eleccion adas Selection.Font.ColorIndex = 4

 Ali near celda infer ior ver tical  ActiveCell.VerticalAlignment = xlBottom

 Apli car color de relleno a un g rupo de celdas selecci onadas Selection.Interior.ColorIndex = 1

 Ali near celda jus tific ado vertical  ActiveCell.VerticalAlignment = xlJustify

 Apli car color de fuente a una celda seleccionada  ActiveCell.Font.Bold = True

 Apli car formatos de número Columns(“A:A”).NumberFormat=”General” Columns(“B:B”).NumberFormat=”dd/mm/yyyyl” Columns(“C:C”).NumberFormat=”#.##0,00”

 As ig nar color de relleno a una celda seleccionada  ActiveCell.Interior.ColorIndex = 6

 As ig nar color de borde de un g rupo ce celdas selecc ionadas Selection.Borders.ColorIndex =22

 As ig nar negr ita a un g rupo de celdas s eleccion adas Selection.Font.Bold =True

 As ig nar tipos de bordes a una grupo de celdas selecc ionadas Selection.Borders.LineStyle = xlDouble Selection.Borders.LineStyle = xlThick Selection.Borders.LineStyle = xlDash Selection.Borders.LineStyle = xlContinuous Selection.Borders.Weight = xlMedium Selection.Borders.LineStyle = xlContinuous Selection.Borders.Weight = xlMedium

ALINEACIONES DE CELDA

Colocar c omentario a una celda Range("A2").Select  ActiveCell.AddComment "Esta venta no fue facturada"

PORTAPAPELES – CORTAR  – COPIAR  – PEGAR Copiar Selection.Copy

Cortar Selection.Cut

Peg ar Todo Selection.PasteSpecial Paste:=xlPasteAll, OPERATION:=xlNone, SKIPBLANKS:=False, Transpose:=False

Peg ar sólo valores Selection.PasteSpecial Paste:=xlPasteValues, OPERATION:=xlNone, SKIPBLANKS:=False, Transpose:=False

Peg ar Formatos Selection.PasteSpecial Paste:=xlPasteFormats, OPERATION:=xlNone, SKIPBLANKS:=False, Transpose:=False

Peg ar Ancho de columnas Selection.PasteSpecial Paste:=xlPasteColumnWidths, OPERATION:=xlNone, SKIPBLANKS:=False, Transpose:=False

Peg ado transpuesto  Ali near celda centrado horiz ontal  ActiveCell.HorizontalAlignment = xlCenter

Selection.PasteSpecial Paste:=xlPasteAll, OPERATION:=xlNone, SKIPBLANKS:=False, Transpose:=True

 Ali near celda a la izquierda horizon tal

Liberar el Portapapeles

 ActiveCell.HorizontalAlignment = xlLeft

Selection.CutCopyMode=False

 Ali near celda a la derecha hori zontal  ActiveCell.HorizontalAlignment = xlRight

Página 2 de 3

TRABAJANDO CON FILAS Insertar una fila Selection.EntireRow.Insert

Eliminar una fila Selection.EntireRow.Delete

Ocultar una fi la Selection.EntireRow.Hidden = True

 Mostr ar una fila Selection.EntireRow.Hidden = False

 Aj us tar fila un tamaño espec ífi co Rows(“1:100”).RowHeight = 15

TRABAJANDO CON COLUMNAS Insertar una columna Selection.EntireColumn.Insert

Copiar una hoja Sheets(1).Copy

Imprimir una hoja Sheets.PrintOut

Vis ta Pr eliminar de una hoja Sheets.PrintPreview

ENTRADA Y SALIDA DE DATOS InputBox (Ing reso de datos a través de una ventana) Range(“A2”).Value=InputBox(“Ingrese su nombre”) Forma completa: Range("a2").Value = InputBox("Ingrese su ciudad", _ "Excel", "La Paz", 10000, 8000)

 Msg B ox (C aja de mensaje) MsgBox ("Bienvenido a la Hoja") MsgBox ("El importe final es de " & importe & " Bs.")

TRABAJANDO CON TEXTO

Eliminar una columna Selection.EntireColumn.Delete

Cambiar un texto de Mayúsc ulas a Minúsculas Selection.Value = LCase(ActiveCell)

Ocultar una columna Selection.EntireColumn.Hidden = True

Cambiar un texto de Minúsculas a Mayúsculas Selection.Value = UCase(ActiveCell)

 Mostr ar una columna Selection.EntireColumn.Hidden = False

 Aj us tar columna al tamaño del texto Columns("A:A").EntireColumn.AutoFit

 Aj us tar columna a un tamaño es pecífi co Columns("A:A").ColumnWidth = 10.71

TRABAJANDO CON HOJAS Insertar una hoja Sheets.Add

Eliminar una hoja Sheets(2).Delete Sheets(“ventas”).Delete

Ocultar una hoja Sheets(2).Visible=False

 Mostr ar una hoja Sheets(2).Visible=True

Página 3 de 3