Coleccion macros excel

Solo disponible en BuenasTareas
  • Páginas : 15 (3654 palabras )
  • Descarga(s) : 0
  • Publicado : 11 de marzo de 2012
Leer documento completo
Vista previa del texto
MACROS EXEL.
Escribe texto en una celda

Sub Macro1()


Range("A1").Select


ActiveCell.FormulaR1C1 = "Ramón"


End Sub




Códigos más comunes
Trasladarse a una Celda
Range("A1").Select
Escribir en una Celda
Activecell.FormulaR1C1="Ramon"
Letra Negrita
Selection.Font.Bold = True
Letra Cursiva
Selection.Font.Italic = True
Letra Subrayada
Selection.Font.Underline =xlUnderlineStyleSingle
Centrar Texto
With Selection
.HorizontalAlignment = xlCenter
End With
Alinear a la izquierda
With Selection
.HorizontalAlignment = xlLeft
End With
Alinear a la Derecha
With Selection
.HorizontalAlignment = xlRight
End With
Tipo de Letra(Fuente)
With Selection.Font
.Name = "AGaramond"
End With
Tamaño de Letra(Tamaño de Fuente)
With Selection.Font
.Size = 15Descubre miles de cursos como éste en www.mailxmail.com 8
mailxmail - Cursos para compartir lo que sabes
.Size = 15
End With
Copiar
Selection.Copy
Pegar
ActiveSheet.Paste
Cortar
Selection.Cut
Ordenar Ascendente
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending , Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Orden Descendente
Selection.SortKey1:=Range("A1"), Order1:=xlDescending , Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Buscar
Cells.Find(What:=" Ramon ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Insertar Fila
Selection.EntireRow.Insert
Eliminar Fila
Selection.EntireRow.Delete
Insertar ColumnaSelection.EntireColumn.Insert
Eliminar Columna
Selection.EntireColumn.Delete
Abrir un Libro
Workbooks.Open Filename:="C:\Mis documentos\video safe 3.xls"
Grabar un Libro
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\piscis.xls ", FileFormat
_
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
Descubre miles de cursos como éste en www.mailxmail.com 9
mailxmail - Cursospara compartir lo que sabes

False, CreateBackup:=False













Abrir userform

Sub Auto_open()


Load UserForm1


UserForm1.Show


End Sub

Edición

Edición: Seleccionar celdas, rangos, filas, columnas, rangos

Oculta procedo de ejecución de la macro.

Sub selecciono01()


Application.ScreenUpdating = False


End Sub


Evitar que al ejecutar unamacro nos haga preguntas

Sub selecciono01()

Application.DisplayAlerts= False

End Sub



Selecciona una celda

Sub selecciono01()
Range("B7").Select 'selecciona la celda B7
End Sub


Seleccionar una columna

Sub selecciono02()
Range("B:B").Select 'selecciona toda la columna B
End Sub


Seleccionar rangos discontinuos

Sub selecciono03()
Range("A4:A10, D10,B5:B20").Select 'selecciona rangos discontinuos
End Sub


Seleccionar una celda del valor de una variable

Sub selecciono04()
Dim variable As Integer
variable = 5
Range("A" & variable).Select 'selecciona la celda cuya fila será el valor de la variable
End Sub


Seleccionar un rango indicado por variables

Sub selecciono05()
variable = 5
rango = ("B2" & ":E" & variable)
Range(rango).Select'selecciona el rango B2:E hasta la fila indicada en la variable
End Sub


Seleccionar Columnas, Filas y Celdas independientes

Sub selecciono06()
Range("A:A, D:F").Select 'selecciona las columnas A, D, E y F
End Sub


Seleccionar Celdas en relación a otra

Sub selecciono08()
Range("D3").Select
ActiveCell.Offset(2,1).Select 'selecciona la celda que se encuentra 2 filas por encima y 1columna a la derecha de la celda activa (=D3)
End Sub

Seleccionar y Ampliar un Rango
Sub selecciono09() 'ampliar el rango de selección
Range("A1:B5").Select
Selection.Resize(10, 4).Select '(en total serán 10 filas, 4 columnas)
'el resultado será A1:D10
End Sub

Seleccionar: combina celdas
Sub selecciono10() 'combina celdas seleccionadas
Range("B1:E1").Select
Selection.Merge
End Sub...
tracking img