Ciber control en excel - código fuente


Control de Ciber 
Puedes llevar de una forma muy sencilla el control de un pequeño Ciber.
Practica plantilla que puedes modificar dependiendo de tus necesidades.
Tenemos la hoja Principal(menú) haciendo clic en una de las cuatro imágenes este nos lleva a cada una de las hojas  PC 1, PC 2, PC 3, PC 4  y solo debemos registrar hora de entrada. 
Luego presionar botón detener y en forma automática va a registrar la hora de salida y el valor a pagar.
Fórmulas:
=hora(ahora())&”:”&minuto(ahora())
=(celda salida – celda entrada)*monto a cobrar*24
Para modificar el precio del monto a cobrar en este caso yo lo dispuse en $ 350 , debes presionar tecla ALT + F11 .
Una vez en el editor de VBA  debes modificar esta formula:
ActiveCell.FormulaR1C1 = “=(R[-3]C-R[-6]C)*350*24″
Cambia el 350 por el monto que tu desees y guarda los cambios.
Para hacer un nuevo registro presionas botón limpiar.


El código Fuente no es de mi autorìa los créditos a la youtuber 

Comentarios

Publicar un comentario

Entradas populares de este blog

Estructuras Cíclicas o Repetitivas

Estructuras Cíclicas o Repetitivas Ejercicio de Consola: Se desea calcular el salario neto mensual de un trabajador en función del número de horas trabajadas y las diferentes tasas de impuestos de acuerdo a la siguiente tabla: Las primeras 40 horas se pagan a tarifa normal. Las horas que excedan a 40, se pagan a 1,5  veces de la tarifa normal. Las tasas de impuestos son: Los primeros S/. 200,00 (nuevos soles) son libres de impuestos. Los siguientes S/. 200,00 (nuevos soles) tienen un impuesto del 25%. Los restantes o excedentes tienen un impuesto del 35%. Nota: El ejercicio debe repetirse dos veces sin salir de la ejecución.     Sub Main()         Dim nom As String         Dim rep, hor, exc As Integer         Dim suel, pag, sal, pag1, sal1, imp, cob As Single       ...
Leer más