Ir al contenido principal

Destacados

Pandy y las sumas: Un juego mágico para aprender matemáticas 🎮🐼✨-HTML, CSS y JS

  En un bosque encantado de bambú, donde la luz juega entre las hojas y las partículas flotantes crean una atmósfera mágica, Pandy, nuestro adorable panda, invita a los niños a descubrir el fascinante mundo de las sumas. Pandy y las sumas es un juego educativo diseñado para que aprender matemáticas sea una experiencia divertida y envolvente. 🌿 Una aventura entre números y naturaleza Desde el inicio, quise que este juego tuviera un ambiente cálido y relajante, por lo que cada detalle fue cuidadosamente creado: un fondo natural con tonos verdes suaves, animaciones que aportan vida y efectos mágicos como partículas flotantes que realzan la atmósfera del bosque de bambú. Pero lo más importante es su objetivo: hacer que las sumas sean accesibles y entretenidas para niños pequeños. En lugar de ejercicios repetitivos y monótonos, Pandy y las sumas convierte el aprendizaje en un reto dinámico y amigable. 📚 Aprender jugando: una herramienta para la educación El juego se basa en ejercicios...

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