Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 54 vistas

    Macro 5

    Cargado por

    Fersh Valderramash
    Este documento describe cómo crear una macro programada en Excel para escribir un nombre en una celda y luego explica cómo crear formularios en Excel y programarlos para insertar datos en hojas de cálculo. Proporciona ejemplos de código para crear macros, programar cuadros de texto, botones y formularios para ingresar y mostrar datos.

    Copyright:

    © All Rights Reserved
    Descargue como PPTX, PDF, TXT o lea en línea desde Scribd

    Macro 5

    Cargado por

    Fersh Valderramash
    54 vistas12 páginas
    Este documento describe cómo crear una macro programada en Excel para escribir un nombre en una celda y luego explica cómo crear formularios en Excel y programarlos para insertar datos en hojas de cálculo. Proporciona ejemplos de código para crear macros, programar cuadros de texto, botones y formularios para ingresar y mostrar datos.

    Título original

    Macro5 (1)

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    PPTX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento describe cómo crear una macro programada en Excel para escribir un nombre en una celda y luego explica cómo crear formularios en Excel y programarlos para insertar datos en hojas de cálculo. Proporciona ejemplos de código para crear macros, programar cuadros de texto, botones y formularios para ingresar y mostrar datos.

    Copyright:

    © All Rights Reserved
    Descargue como PPTX, PDF, TXT o lea en línea desde Scribd
    Descargar como pptx, pdf o txt
    54 vistas12 páginas

    Macro 5

    Cargado por

    Fersh Valderramash
    Este documento describe cómo crear una macro programada en Excel para escribir un nombre en una celda y luego explica cómo crear formularios en Excel y programarlos para insertar datos en hojas de cálculo. Proporciona ejemplos de código para crear macros, programar cuadros de texto, botones y formularios para ingresar y mostrar datos.

    Copyright:

    © All Rights Reserved
    Descargue como PPTX, PDF, TXT o lea en línea desde Scribd
    Descargar como pptx, pdf o txt
    Está en la página 1de 12

    Genere una Macro Programada que escriba su nombre en una celda.

    Ejercicio
    Sub Macro1()
    '
    ' Macro grabada el 12/05/2013 por Ester
    '
    ' Acceso directo: CTRL+e
    '
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Ester"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Los Limoneros # 3869"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "12-05-2014"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Talcahuano"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Concepcin"
    End Sub
    Visual Basic para Excel
    Vamos a Modulo y crearemos una Macro por cdigo
    Ahora que tenemos la macro realizada
    Vamos a guardar los cambios, y ejecutarla en el ambiente de excel (hoja1)
    Macro Programada

    Trasladarse a una Celda
    Range("A1").Select
    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
    Cdigo
    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
    Tamao de Letra(Tamao de Fuente)
    With Selection.Font
    .Size = 15
    End With
    Copiar
    Selection.Copy
    Cdigo
    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.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Insertar Fila
    Selection.EntireRow.Insert
    Eliminar Fila
    Selection.EntireRow.Delete
    Insertar Columna
    Selection.EntireColumn.Insert
    Eliminar Columna
    Selection.EntireColumn.Delete
    Cdigo
    A continuacin vamos a crear un formulario y como programarlo:

    1.- Entrar en el editor de Visual Basic
    2.- Ir a Insertar elija la opcin UserForm
    3.- En el cuadro de Herramientas elija el Control Etiqueta el que tiene la A
    4.- Inserte 3 etiquetas
    5.-Cambie la frase por Nombre, Direccin y Telfono
    6.-En el cuadro de Herramientas elija el Cuadro de Texto el que tiene ab
    7.-Inserte 3 cuadro de texto
    8.-Elija del cuadro de Herramientas un Botn
    9.-Inserte el botn en el formulario y cambio el nombre del botn a Insertar


    Crear Formularios y Programarlos
    Ahora a programar:

    10.- El primer TextBox1 lo programaremos:

    Private Sub TextBox1_Change()
    Range("A2").Select
    ActiveCell.FormulaR1C1 = TextBox1
    End Sub

    11.- El Segundo TextBox2:

    Private Sub TextBox2_Change()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = TextBox2
    End Sub



    Crear Formularios y Programarlos
    12.- El tercer TextBox3:

    Private Sub TextBox3_Change()
    Range("C2").Select
    ActiveCell.FormulaR1C1 = TextBox3
    End Sub

    13.-Ahora hay que programar el botn:

    Private Sub CommandButton1_Click()
    Selection.EntireRow.Insert
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox3 = Empty
    TextBox1.SetFocus
    End Sub
    Crear Formularios y Programarlos
    14.- El formulario est programado.

    15.- Volvamos a la Hoja 1 en excel
    16.-Insertemos un cuadro de texto, con la escritura insertar
    17.- Programaremos el cuadro de texto

    Sub CuadroTexto_Haga_clic_en()
    Load UserForm1
    UserForm1.Show
    End Sub

    18.- Estamos listo para ejecutar el cuadro de texto y el formulario.
    Crear Formularios y Programarlos
    Realice un formulario que inserte :

    Cdigo de producto
    Nombre de producto
    Cantidad de producto

    (Hoja2)
    Ejercicio
    Realice un formulario que inserte :

    Rut
    Sueldo
    Descuento

    -El Rut validado para insertar
    - El descuento ser de un 5% por sobre el sueldo

    (Hoja3)
    Ejercicio

    También podría gustarte