Formularios de Visual Basic

primero creamos un nuevo documento







Microsoft Office Excel 2007

Con Excel 2007 podemos:

Creear mejores hojas de cálculo. 

Mejorar el analisis de las hojas de cálculo. 

Compartir hojas de cálculo e informacion empresarial con otras personas.

Administrar la informacion de la empresa de un modo más eficaz.

Microsoft Office Excel 2007 es una herramienta eficaz que puede usar para crear y aplicar formato a hojas de cálculo, y para analizar y compartir información para tomar decisiones mejor fundadas.

BusccarV

Les mostrare como utilizar la formula BuscarV

1. abra excel y cree una hoja con el nombre de "datos" algo asi:

 

2. ahora en una hoja aparte Coloque (codigo,Nombre,Grado,Carrera y enumerelas despus utilice el la celda B2 esta formula) :

=BuscarV(Ae,Codigo,Falso)



3. Despues ase lo mismo con las celdas de abajo:

 

4. Ahora coloque esta formula en la celda (C2) :

=BuscarV(A2,Codigo,3,Falso)    "como podran notar el codigo es casi el mismo lo unico que cambia es el '3' porque en la hoja que hisimos llamada Datos el grado se encuentra el la fila 3 y nombre en la 2 por eso es que son diferentes.

 

5. y luego ase lo mismo en las de abajo:

 

6. Ahora coloque la formula en la celda (D2) :

=BuscarV(A2,codigo,4,Falso)

 

7. Ahora ase lo mismo en las celdas de abajo :

 











 8. y asi es como queda:

Recuerden si desean pueden ponerle el color que quierran y tambien que cada ordenador (computadora) la forma en poner la fomula baria y no les sale la formula poniendola de esta forma pongala asi =BuscarV(A2;Codigo;2;Falso) y si no les sale revisen la formula bien porque talves puesieron algo mal.

 Macro escrita

hoy les voy a mostrar como aser una macro escrita es muy facil solo sigan estos pasos :


1. Abre excel para poder poner la macro escrita pulsa Alt + F11 y esto es lo qe te saldra:







2.  Luego has clic izquierdo en insertar y depues en modulo :





 3. luego escribes este codigo para poder abilitar la macro y escribir en la celda (si el End Sub tiene color azul es porque el codigo esta bien escrito) :


Sub Primera_macro()
'Esta macro permite escribir en una hoja de excel
Range("A1").Select
ActiveCell.FormulaR1C1 = "No."
End Sub







4. Para guardar la macro qe acavas de escribir pulsa el boton verde que esta debajo de formato asi guardaras lo qe ases y podras ver como vas con la macro en excel.







5. Les aconsejo que cada vez qe escriban un codigo simpre agan esto asi sabran si se equivocaron el algo y sabran mas facil donde esta el error y tambien sabran como van con la macro como ahorita isimos esto:







6.  ahora escriban este codigo este les ayudara a que la celda tenga negrita y este centrada (escribanlo debajo del primer codigo que pusieron asi sabra en que celda ponerlo y recuerden simpre sigan un orden asi se les ara mas facil )  :


Selection.Font.Bold = True
With Selection
        .HorizontalAlignment = xlCenter
        End With
 End Sub







7. y asi es como les tien que quedar por el momento :







8. ahora agan lo mismo con las otras celdas (aqui les pongo el ejemplo de como quedaria el codigo con los demas) :
Sub Primera_macro()
'Esta macro permite escribir en una hoja de excel
Range("A1").Select
ActiveCell.FormulaR1C1 = "No."
Selection.Font.Bold = True
With Selection
        .HorizontalAlignment = xlCenter
        End With
Range("B1").Select
ActiveCell.FormulaR1C1 = "Nombre:"
Selection.Font.Bold = True
With Selection
        .HorizontalAlignment = xlCenter
        End With
Range("C1").Select
ActiveCell.FormulaR1C1 = "Grado:"
Selection.Font.Bold = True
With Selection
        .HorizontalAlignment = xlCenter
        End With
Range("D1").Select
ActiveCell.FormulaR1C1 = "Carrera:"
Selection.Font.Bold = True
With Selection
        .HorizontalAlignment = xlCenter
        End With
End Sub
 


 
9. y asi es como va ahorita la macro escrita :





10. luego escriba este codigo para activar las celdas (A2-A6) :


 Range("A2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("A2:A4").Select
    Selection.AutoFill Destination:=Range("A2:A6"), Type:=xlFillDefault
    Range("A2:A6").Select
    Range("A2:A6").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        End With
End Sub


 


11. y asi es como quedo por el momento:


 


12. ahora para activas las celdas (B2-B6) escriba este codigo:


   Columns("B:B").ColumnWidth = 26.57
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "Michelle Rabanales Guzman"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "Cristian Moreira"
    Range("B4").Select
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "Luis Figueroa"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "Vera Aguilar"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "Georgina Sequeida"
End Sub


 


13. y asi es como queda:

14. luego escriba este codigo marcar las celdas y ponerles color :


    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("B7").Select
    Range("A6:D6").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    End With
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
         With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599993896298105
        End With
         Range("A2:D5").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599993896298105
    End With
    Range("A1:D1").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
    End With
    Range("A1:D5").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
    End With
End Sub

15. y asi es como queda:

16. ahora escriba este codigo para activar las celdas (C2-C6 y D2-D6) :


Range("B2:D6").Select
    Selection.Font.Bold = True
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "Quinto"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "Cuarto"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "Tercero"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "Quinto"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "Quinto"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "PCB"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "PAE"
    Range("D4").Select
    ActiveCell.FormulaR1C1 = "Basico"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "BACO"
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "MERCA"
    Range("D7").Select


End Sub

  


17. y asi es como queda nuestra macro escrita terminada :

18. Para guardar la macros escrita tiene que aser esto:

Primero aballance a inicio despues en guardar como luego la guardan como "Libro de excel habilitada para macros" guardar y listo ( si no la guardas asi no podras aser que funcione la macro).

Espero que les sirva de algo este ejemplo de macro escrita que hice. 

Contar

 Para poder utilizar esta formula solo deve aser lo sigiente:
1. haser una lista con los nombre de los alumnos (o lo que usted desee) depues utiliza esta formula =Contara(B2:B11)
espero que les sirva.

Contar.Si

Para utilizar esta formula puede aser lo siguiente:

la formuna pala utilisarlo es =contar.Si(B2:B14;D7)

Si

Para utilizar esta formula escriba:
 =Si(O(C3>0;D3>0);E2+C3-D3) "recuerden si nos les finciona pueden cambiar el ( ; ) por ( : )
sino les funciona revisen si escribieron bien la formula.

Calcular el Sueldo Liquido

Primero abra una nueva hoja en excel y ecriba esto en las celdas:
depues pulce Alt F11 y esto le saldra.
 
Para iniciar pulce insertar depues UserForm

 Luego pulce en etiquitas (la etiqueta esta representadapor: A) y aga lo siguiente:


Si desea panbiarle el tamaño de las letras en el cudro inferrior izquierdo pulce la obccion Font.

ahora aga esto con la obcion Cuadro de texto (esta representado ab).

Despues aga clic en el boton de comando:


Despues aga doble clic en el boton de calculo y escriba esto:


Private Sub CommandButton1_Click()
[A2] = TextBox1
[B2] = TextBox2
[C2] = TextBox3
[D2] = TextBox4
[G2] = TextBox5
[E2] = Val([C2]) + Val([D2])
[F2] = Val([C2]) * 0.0483
[H2] = Val([C2]) / 30 / 8 * Val([G2]) * 1.5
[I2] = Val([E2]) - Val([F2]) + Val([H2])
Range("A2").Select
Selection.EntireRow.Insert
Range("A2").Select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox1.SetFocus
End Sub
Ahora pulce el boton verde que esta debajo de Formato


y esto es lo que les saldra depues escriba la informacion el los espacion y pulcel el boton de calcular sueldos y listo.


Espero que les siva el ejercicio.