Excel: combinar diferentes números para obtener un número determinado

Tengo 15 números.
Como puedo con excel hallar la combinación de estos, usando todos o algunos de ellos para que me sumados me den un numero determinado
EJEM: 2,3,4,5,6,7,8,9
¿Cómo puedo combinarlos de manera que sumen 10
de cuantas formas y cuales serian estas?
Respuesta
1
Una neurona peregrina y de órbita hiperbólica colisionó con la que tengo en funcionamiento y produjo una macro que resuelve tu desafío...
Hola, Félix José!
Sé que ha pasado bastante tiempo y, tal vez, ya no la necesites, pero me pareció que debía darte esta respuesta.
Como decía, un procedimiento de Visual Basic for Aplications (VBA) es capaz de efectuar y mostrar los resultados.
Para ello necesitas ingresar los 15 números a combinar en un rango vertical donde todas sus quince celdas deberán tener un valor.
En otra celda, colocarás el valor objetivo a evaluar.
Deja un rango (de dos columnas) libre para que la macro muestre allí las combinaciones posibles.
En la macro que sigue a continuación, deberás indicar las direcciones de los rangos mencionados.
Para que funcione, activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "Módulo") y pega el siguiente código:
Sub Comb15Nros()
' referencias en hoja:
IniRango = "B2" 'Inicio de lista de numeros
ResObjet = "B20" 'Celda con resultado a buscar
Inilista = "F2" 'Inicio de lista de resultados posibles
'----------------------------
Dim FormOK As String
Set Inilista = Range(Inilista)
CuentaCasos = 0
'carga de valores a matriz
Dim ListNum() As Variant
ReDim Preserve ListNum(0)
ListNum(0) = 0
Nro = 1
Set IniRango = Range(IniRango)
IniRango.Select
Do While Not IsEmpty(ActiveCell)
ReDim Preserve ListNum(Nro)
ListNum(Nro) = ActiveCell.Value
Nro = Nro + 1
ActiveCell.Offset(1).Select
Loop
Inilista.CurrentRegion.ClearContents
'Inicia ciclo de combinaciones
For v01 = 0 To 1
For v02 = 0 To 1
For v03 = 0 To 1
For v04 = 0 To 1
For v05 = 0 To 1
For v06 = 0 To 1
For v07 = 0 To 1
For v08 = 0 To 1
For v09 = 0 To 1
For v10 = 0 To 1
For v11 = 0 To 1
For v12 = 0 To 1
For v13 = 0 To 1
For v14 = 0 To 1
For v15 = 0 To 1
RES = ListNum(1) * v01 + ListNum(2) * v02 + ListNum(3) * v03 + ListNum(4) * v04 + ListNum(5) * v05 + ListNum(6) * v06 + ListNum(7) * v07 + ListNum(8) * v08 + ListNum(9) * v09 + ListNum(10) * v10 + ListNum(11) * v11 + ListNum(12) * v12 + ListNum(13) * v13 + ListNum(14) * v14 + ListNum(15) * v15
If RES = Range(ResObjet).Value Then
'En caso de que produzca el resultado consignado en ResObjet, arma fórmula correspondiente
CuentaCasos = CuentaCasos + 1
FormOK = ""
If v01 * ListNum(1) <> 0 Then FormOK = FormOK & " + " & ListNum(1)
If v02 * ListNum(2) <> 0 Then FormOK = FormOK & " + " & ListNum(2)
If v03 * ListNum(3) <> 0 Then FormOK = FormOK & " + " & ListNum(3)
If v04 * ListNum(4) <> 0 Then FormOK = FormOK & " + " & ListNum(4)
If v05 * ListNum(5) <> 0 Then FormOK = FormOK & " + " & ListNum(5)
If v06 * ListNum(6) <> 0 Then FormOK = FormOK & " + " & ListNum(6)
If v07 * ListNum(7) <> 0 Then FormOK = FormOK & " + " & ListNum(7)
If v08 * ListNum(8) <> 0 Then FormOK = FormOK & " + " & ListNum(8)
If v09 * ListNum(9) <> 0 Then FormOK = FormOK & " + " & ListNum(9)
If v10 * ListNum(10) <> 0 Then FormOK = FormOK & " + " & ListNum(10)
If v11 * ListNum(11) <> 0 Then FormOK = FormOK & " + " & ListNum(11)
If v12 * ListNum(12) <> 0 Then FormOK = FormOK & " + " & ListNum(12)
If v13 * ListNum(13) <> 0 Then FormOK = FormOK & " + " & ListNum(13)
If v14 * ListNum(14) <> 0 Then FormOK = FormOK & " + " & List
Estas son las líneas que faltan:
If v15 * ListNum(15) <> 0 Then FormOK = FormOK & " + " & ListNum(15)
'Selección de celda donde colocar el resultado
If IsEmpty(Inilista) Then
vRow = Inilista.Row
ElseIf Inilista.End(xlDown).Row > 50000 Then
vRow = Inilista.Offset(1).Row
Else
vRow = Inilista.End(xlDown).Offset(1).Row
End If
Inilista.Cells(vRow - 1).Value = Trim(FormOK)
Inilista.Cells(vRow - 1, 2).FormulaLocal = "=" & Trim(FormOK)
End If
Next v15
Next v14
Next v13
Next v12
Next v11
Next v10
Next v09
Next v08
Next v07
Next v06
Next v05
Next v04
Next v03
Next v02
Next v01
'muestra Cantidad de casos encontrados
If CuentaCasos <> 0 Then
If IsEmpty(Inilista) Then
vRow = Inilista.Row
ElseIf Inilista.End(xlDown).Row > 50000 Then
vRow = Inilista.Offset(1).Row
Else
vRow = Inilista.End(xlDown).Offset(1).Row
End If
Inilista.Cells(vRow - 1).Value = CuentaCasos & " casos"
MsgBox "Proceso terminado." & Chr(10) & "Encontradas " & CuentaCasos & " combinaciones", vbInformation, "RESULTADO:"
Else
MsgBox "No se encontró combinación para el resultado dado (" & Range(ResObjet).Value & ")", vbCritical, "SIN SOLUCION"
End If
End Sub
Parece que ni este sitio se banco la respuesta. No sé pro qué quitó la mitad de la misma.
En fin...
Decía que al principio de la macro encontrarás tres variables donde deberás colocar ls direcciones de los rangos involucrados en el proceso.
Una vez modificadas, si fueran otras, cierra el editor de VBA y graba el archivo.
Luego, simplemente, ejecuta la macro Comb15Nros en la hoja donde están los números.
Ojala que aún te sirva y espero, particularmente interesado, tus comentarios sobre el desarrollo.
Un abrazo!
Fernando
Sub Comb15Nros()
' referencias en hoja:
IniRango = "B2" 'Inicio de lista de numeros
ResObjet = "B20" 'Celda con resultado a buscar
Inilista = "F2" 'Inicio de lista de resultados posibles
'----------------------------
Dim FormOK As String
Set Inilista = Range(Inilista)
CuentaCasos = 0
'carga de valores a matriz
Dim ListNum() As Variant
ReDim Preserve ListNum(0)
ListNum(0) = 0
Nro = 1
Set IniRango = Range(IniRango)
IniRango.Select
Do While Not IsEmpty(ActiveCell)
ReDim Preserve ListNum(Nro)
ListNum(Nro) = ActiveCell.Value
Nro = Nro + 1
ActiveCell.Offset(1).Select
Loop
Inilista.CurrentRegion.ClearContents
'Inicia ciclo de combinaciones
For v01 = 0 To 1
For v02 = 0 To 1
For v03 = 0 To 1
For v04 = 0 To 1
For v05 = 0 To 1
For v06 = 0 To 1
For v07 = 0 To 1
For v08 = 0 To 1
For v09 = 0 To 1
For v10 = 0 To 1
For v11 = 0 To 1
For v12 = 0 To 1
For v13 = 0 To 1
For v14 = 0 To 1
For v15 = 0 To 1
RES = ListNum(1) * v01 + ListNum(2) * v02 + ListNum(3) * v03 + ListNum(4) * v04 + ListNum(5) * v05 + ListNum(6) * v06 + ListNum(7) * v07 + ListNum(8) * v08 + ListNum(9) * v09 + ListNum(10) * v10 + ListNum(11) * v11 + ListNum(12) * v12 + ListNum(13) * v13 + ListNum(14) * v14 + ListNum(15) * v15
If RES = Range(ResObjet).Value Then
'En caso de que produzca el resultado consignado en ResObjet, arma fórmula correspondiente
CuentaCasos = CuentaCasos + 1
FormOK = ""
If v01 * ListNum(1) <> 0 Then FormOK = FormOK & " + " & ListNum(1)
If v02 * ListNum(2) <> 0 Then FormOK = FormOK & " + " & ListNum(2)
If v03 * ListNum(3) <> 0 Then FormOK = FormOK & " + " & ListNum(3)
If v04 * ListNum(4) <> 0 Then FormOK = FormOK & " + " & ListNum(4)
If v05 * ListNum(5) <> 0 Then FormOK = FormOK & " + " & ListNum(5)
If v06 * ListNum(6) <> 0 Then FormOK = FormOK & " + " & ListNum(6)
If v07 * ListNum(7) <> 0 Then FormOK = FormOK & " + " & ListNum(7)
If v08 * ListNum(8) <> 0 Then FormOK = FormOK & " + " & ListNum(8)
If v09 * ListNum(9) <> 0 Then FormOK = FormOK & " + " & ListNum(9)
If v10 * ListNum(10) <> 0 Then FormOK = FormOK & " + " & ListNum(10)
If v11 * ListNum(11) <> 0 Then FormOK = FormOK & " + " & ListNum(11)
If v12 * ListNum(12) <> 0 Then FormOK = FormOK & " + " & ListNum(12)
If v13 * ListNum(13) <> 0 Then FormOK = FormOK & " + " & ListNum(13)
If v14 * ListNum(14) <> 0 Then FormOK = FormOK & " + " & ListNum(14)
If v15 * ListNum(15) <> 0 Then FormOK = FormOK & " + " & ListNum(15)
'Selección de celda donde colocar el resultado
If IsEmpty(Inilista) Then
vRow = Inilista.Row
ElseIf Inilista.End(xlDown).Row > 50000 Then
vRow = Inilista.Offset(1).Row
Else
vRow = Inilista.End(xlDown).Offset(1).Row
End If
Inilista.Cells(vRow - 1).Value = Trim(FormOK)
Inilista.Cells(vRow - 1, 2).FormulaLocal = "=" & Trim(FormOK)
End If
Next v15
Next v14
Next v13
Next v12
Next v11
Next v10
Next v09
Next v08
Next v07
Next v06
Next v05
Next v04
Next v03
Next v02
Next v01
'muestra Cantidad de casos encontrados
If CuentaCasos <> 0 Then
If IsEmpty(Inilista) Then
vRow = Inilista.Row
ElseIf Inilista.End(xlDown).Row > 50000 Then
vRow = Inilista.Offset(1).Row
Else
vRow = Inilista.End(xlDown).Offset(1).Row
End If
Inilista.Cells(vRow - 1).Value = CuentaCasos & " casos"
MsgBox "Proceso terminado." & Chr(10) & "Encontradas " & CuentaCasos & " combinaciones", vbInformation, "RESULTADO:"
Else
MsgBox "No se encontró combinación para el resultado dado (" & Range(ResObjet).Value & ")", vbCritical, "SIN SOLUCION"
End If
End Sub
Si bien el algoritmo de cálculo es correcto, detecté un problema cuando se cambia la celda de destino.
El siguiente código, resuelve ese conflicto. Usa este en lugar del anterior:
Sub comb15Num()
' referencias en hoja:
IniRango = "D4" 'Inicio de lista de numeros
ResObjet = "D23" 'Celda con resultado a buscar
Inilista = "N4" 'Inicio de lista de resultados posibles
'----------------------------
Dim FormOK As String
Set Inilista = Range(Inilista)
vCol = Inilista.Column
CuentaCasos = 0
'carga de valores a matriz
Dim ListNum() As Variant
ReDim Preserve ListNum(0)
ListNum(0) = 0
Nro = 1
Set IniRango = Range(IniRango)
IniRango.Select
Do While Not IsEmpty(ActiveCell)
ReDim Preserve ListNum(Nro)
ListNum(Nro) = ActiveCell.Value
Nro = Nro + 1
ActiveCell.Offset(1).Select
Loop
Inilista.CurrentRegion.ClearContents
'Inicia ciclo de combinaciones
For v01 = 0 To 1
For v02 = 0 To 1
For v03 = 0 To 1
For v04 = 0 To 1
For v05 = 0 To 1
For v06 = 0 To 1
For v07 = 0 To 1
For v08 = 0 To 1
For v09 = 0 To 1
For v10 = 0 To 1
For v11 = 0 To 1
For v12 = 0 To 1
For v13 = 0 To 1
For v14 = 0 To 1
For v15 = 0 To 1
RES = ListNum(1) * v01 + ListNum(2) * v02 + ListNum(3) * v03 + ListNum(4) * v04 + ListNum(5) * v05 + ListNum(6) * v06 + ListNum(7) * v07 + ListNum(8) * v08 + ListNum(9) * v09 + ListNum(10) * v10 + ListNum(11) * v11 + ListNum(12) * v12 + ListNum(13) * v13 + ListNum(14) * v14 + ListNum(15) * v15
odomet = odomet + 1
If RES = Range(ResObjet).Value Then
'En caso de que produzca el resultado consignado en ResObjet, arma fórmula correspondiente
CuentaCasos = CuentaCasos + 1
FormOK = ""
If v01 * ListNum(1) <> 0 Then FormOK = FormOK & " + " & ListNum(1)
If v02 * ListNum(2) <> 0 Then FormOK = FormOK & " + " & ListNum(2)
If v03 * ListNum(3) <> 0 Then FormOK = FormOK & " + " & ListNum(3)
If v04 * ListNum(4) <> 0 Then FormOK = FormOK & " + " & ListNum(4)
If v05 * ListNum(5) <> 0 Then FormOK = FormOK & " + " & ListNum(5)
If v06 * ListNum(6) <> 0 Then FormOK = FormOK & " + " & ListNum(6)
If v07 * ListNum(7) <> 0 Then FormOK = FormOK & " + " & ListNum(7)
If v08 * ListNum(8) <> 0 Then FormOK = FormOK & " + " & ListNum(8)
If v09 * ListNum(9) <> 0 Then FormOK = FormOK & " + " & ListNum(9)
If v10 * ListNum(10) <> 0 Then FormOK = FormOK & " + " & ListNum(10)
If v11 * ListNum(11) <> 0 Then FormOK = FormOK & " + " & ListNum(11)
If v12 * ListNum(12) <> 0 Then FormOK = FormOK & " + " & ListNum(12)
If v13 * ListNum(13) <> 0 Then FormOK = FormOK & " + " & ListNum(13)
If v14 * ListNum(14) <> 0 Then FormOK = FormOK & " + " & ListNum(14)
If v15 * ListNum(15) <> 0 Then FormOK = FormOK & " + " & ListNum(15)
'Selección de celda donde colocar el resultado
If IsEmpty(Inilista) Then
vRow = Inilista.Row
ElseIf Inilista.End(xlDown).Row > 50000 Then
vRow = Inilista.Offset(1).Row
Else
vRow = Inilista.End(xlDown).Offset(1).Row
End If
Cells(vRow, vCol).Value = Trim(FormOK)
Cells(vRow, vCol + 1).FormulaLocal = "=" & Trim(FormOK)
End If
Next v15
Next v14
Next v13
Next v12
Next v11
Next v10
Next v09
Next v08
Next v07
Next v06
Next v05
Next v04
Next v03
Next v02
Next v01
'muestra Cantidad de casos encontrados
If CuentaCasos <> 0 Then
If IsEmpty(Inilista) Then
vRow = Inilista.Row
ElseIf Inilista.End(xlDown).Row > 50000 Then
vRow = Inilista.Offset(1).Row
Else
vRow = Inilista.End(xlDown).Offset(1).Row
End If
Cells(vRow, vCol).Value = CuentaCasos & " casos"
MsgBox "Proceso terminado." & Chr(10) & "Encontradas " & CuentaCasos & " combinaciones" & Chr(10) & "Iteracciones: " & odomet, vbInformation, "RESULTADO:"
Else
MsgBox "No se encontró combinación para el resultado dado (" & Range(ResObjet).Value & ")", vbCritical, "SIN SOLUCION"
End If
End Sub
Fantástico, otros expertos me habían mandado al desvío, pero tu fórmula me da el camino para ver la respuesta a un calculo que necesito
Lastima que solo hay 5 estrellas

1 respuesta más de otro experto

Respuesta
No se muy bien pero hay una herramienta que se llama "buscar objetivo", trata de ver si eso te ayuda.
Suerte.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Combinatoria condicional

Ayudame ahora 6 abril ok (6/4/2003) Tengo lo siguiente A1 10 A2 20 A3 30 A4 40 A5 50 Quiero que sume 50 solo con dos celdas Y después las marque en negro Esta pregunte es un suesto pueden haber 1000 celdas y quiero que sume a 55874 Usando 745 celdas...
1 respuesta

Buscar en rango aquellas celdas que sumen valor dado

Encontré estas pregunta y respuesta aquí en el foro que son por un problema casi idéntico a uno que yo tengo. La respuesta que dio el experto es muy buena, pero funciona sólo identificando dos celdas que cumplen la restricción, y no sé cómo modificar...
2 respuestas

Ocultar eiqueta según resultado

El otro día me salvaron en como eligiendo una opción de un cuadro combinado se ocultaban las etiquetas, lo que necesito ahora es similar Como ocultar una etiqueta según el resultado que se obtiene en otra etiqueta Detallo: La etiqueta "P10" tiene un...
1 respuesta

¿Ordenar FileListBox?

¿Es posible ordenar un filelistbox por la extensión de los archivos que contiene?.
1 respuesta

Macro para calcular turnos docentes

Como puedo asignarle a un docente un mismo curso en varios turnos pero si que esos turnos ya no hayan sido asignado a otro doce.
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta

Llenas una matriz usando otra sin repetir datos

Tengo un arreglo con valores 8|8|8|8|9|8|8|1|1 Por ejemplo Ahora lo que necesito es guardar los valores en otro arreglo pero sin repetirse Es decir que quede 8|9|1 El primer arreglo es dinámico por lo que el segundo también puede variar no se como...
1 respuesta

Buscar registro en un datagridview

Amigos que tal buenas tardes quisiera ver si me pueden ayudar a buscar y seleccionar un dato en la columna(1) de un datagridview el cual lo voy escribiendo en un textbox tengo este código funciona bien solo que busca en todas las columnas. For Each...
1 respuesta

Problema al multiplicar dos marices

Disculpa mi molestia y antes que nada agradezco tu colaboración para con los usuarios, mi consulta es la siguiente: Estoy realizando una aplicación que sume, reste y multiplique matrices. Cuando multiplico matrices de igual dimensiones, es decir 2 x...
1 respuesta