na
Publicado por Julio (1 intervención) el 26/02/2009 08:45:09
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
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


0