Con la función WorksheetFunction.Permut podemos calcular el numero de permutaciones de un número en especifico pertenecientes a una lista de datos.
La sintaxis de la función previamente mencionada está constituida por 2 argumentos que se explicarán a continuación:
WorksheetFunction.Permut(Arg1, Arg2)
Ambas variables deben ser de tipo Double
El resultado de esta función también será de tipo Double
Ejemplo:
En el siguiente ejemplo se puede observar que en la fila 2 se encuentra determinada cuantas permutaciones se darán en la función. En la columna "B" se encuentran los números que se desean permutar y en la columna "C" el resultado de la permutación realizada.
A continuación, se presentará el código utilizado para realizar las 4 permutaciones mostradas:
Sub Permut1()
Range("C5").Select
Selection = Application.WorksheetFunction.Permut(6 , 2)
Permut2
End Sub
Sub Permut2()
Range("C6").Select
Selection = Application.WorksheetFunction.Permut(47, 2)
Permut3
End Sub
Sub Permut3()
Range("C7").Select
Selection = Application.WorksheetFunction.Permut(76, 2)
Permut4
End Sub
Sub Permut4()
Range("C8").Select
Selection = Application.WorksheetFunction.Permut(99, 2)
End Sub
Descargar ejemplo: Función WorsksheetFunction.Permut
Por: Jesús Luna