Descripción

Fichero

Blog

1

Macro con la que se crea un juego.

Juego de la última piedra. Ud. juega contra la máquina.  Se dispone de un montón de piedras. Se pueden quitar 1, 2 o 3 piedras en cada tirada. Comienza jugando usted y el último que quite pierde. Suerte!!!

piedras.xls

2

Glosario de Funciones de Excel en varios idiomas. Se necesita al programar macros que usan funciones ya que estas deben estar en inglés. Ejemplo: En una macro puedes usar la función ‘=sum’, pero si usas ‘=suma’ dará error.                                                      

glosario.xls

glosarioALL.xls

3

En un listado con fechas separa por semanas.  

CeldasVacias.xls

4

Método Montecarlo de simulación

600montecarlo.xls

5

Curso de macros

Mac01.xls

6

Cálculo de Números Primos

primos.xls

7

Modelo de Simulación de Compra Venta de Valores en Bolsa.

Se generan las cotizaciones durante el número de sesiones que indica el usuario. Cada día se destinan 700 euros a comprar acciones, sobre las que se dan tres órdenes de venta. Venta 1: Por importe de 100 €, vender si se gana un 5%. Venta 2:  Por importe de 200 €, vender si se gana un 10%. Venta 3:  Por importe de 400 €, vender si se gana un 20%. Además, cada día se destinan otros 700 euros a liquidez, dando tres órdenes de compra. Compra 1: Por importe de 100 €, comprar si el precio baja un 5%. Compra 2: Por importe de 200 €, comprar si el precio baja un 10%. Compra 3: Por importe de 400 €, comprar si el precio baja un 20%. Se lleva un estudio de las acciones en cartera, el capital y el patrimonio. Finalmente se hace un gráfico.

CompVtaBolsa.xls

8

Ingeniosa Macro realizada con Grabadora que permite copiar el contenido de las celdas.

Tiene una segunda macro que elimina las repetidas.

Completar.xls

9

Manejo de Matrices. Array

Array.xls

10

El clásico juego donde debe adivinar un número de cuatro dígitos.

MuertosyHeridos.xls

11

Macro que lista las hojas de un libro. Para ello usa la propiedad Name del objeto Sheets.

ListaHojas.xls

12

Juego que consiste en ordenar alfabéticamente cinco letras, hasta conseguir "ABCDE".

abecedario.xls

13

Macro que pone cada celda de un color (del 1 al 56) y hace la operación contraria, detectando el color de cada celda. Observe que ColorIndex en un caso esta a la derecha de la igualdad y en el otro a la izquierda. Este es un buen ejemplo para ver que de un objeto puede consultarse una propiedad, o bien alterarla.

CeldaColor.xls

14

¿Desea conocer en qué día de la semana nació y cuantos días hace de eso?

Los comentarios del programador van con REM

Función de Excel WEEKDAY [en español =DIASEM] y función de VBA DATE [equivalente a =HOY()].

nacimiento.xls

15

Calcula la Mensualidad que se ha de pagar para amortizar un préstamo francés.

Se usa Static en lugar de Dim. Se usa la función PMT [en español PAGO]:

 Pago = Application.WorksheetFunction.Pmt(Tasa / 1200, Terminos * 12, Principal)

MacroPrestamo.xls

16

Cálculo del número e=2,718281828459. Se usa una función FACTORIAL

e.xls

17

Juego que consiste en adivinar un número del 0 al 100 en 10 tiradas. El ordenador indica si el número introducido por el jugador es mayor o menor que el número secreto. Se usa EXIT SUB.

adivina.xls

18

Dos macros que por métodos totalmente diferentes consiguen obtener las 4!=24 permutaciones de las letras ABCD. Se usa EXIT FOR.

permuta.xls

19

Cálculo de un determinante de orden n por el método de Gauss.

determinante.xls

20

Sencillo ejemplo que explica cómo pasar una matriz a una función dentro de los parámetros. Además se puede entender RANDOMIZE que es la semilla de los números aleatorios.

PasaMatriz.xls

21

Cálculo de la Letra del NIF. Dos métodos muy distintos.

CalculoNIF.xls

22

Función creada por el usuario para SUMAR.

sumar.xls

23

Genera números aleatorios para formar claves. Ejemplo de un bucle While..Wend

GeneraRND.xls

24

Macro para eliminar las filas vacías. Útil al importar una tabla de una página web, por ejemplo.

LimpiaFilas.xls

25

Un Reloj en Excel.

OnTime.xls

26

Macro que elimina los valores de una lista que se relacionan en otra lista

EliminarValores.xls

27

Macro que identifica los códigos que son iguales en tres columnas. Y otra macro que identifica los códigos iguales en dos columnas usando FIND

ComparaValores.xls

28

Macro que busca referencias iguales en dos campos (columnas).

Expedientes.xls

29

Función DIAS.LAB pero incluyendo los Sábados

Laborables.xls

30

Cuadro de Amortización de un préstamo que ajusta automáticamente el número de filas en función del número de periodos indicados.

autocuadro.xls

31

Filtro de una Base de Datos según diversos criterios. La Base de Datos es distinta cada vez que se abre el fichero. Usa ComboBox para elegir los criterios, y estos están asociados a una macro que actualiza el Filtro.

FiltroBD.xls

32

Macro que detecta la modificación del valor de una celda y calcula otras en función del nuevo valor. Emplea:
Sub Worksheet_Change(ByVal Target As Range)

Residencia.xls

33

Eliminación de registros comunes.
Ingenioso sistema para conocer las filas de un rango:
ActiveSheet.Range("B5").End(xlDown).Row

Compare.xls

34

Creación de Funciones Personalizadas diseñadas por el usuario.

FunPerso.xls

35

Generación de números aleatorios únicos (Sin repetición).

RNDunicos.xls

36

Permite asignar saldos por empresas y cuentas contables.

Consolidado.xls

37

Pone la fecha y hora a la que se modifican ciertas celdas.

Fechador.xls

38

Convierte valores numéricos a letras. Muy util para cheques.

aLetras.xls

39

Determina la o las referencias que acompañan al mínimo de una lista.

MinRef.xls

40

Localización de la celda activa con  SelectionChange.

Localiza.xls

41

Conciliación bancaria. Conciliación de saldos de bancos.

concilia.xls

42

Determinación del Dígito de Control de una Cuenta Bancaria. Se calcula con los 4 dígitos de la Entidad, los 4 de la Sucursal y los 10 de la Cuenta. El cálculo del primer Dígito de Control se hace con la Entidad y la Sucursal y el cálculo del segundo se hace con la Cuenta.

43

Formulario que permite ir cargando una Base de Datos. 

44

Localizar un caracter en una cadena de texto comenzando por la derecha. Se crea una función que invierte el texto.

45

Cálculo de la TIR mediante macro

46

Cálcula igual que la fórmula =SUMAPRODUCTO pero limitado a dos matrices.

47

Función que elige al azar un valor de una lista de celdas.

48

Simulacion de Montecarlo con aplicación financiera a una cartera de bonos.

49

Transferir los datos de Rango a un Array .

50

Función de distribución de Poisson. Creación de la Poisson inversa. Simulación de las ventas y el beneficio de un concesionario de automóviles.