N!. N factorial en Excel

En una tarea de informática criminológica, el profesor nos ha pedido estimar N! en Excel para cualquier número.
n!=1*2*...*n



La forma más simple sería poner la fórmula =Fact(numero)

Pero aceptemos que para eso mejor consultamos una tabla de factoriales. Otra forma igual de aburrida sería hacerlo por multiplicaciones sucesivas en vertical.

Veamos una forma más interesante. Supongamos que se quiere tener una hoja como la de abajo donde nos localicemos en la celda amarilla  en A1 y en B1 diremos el número al que se le extraerá el factorial.

En nuestro ejemplo deseamos tener algo como lo siquiente:

Bien, el código es el siguiente:



Sub NFactorial()
    ActiveCell.Offset(0, 1).Range("A1").Select  'el cursor se hace a la derecha para extraer la información de b2 y saber hasta que número calculará

    limite = ActiveCell.Value 'asocia el valor de B2 (si efectivamente se empezó en B1) a la variable limite

    ActiveCell.Offset(0, -1).Range("A1").Select 'regresa a A1 para escribir las estimaciones
For N = 1 To limite                                                    ' Inicia el ciclo
'
    ActiveCell.FormulaR1C1 = N                                                          
    ActiveCell.Offset(1, 0).Range("A1").Select
   
Next

    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=+RC[-1]*R[-1]C[-1]"    'realiza la operacion
    ActiveCell.Offset(1, 0).Range("A1").Select

'
For M = 1 To limite - 2

'
'
    ActiveCell.FormulaR1C1 = "=+RC[-1]*R[-1]C"
    ActiveCell.Offset(1, 0).Range("A1").Select
Valor = ActiveCell.Value

Next

 ActiveCell.Value = "Arriba de esta celda, el factorial buscado"


End Sub


Es una forma más lenta pero más divertida. Por cierto verás que calcula solamente hasta 171.

Limpieza de una tabla demográfica

En ocasiones tenemos tablas demográficas que tienen distintos niveles, por ejemplo las que maneja el Consejo Nacional de Población (CONAPO) que eventualmente requieren de borrar muchos datos pues tenemos el dato del país, el dato estatal y el municipal.

http://conapo.gob.mx/es/CONAPO/Municipales

La base que nos dan tiene múltiples pestañas que presenta distintas tablas cada una en un sólo libro de Excel. Por ejemplo tenemos tablas de este tipo:

Pero necesitamos algo así:



En este caso se quieren solamente los datos del País completo, Chihuahua (2do nivel) y Ciudad Juárez (tercer nivel). Para ello pedimos una macro y le ponemos nombre, por ejemplo, QuitaResto. Damos referencias relativas por su puesto. 

Comenzamos por localizarnos justo abajo de donde dice República Mexicana, en la celda B6. Presionamos shift y bajamos con la flecha de bajar. Hasta llegar a Chihuahua, la cual no subrrayamos. 0

Recortamos.

Y repetimos la operación. 

Cuando terminamos presionamos como siempre el botón de terminar macro. Nos situamos abajo de las palabras República Mexicana y ejecutamos la macro, nos va a pasar de un caso como el de la izquierda al de la derecha. 

Esta vez, no hemos modificado la macro, así como se graba se usa sin intervención del programador. Si le echamos un ojo, veremos lo que hay abajo, que es un registro del número de casillas que se desplaza hasta abajo pero esta vez no tendremos que ocuparnos. La misma tarea la podemos repetir para todas las hojas que tengan exactamente el mismo formato.


Sub QuitaResto()
'
' QuitaResto Macro
'

'
    ActiveCell.Select
    ActiveWindow.SmallScroll Down:=1
    ActiveCell.Range("A1:A213").Select
    ActiveWindow.SmallScroll Down:=-51
    ActiveWindow.Zoom = 85
    ActiveWindow.Zoom = 55
    ActiveWindow.Zoom = 25
    ActiveWindow.Zoom = 10
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 46
    ActiveWindow.LargeScroll Down:=-1
    ActiveWindow.Zoom = 40
    ActiveWindow.Zoom = 85
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=3
    ActiveWindow.SmallScroll Down:=6
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.SmallScroll Down:=18
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.SmallScroll Down:=24
    ActiveWindow.SmallScroll Down:=27
    ActiveWindow.SmallScroll Down:=30
    ActiveWindow.SmallScroll Down:=36
    ActiveWindow.SmallScroll Down:=39
    ActiveWindow.SmallScroll Down:=42
    ActiveWindow.SmallScroll Down:=45
    ActiveWindow.SmallScroll Down:=48
    ActiveWindow.SmallScroll Down:=51
    ActiveWindow.SmallScroll Down:=54
    ActiveWindow.SmallScroll Down:=60
    ActiveWindow.SmallScroll Down:=66
    ActiveWindow.SmallScroll Down:=72
    ActiveWindow.SmallScroll Down:=75
    ActiveWindow.SmallScroll Down:=78
    ActiveWindow.SmallScroll Down:=81
    ActiveWindow.SmallScroll Down:=84
    ActiveWindow.SmallScroll Down:=90
    ActiveWindow.SmallScroll Down:=96
    ActiveWindow.SmallScroll Down:=99
    ActiveWindow.SmallScroll Down:=102
    ActiveWindow.SmallScroll Down:=105
    ActiveWindow.SmallScroll Down:=108
    ActiveWindow.SmallScroll Down:=111
    ActiveWindow.SmallScroll Down:=108
    ActiveWindow.SmallScroll Down:=111
    ActiveWindow.SmallScroll Down:=114
    ActiveWindow.SmallScroll Down:=120
    ActiveWindow.SmallScroll Down:=123
    ActiveWindow.SmallScroll Down:=120
    ActiveWindow.SmallScroll Down:=123
    ActiveWindow.SmallScroll Down:=126
    ActiveWindow.SmallScroll Down:=129
    ActiveWindow.SmallScroll Down:=132
    ActiveWindow.SmallScroll Down:=135
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 215
    ActiveWindow.SmallScroll Down:=-3
    ActiveWindow.SmallScroll Down:=-6
    ActiveWindow.SmallScroll Down:=-9
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.SmallScroll Down:=-15
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.SmallScroll Down:=-21
    ActiveWindow.SmallScroll Down:=-24
    ActiveWindow.SmallScroll Down:=-27
    ActiveWindow.SmallScroll Down:=-30
    ActiveWindow.SmallScroll Down:=-33
    ActiveWindow.SmallScroll Down:=-36
    ActiveWindow.SmallScroll Down:=-39
    ActiveWindow.SmallScroll Down:=-42
    ActiveWindow.SmallScroll Down:=-45
    ActiveWindow.SmallScroll Down:=-48
    ActiveWindow.SmallScroll Down:=-51
    ActiveWindow.SmallScroll Down:=-54
    ActiveWindow.SmallScroll Down:=-57
    ActiveWindow.SmallScroll Down:=-63
    ActiveWindow.SmallScroll Down:=-66
    ActiveWindow.SmallScroll Down:=-69
    ActiveWindow.SmallScroll Down:=-72
    ActiveWindow.SmallScroll Down:=-75
    ActiveWindow.SmallScroll Down:=-78
    ActiveWindow.SmallScroll Down:=-81
    ActiveWindow.SmallScroll Down:=-84
    ActiveWindow.SmallScroll Down:=-87
    ActiveWindow.SmallScroll Down:=-90
    ActiveWindow.SmallScroll Down:=-93
    ActiveWindow.SmallScroll Down:=-96
    ActiveWindow.SmallScroll Down:=-99
    ActiveWindow.SmallScroll Down:=-102
    ActiveWindow.SmallScroll Down:=-105
    ActiveWindow.SmallScroll Down:=-108
    ActiveWindow.SmallScroll Down:=-111
    ActiveWindow.SmallScroll Down:=-114
    ActiveWindow.SmallScroll Down:=-117
    ActiveWindow.SmallScroll Down:=-120
    ActiveWindow.SmallScroll Down:=-123
    ActiveWindow.SmallScroll Down:=-126
    ActiveWindow.SmallScroll Down:=-129
    ActiveWindow.SmallScroll Down:=-132
    ActiveWindow.SmallScroll Down:=-135
    ActiveWindow.SmallScroll Down:=-138
    ActiveWindow.SmallScroll Down:=-141
    ActiveWindow.SmallScroll Down:=-144
    ActiveWindow.SmallScroll Down:=-147
    ActiveWindow.SmallScroll Down:=-150
    ActiveWindow.SmallScroll Down:=-153
    ActiveWindow.SmallScroll Down:=-156
    ActiveWindow.SmallScroll Down:=-159
    ActiveWindow.SmallScroll Down:=-162
    ActiveWindow.SmallScroll Down:=-165
    ActiveWindow.SmallScroll Down:=-168
    ActiveWindow.SmallScroll Down:=-171
    ActiveWindow.SmallScroll Down:=-174
    ActiveWindow.SmallScroll Down:=-177
    ActiveWindow.SmallScroll Down:=-180
    ActiveWindow.SmallScroll Down:=-183
    ActiveWindow.SmallScroll Down:=-186
    ActiveWindow.SmallScroll Down:=-189
    ActiveWindow.SmallScroll Down:=-192
    ActiveWindow.SmallScroll Down:=-195
    ActiveWindow.SmallScroll Down:=-198
    ActiveWindow.SmallScroll Down:=-201
    ActiveWindow.SmallScroll Down:=-204
    ActiveWindow.SmallScroll Down:=-207
    ActiveWindow.SmallScroll Down:=-210
    ActiveWindow.SmallScroll Down:=-213
    ActiveWindow.SmallScroll Down:=-219
    ActiveWindow.SmallScroll Down:=-222
    ActiveWindow.SmallScroll Down:=-225
    ActiveWindow.SmallScroll Down:=-222
    ActiveWindow.SmallScroll Down:=-219
    ActiveWindow.SmallScroll Down:=-216
    ActiveWindow.SmallScroll Down:=-213
    ActiveWindow.SmallScroll Down:=-210
    ActiveWindow.SmallScroll Down:=-207
    ActiveWindow.SmallScroll Down:=-204
    ActiveWindow.SmallScroll Down:=-207
    ActiveWindow.SmallScroll Down:=-210
    ActiveWindow.SmallScroll Down:=-213
    ActiveWindow.SmallScroll Down:=-216
    ActiveWindow.SmallScroll Down:=-219
    ActiveWindow.SmallScroll Down:=-222
    ActiveWindow.SmallScroll Down:=-225
    ActiveWindow.SmallScroll Down:=-222
    ActiveWindow.SmallScroll Down:=-219
    ActiveWindow.SmallScroll Down:=-216
    ActiveWindow.SmallScroll Down:=-213
    ActiveWindow.SmallScroll Down:=-210
    ActiveWindow.SmallScroll Down:=-207
    ActiveWindow.SmallScroll Down:=-204
    ActiveWindow.SmallScroll Down:=-201
    ActiveWindow.SmallScroll Down:=-198
    ActiveWindow.SmallScroll Down:=-195
    ActiveWindow.SmallScroll Down:=-192
    ActiveWindow.SmallScroll Down:=-189
    ActiveWindow.SmallScroll Down:=-186
    ActiveWindow.SmallScroll Down:=-183
    ActiveWindow.SmallScroll Down:=-180
    ActiveWindow.SmallScroll Down:=-183
    ActiveWindow.SmallScroll Down:=-180
    ActiveWindow.SmallScroll Down:=-177
    ActiveWindow.SmallScroll Down:=-174
    ActiveWindow.SmallScroll Down:=-177
    ActiveWindow.SmallScroll Down:=-174
    ActiveWindow.SmallScroll Down:=-171
    ActiveWindow.SmallScroll Down:=-168
    ActiveWindow.SmallScroll Down:=-165
    ActiveWindow.SmallScroll Down:=-162
    ActiveWindow.SmallScroll Down:=-159
    ActiveWindow.SmallScroll Down:=-156
    ActiveWindow.SmallScroll Down:=-153
    ActiveWindow.SmallScroll Down:=-147
    ActiveWindow.SmallScroll Down:=-144
    ActiveWindow.SmallScroll Down:=-141
    ActiveWindow.SmallScroll Down:=-138
    ActiveWindow.SmallScroll Down:=-132
    ActiveWindow.SmallScroll Down:=-129
    ActiveWindow.SmallScroll Down:=-126
    ActiveWindow.SmallScroll Down:=-123
    ActiveWindow.SmallScroll Down:=-120
    ActiveWindow.SmallScroll Down:=-117
    ActiveWindow.SmallScroll Down:=-114
    ActiveWindow.SmallScroll Down:=-111
    ActiveWindow.SmallScroll Down:=-108
    ActiveWindow.SmallScroll Down:=-105
    ActiveWindow.SmallScroll Down:=-102
    ActiveWindow.SmallScroll Down:=-105
    ActiveWindow.SmallScroll Down:=-108
    ActiveWindow.SmallScroll Down:=-105
    ActiveWindow.SmallScroll Down:=-102
    ActiveWindow.SmallScroll Down:=-99
    ActiveWindow.SmallScroll Down:=-96
    ActiveWindow.SmallScroll Down:=-99
    ActiveWindow.SmallScroll Down:=-102
    ActiveWindow.SmallScroll Down:=-99
    ActiveWindow.SmallScroll Down:=-96
    ActiveWindow.SmallScroll Down:=-90
    ActiveWindow.SmallScroll Down:=-87
    ActiveWindow.SmallScroll Down:=-84
    ActiveWindow.SmallScroll Down:=-81
    ActiveWindow.SmallScroll Down:=-78
    ActiveWindow.SmallScroll Down:=-75
    ActiveWindow.SmallScroll Down:=-72
    ActiveWindow.SmallScroll Down:=-69
    ActiveWindow.SmallScroll Down:=-72
    ActiveWindow.SmallScroll Down:=-75
    ActiveWindow.SmallScroll Down:=-78
    ActiveWindow.SmallScroll Down:=-75
    ActiveWindow.SmallScroll Down:=-72
    ActiveWindow.SmallScroll Down:=-69
    ActiveWindow.SmallScroll Down:=-66
    ActiveWindow.SmallScroll Down:=-63
    ActiveWindow.SmallScroll Down:=-60
    ActiveWindow.SmallScroll Down:=-57
    ActiveWindow.SmallScroll Down:=-54
    ActiveWindow.SmallScroll Down:=-51
    ActiveWindow.SmallScroll Down:=-48
    ActiveWindow.SmallScroll Down:=-45
    ActiveWindow.SmallScroll Down:=-42
    ActiveWindow.SmallScroll Down:=-39
    ActiveWindow.SmallScroll Down:=-36
    ActiveWindow.SmallScroll Down:=-33
    ActiveWindow.SmallScroll Down:=-30
    ActiveWindow.SmallScroll Down:=-27
    ActiveCell.Range("A1:A213").Select
    ActiveCell.Range("A1:A213").Select
    Selection.EntireRow.Delete
    ActiveCell.Offset(1, 0).Range("A1:A36").Select
    Selection.EntireRow.Delete
    ActiveCell.Offset(1, 0).Range("A1:A2278").Select
    Selection.EntireRow.Delete
    ActiveCell.Select
End Sub