Visual Basic para Aplicaciones - un programa de combinaciones

Life is soft - evento anual de software empresarial
   
Vista:

un programa de combinaciones

Publicado por Julio (4 intervenciones) el 26/02/2009 22:16:45
A quien me pueda ayudar,

Necesito el codigo en Visual Basic para excel para hacer una combinacion digamos de 4 proyectos, pero cada proyecto tiene 3 formas de hacerse A, B, C.

proy1 A B C
proy2 A B C
proy3 A B C
proy4 A B C

Entonces necesito el lazo para automaticamente capturar la ganancia total de cada combinacion.

Por ejemplo:

proy1 A B
Proy2 B A
Proy3 B A
Proy4 B A

Ganancia g1 g2 ........................g12 Entonces en total son 4 x 3 =12 alternativas que le llamaremos portafolios con sus respectivas ganancias g1 , g2 etc.....

Mas o menos espero algo asi,

sub portfolio ()
dim k, j as integer

for k=1 to 4
for j=1 to 3
Cells (1,1).value = cells (k,j). value Mi problema anda por aqui, tratando de
Cells (2,1).value= cells (k,j+1).value de usar el lazo for para capturar los 12.
....
...

cells(11,1).value = cells (donde esta la ganancia)... creo que esto no es problema.
next j
next k

end sub

Gracias para el que pueda ayudar.

Saludos
Julio
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:un programa de combinaciones

Publicado por JuanC (431 intervenciones) el 27/02/2009 11:14:47
vamos a ver si esto te sirve...

Sub test()
Dim i%, j%, k%
Dim s$, r$, t$

For i = 1 To 4
s = Mid("p1p2p3p4", (2 * (i - 1)) + 1, 2)
For j = 1 To 3
t = s & Mid("ABC", j, 1)
For k = 1 To 3
r = t & Mid("ABC", k, 1)
MsgBox r
Next
Next
Next
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:un programa de combinaciones

Publicado por julio (4 intervenciones) el 27/02/2009 18:04:33
thanks

keep in touch

Julio
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar