Ir al contenido principal

Destacados

📌 Boy y las Sumas: Aprender Jugando con HTML, CSS y JS

  Boy y las Sumas es un juego educativo diseñado para ayudar a los niños a mejorar sus habilidades matemáticas de una manera divertida e interactiva. A través de un entorno amigable y dinámico, los jugadores resuelven sumas mientras acompañan a Boy, el protagonista, en su aventura de aprendizaje. 🌟 Características principales: ✅ Interfaz atractiva: Diseñada con HTML y CSS, con colores vibrantes y un diseño intuitivo. ✅ Interacción en tiempo real: Gracias a JavaScript, el juego responde a las acciones del usuario, mostrando efectos visuales y sonoros. ✅ Feedback inmediato: Los jugadores reciben respuestas dinámicas según acierten o fallen, incentivando el aprendizaje. ✅ Elementos visuales personalizados: Boy cambia de expresión dependiendo de las respuestas, haciendo la experiencia más envolvente. 🚀 Un juego educativo pensado para potenciar el aprendizaje matemático mientras se disfruta del proceso. Perfecto para niños, padres y docentes que buscan una forma interactiva de practic...

Ingreso Egreso en Excel con macros

Nueva planilla para el ingreso e egreso de gastos.
Puedes modificar esta planilla tanto para un negocio o gastos personales.
Mediante una macro(programación)  se efectúa en forma automática el ingreso de  la información.
A continuación el desarrollo paso a paso.
Primero insertamos un modulo para ello debemos tener habilitada la ficha programador excel 2010 o Desarrollador Excel 2013-2016. Puedes acceder a la ficha con las teclas alt+F11
Archivo creado para el curso Excel Programando.
Al final del articulo encontraras un link para descargar el archivo.

MODULO 

Sub MOVIMIENTOS()
Dim concepto As String
Dim valor As Double
Dim movimiento As String
Dim ultfila As Long

 concepto = Cells(7, 6)

 valor = Cells(8, 6)

 movimiento = Cells(9, 6)

 ultfila = Sheets("MOVIMIENTOS").Range("D" & Rows.Count).End(xlUp).Row
 Sheets("MOVIMIENTOS").Cells(ultfila + 1, 4) = concepto
 If movimiento = "INGRESO" Then

 Sheets("MOVIMIENTOS").Cells(ultfila + 1, 5) = valor
 Else
 Sheets("MOVIMIENTOS").Cells(ultfila + 1, 6) = valor

 End If
 MsgBox "MOVIMIENTO INGRESADO EXITOSAMENTE"


End Sub




DESCARGAR ARCHIVO:


Comentarios

Entradas populares