miércoles, 25 de abril de 2012

Formularios con celdas inactivas

Procedimiento
Primeramente se le pondra nombre a las hojas.
la primera hoja se llamara CAPTURA y la otra BASE_DATOS
Presionamos Alt+f11
nos aparecera la vista de Visual Basic
Insertamos un Userform
colocamos CODIGO, NOMBRE, CARGO Y SUELDO IGSS Y EL LIQUIDO
EN EL BOTON SE COLOCARA LOS SIGUIENTES CODIGOS
textbox1=A1
textbox2=b1
textbox3=c1
textbox4=d1
textbox5=e1
textbox6= val(textbox4) *0.0483
Textbox7= val(texbox4) - val(textbox6)

Colorear celdas Excel al hacer click



vbaproyecto
Este trocito de código VBA Excel colorear celdas al hacer click sobre ellos. Es una macro que utiliza el evento Worksheet_SelectionChange de las hojas de libro Excel.


Por eso hay que incluir este código en los objetos de las hojas. En ejemplo abajo habría que poner el código en los contenedores de código de una o mas de los objetos Hoja1, Hoja2 y Hoja3.

Para colorear solo la celda activa

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 3
End Sub

Para colorear todas las celdas seleccionadas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.ColorIndex = 3
End Sub