REFLEXION.
Sobre el amor se ha escrito un número impresionante de libros. Unos excelentes y dignos de figurar en una antología de la excelencia. Otros, por cierto, la gran mayoría, han sido de pésima calidad. Estos últimos son los que han alimentado las frases trilladas y los conceptos equivocados (si es posible el término) sobre este sentimiento tan complejo.
Las definiciones se han dado desde el punto de vista de la literatura, la filosofía, la biología, la psicología y la historia. Intentar, por lo tanto, seguir añadiendo conceptos acerca del amor es una empresa sumamente peligrosa. Ya que el amor es un negocio muy ariesgado aveces ganamos y muchas veces perdemos y no todos queremos estara arruinados.
NOTAS DE CLASE.
En esta clase dimos terminacion a nuestro trabajo de la agencia de viajes terminando asip unas semanas
largas de mucho trabajo que a nosotros nos costo mucho
terminarlo, ya que no entendimos muy bien en las
formulas dadas por la profesora y en muchas ocaciones
las teniamos malas.
¿ PROCEDIMIENTO PARA TRABAJAR CON FORMULAS?
Presione La Teclas Alt + F11, para entrar al editor de Visual Basic.
Activa las siguientes opciones:
De clic en el Menú Ver y elija la opción Explorador de Proyectos
De clic en el Menú ver y elija la opción Ventana Propiedades
Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyecto se observara que se inserto el UserForm.
Ahora crearas un formulario con el siguiente aspecto:
el formulario tendrá:
Tres etiquetas
Tres Textbox
Un Botón de Comando
Los datos que se preguntaran serán Nombre y Edad, los Días Vividos se generaran automáticamente cuando insertes la edad. A continuación se muestra como se deben de programar estos Controles:
Programación de los Controles:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
Rem aquí se crea la Formula
TextBox3 = Val(TextBox2) * 365
Rem El Textbox3 guardara el total de la multiplicación del Textbox2 por 365
Rem El Comando Val permite convertir un valor de Texto a un Valor Numérico
Rem Esto se debe a que los Textbox no son Numéricos y debemos de Convertirlos
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Esto va permitir que cuando se ejecute el formulario y se de la edad el resultado de los días vividos aparecerá en el Textbox3 y se escribirá también en Excel. El comando Val es un comando de Visual Basic que te permite convertir un valor de texto a un valor numérico. Recuerden el Comando Rem se utiliza para poner Comentarios únicamente y no afecta a la programación.
Este Archivo de esta Macro se llama Macros de Edad y viene incluido aquí.
Generaremos otro ejemplo, Crea el Siguiente Formulario con los siguientes datos:
5 Etiquetas
5 Textbox
1 Botón de Comando
Los datos que se preguntaran serán Nombre, Días Trabajados, Pago por Día, Bonos y Sueldo Neto.
Genera el siguiente código:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Changxange("D9").SeleletiveCell.FormulaR1C1 = TextBox4
Rem aquí se crea la formula
TextBox5 = Val(TextBox2) *Val(TextBox3) + Val(TextBox4)
Rem El TextBox5 guardarael total
End Sub
Private Sub TextBox5_Change()
Range("E9").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Cuando se introduzca el Bonos automáticamente se generara el Sueldo Neto.
Presione La Teclas Alt + F11, para entrar al editor de Visual Basic.
Activa las siguientes opciones:
De clic en el Menú Ver y elija la opción Explorador de Proyectos
De clic en el Menú ver y elija la opción Ventana Propiedades
Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyecto se observara que se inserto el UserForm.
Ahora crearas un formulario con el siguiente aspecto:
el formulario tendrá:
Tres etiquetas
Tres Textbox
Un Botón de Comando
Los datos que se preguntaran serán Nombre y Edad, los Días Vividos se generaran automáticamente cuando insertes la edad. A continuación se muestra como se deben de programar estos Controles:
Programación de los Controles:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
Rem aquí se crea la Formula
TextBox3 = Val(TextBox2) * 365
Rem El Textbox3 guardara el total de la multiplicación del Textbox2 por 365
Rem El Comando Val permite convertir un valor de Texto a un Valor Numérico
Rem Esto se debe a que los Textbox no son Numéricos y debemos de Convertirlos
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Esto va permitir que cuando se ejecute el formulario y se de la edad el resultado de los días vividos aparecerá en el Textbox3 y se escribirá también en Excel. El comando Val es un comando de Visual Basic que te permite convertir un valor de texto a un valor numérico. Recuerden el Comando Rem se utiliza para poner Comentarios únicamente y no afecta a la programación.
Este Archivo de esta Macro se llama Macros de Edad y viene incluido aquí.
Generaremos otro ejemplo, Crea el Siguiente Formulario con los siguientes datos:
5 Etiquetas
5 Textbox
1 Botón de Comando
Los datos que se preguntaran serán Nombre, Días Trabajados, Pago por Día, Bonos y Sueldo Neto.
Genera el siguiente código:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub.
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("D9").Select
ActiveCell.FormulaR1C1 = TextBox4
Rem aquí se crea la formula
TextBox5 = Val(TextBox2) *Val(TextBox3) + Val(TextBox4)
Rem El TextBox5 guardarael total
End Sub
Private Sub TextBox5_Change()
Range("E9").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Cuando se introduzca el Bonos automáticamente se generara el Sueldo Neto.
Presione La Teclas Alt + F11, para entrar al editor de Visual Basic.
Activa las siguientes opciones:
De clic en el Menú Ver y elija la opción Explorador de Proyectos
De clic en el Menú ver y elija la opción Ventana Propiedades
Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyecto se observara que se inserto el UserForm.
Ahora crearas un formulario con el siguiente aspecto.
el formulario tendrá:
Tres etiquetas
Tres Textbox
Un Botón de Comando
Los datos que se preguntaran serán Nombre y Edad, los Días Vividos se generaran automáticamente cuando insertes la edad. A continuación se muestra como se deben de programar estos Controles:
Programación de los Controles:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
Rem aquí se crea la Formula
TextBox3 = Val(TextBox2) * 365
Rem El Textbox3 guardara el total de la multiplicación del Textbox2 por 365
Rem El Comando Val permite convertir un valor de Texto a un Valor Numérico
Rem Esto se debe a que los Textbox no son Numéricos y debemos de Convertirlos
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Esto va permitir que cuando se ejecute el formulario y se de la edad el resultado de los días vividos aparecerá en el Textbox3 y se escribirá también en Excel. El comando Val es un comando de Visual Basic que te permite convertir un valor de texto a un valor numérico. Recuerden el Comando Rem se utiliza para poner Comentarios únicamente y no afecta a la programación.
Este Archivo de esta Macro se llama Macros de Edad y viene incluido aquí.
Generaremos otro ejemplo, Crea el Siguiente Formulario con los siguientes datos:
5 Etiquetas
5 Textbox
1 Botón de Comando
Los datos que se preguntaran serán Nombre, Días Trabajados, Pago por Día, Bonos y Sueldo Neto.
Genera el siguiente código:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("D9").Select
ActiveCell.FormulaR1C1 = TextBox4
Rem aquí se crea la formula
TextBox5 = Val(TextBox2) *Val(TextBox3) + Val(TextBox4)
Rem El TextBox5 guardarael total
End Sub
Private Sub TextBox5_Change()
Range("E9").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Cuando se introduzca el Bonos automáticamente se generara el Sueldo Neto.
EJEMPLO DE EJERCICIO.
APLICABILIDAD.
En esta clase dimos final a un trabajo inmeso en sus funciones
como las son de formulas de ecxel.
INQUIETUDES.
Ninguna inquietud hasta el momento
AUTOEVALUACION.
Mi autoevaluacion es de 5.0 porque entregamos el trabajo completo
COEVALUACION.
Mi compañera se merece un 5. 0 porque al igual que yo trabajamos parejo
con la profesora.
CONCLUSIONES.