............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Combinaciones con Repetición

Ver el tema anterior Ver el tema siguiente Ir abajo

Combinaciones con Repetición

Mensaje por samros el Lun Sep 29, 2008 10:15 am

Foro, buen día.

Me acabo de enfrentar a este reto que sinceramente no ha podido solucionar. Se trata de hacer combinaciones de 0 a 5 y los resultados que debo obtener son los siguientes.

000 001 002 003 004 005 011 012 013 014 015 022 023 024 025 033 034 035 044 045
055 111 112 113 114 115 122 123 124 125 133 134 135 144 145 155 222 223 224 225
233 234 235 244 245 255 333 334 335 344 345 355 444 445 455 555
56 combinaciones con repetición.

El modulo que tengo es el siguiente pero no encuentro como hacer para que me salgan los resultados antes descritos.

Sub Combina()
Dim fila As Long
Dim Enc As Integer
Enc = 0
For i = 0 To 5
For j = 0 To 5
For k = 0 To 5
'If (i <> j And i <> k And j <> k And k <> i) Then Variaciones Ordinarias
'If (i <> j And i <> k And j <> k And k <> i And i < j And i < k And j < k) Then Combinaciones Ordinarias
If (i = j Or i = k Or j = k Or k = i) Or (i <> j Or i <> k Or j <> k Or k <> i) Then ' Variaciones con Repetición
'Aqui es donde no se como hacer para obtener combinaciones con repetición
fila = Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Row
Cells(fila, "a") = i
Cells(fila, "b") = j
Cells(fila, "c") = k
Enc = Enc + 1
Cells(12, 14) = Enc
Else
End If
Next k
Next j
Next i
End Sub

Saludos desde Guadalajara Jalisco Mexico.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por samros el Lun Sep 29, 2008 1:05 pm

Solucionado. La respuesta es If (i <= j And j <= k) Then

Gracias.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por GalileoGali el Lun Sep 29, 2008 10:40 pm

A ver esto:
Código:
Sub combinar()
Dim i As Long, j As Long, k As Long
[A:A].ClearContents

For i = 0 To 5
    For j = i To 5
        For k = j To 5
    Cells(contador + 1, "a").NumberFormat = "@"
    Cells(contador + 1, "a") = i & j & k
    contador = contador + 1
        Next k
    Next j
Next i
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por samros el Mar Sep 30, 2008 9:45 am

Exelente como siempre Galileo, gracias por tu respuesta, ahora busco un nuevo reto a este mismo ejercicio y se trata de capturar aquellas combinaciones donde se excluyan los numeros duplicados del 1 al 5 a excepción del 0

Ejemplo.

000 se captura
005 se captura
011 se excluye por repetir el 1
555 se excluye por repetirse el 5

Saludos.
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por samros el Miér Oct 01, 2008 9:52 am

Encontre la manera de hacerlo y funciona perfectamente.
Saludos y gracias.

Código:
Sub poblar()
Dim fila As Long
Range("A1:K65536").ClearContents
For i = 0 To 5
    For j = 0 To 5
        For k = 0 To 5
            fila = Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).Row
            If (i <= j And j <= k) And (i <> j And j <> k) Or (i <= j And j <= k) And (i <> j And j <> k And i = 0 Or j = 0 Or k = 0) Then
                Cells(fila, "a") = i
                Cells(fila, "b") = j
                Cells(fila, "c") = k
            End If
        Next k
    Next j
Next i
End Sub
avatar
samros

Masculino Cantidad de envíos : 115
Edad : 40
Ciudad - Pais : Guadalajara Jalisco Mexico
Version de Excel : 2003
Fecha de inscripción : 15/05/2008

http://accessam@mejorforo.net

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por hulk el Vie Nov 20, 2009 4:22 pm

Buen dia
tengo casi el mismo problema de esta macro que publico galileogali.
solo que yo necesito que realice las combinaciones del 0 al 9 ya le intente mover pero se salta numero haber si alguien me puede ayudar.

Sub combinar()
Dim i As Long, j As Long, k As Long
[A:A].ClearContents

For i = 0 To 5
For j = i To 5
For k = j To 5
Cells(contador + 1, "a").NumberFormat = "@"
Cells(contador + 1, "a") = i & j & k
contador = contador + 1
Next k
Next j
Next i
End Sub


gracias por la ayuda

hulk

Cantidad de envíos : 7
Fecha de inscripción : 03/04/2008

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por avitoym el Sáb Jun 13, 2015 12:47 pm

saludos cordiales´.
que posibilidad existe q este mismo problema lo resuelva pero dándole la serie d datos y el tamaño de las combinaciones por ejemplo yo digo con una serie de datos 2,3,5 con una variacion con repeticion de 3 lo q nos mostrara una serie de combinaciones de 3^3:
2 2 2
2 2 3
2 2 5
2 3 3
2 3 5
2 3 2
2 5 5
2 5 3
2 5 2
3 2 2
3 2 3
3 2 5
3 3 3
3 3 5
3 3 2
3 5 2
3 5 3
3 5 5
5 2 2
5 2 3
5 2 5
5 3 3
5 3 2
5 3 5
5 5 5
5 5 2
5 5 3

mil disculplas por las molestas
un excelente dia para todos..

avitoym

Masculino Cantidad de envíos : 1
Edad : 30
Ciudad - Pais : PASAJE-ECUADOR
Version de Excel : 2013 64BIT
Fecha de inscripción : 13/06/2015

Volver arriba Ir abajo

Re: Combinaciones con Repetición

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.