Ir al contenido principal

Destacados

🐵 Un juego gratuito para aprender sumas con Donky

  Este proyecto es una actividad interactiva diseñada para que niños y niñas practiquen sumas de manera entretenida, visual y afectiva. El protagonista es Donky, un monito simpático que acompaña al jugador durante todo el proceso, reaccionando a cada respuesta con expresiones claras y animaciones que refuerzan el aprendizaje sin presión. El juego presenta una serie de 12 sumas aleatorias entre números del 1 al 6. Cada ejercicio aparece en pantalla con botones grandes y coloridos que permiten responder con facilidad, incluso para los más pequeños. El diseño está pensado para que el niño pueda jugar sin ayuda, con una interfaz limpia, directa y amigable.   🎮 Cómo funciona la experiencia de juego El corazón del juego es la interacción emocional con Donky. Su comportamiento cambia según la respuesta del niño: •             Estado inicial: Donky aparece en posición neutral, listo para comenzar el ejercicio. •  ...
Publicar un comentario
Leer más
Etiquetas

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:


Etiquetas:

Comentarios

Publicar un comentario

Entradas populares