ayuda programa sencillo en vba excel por favor

Programas, sistemas, condiciones, filtros...
Responder
rexetnikov
10
10
Mensajes: 3
Registrado: Vie 11 Ago, 2017 4:03 am

ayuda programa sencillo en vba excel por favor

Mensaje por rexetnikov »

Hola a tod@s, me gustaria tener el codigo en vba para Excel, que seguro que la mayoria de vosotros encontrareis sencillita :

se trata de generar todas las combinaciones de 4 partidos, es decir 81 columnas... si alguien me
envia el codigo le estaré muy agradecido...gracias a tod@s ! SALUDOS.
Avatar de Usuario
JoseVicente
14
14
Mensajes: 9631
Registrado: Mar 02 Oct, 2007 3:17 pm

Re: ayuda programa sencillo en vba excel por favor

Mensaje por JoseVicente »

No es lo que pides, yo no tengo mucha idea de vba para Excel, pero te paso el código de un programa en CLIPPER para generar una a una las 4782969 columnas de los 14 triples.

Si quieres el desarrollo de solo 4 triples solo hay que quitar 10 de los 14 bucles.


tabsignos:={"1","X","2"}

for partido1=1 to 3
for partido2=1 to 3
for partido3=1 to 3
for partido4=1 to 3
for partido5=1 to 3
for partido6=1 to 3
for partido7=1 to 3
for partido8=1 to 3
for partido9=1 to 3
for partido10=1 to 3
for partido11=1 to 3
for partido12=1 to 3
for partido13=1 to 3
for partido14=1 to 3

Columna:={tabsignos[partido1],tabsignos[partido2],tabsignos[partido3],tabsignos[partido4],
tabsignos[partido5],tabsignos[partido6],tabsignos[partido7],tabsignos[partido8],
tabsignos[partido9],tabsignos[partido10],tabsignos[partido11],tabsignos[partido12],
tabsignos[partido13],tabsignos[partido14]}

next partido14
next partido13
next partido12
next partido11
next partido10
next partido9
next partido8
next partido7
next partido6
next partido5
next partido4
next partido3
next partido2
next partido1
Mi quiniela es perfecta, son los equipos los que no hacen lo que deberían.
rexetnikov
10
10
Mensajes: 3
Registrado: Vie 11 Ago, 2017 4:03 am

Re: ayuda programa sencillo en vba excel por favor

Mensaje por rexetnikov »

muchisimas gracias....siento que tus equipos de la quiniela no se comporten :-( SALUDOS A TOD@s
Avatar de Usuario
jce2
12
12
Mensajes: 2419
Registrado: Mar 28 Jun, 2005 8:09 pm
Contactar:

Re: ayuda programa sencillo en vba excel por favor

Mensaje por jce2 »

Te lo pongo en VBA y adaptado a los 4 triples

Código: Seleccionar todo

Sub CuatroTriples()

For a1 = 0 To 2
    For a2 = 0 To 2
        For a3 = 0 To 2
            For a4 = 0 To 2
                fila = fila + 1
                Cells(fila, 1) = "'" & Replace(a1 & a2 & a3 & a4, "0", "X")
            Next
        Next
    Next
Next

End Sub
Imagen[align=center]Rentabilidad desde 2010/11: Ideales 197,2% - Peña 105.3%[/align]
jpl44
10
10
Mensajes: 2
Registrado: Mar 15 Ago, 2017 1:18 pm

Re: ayuda programa sencillo en vba excel por favor

Mensaje por jpl44 »

'se puede utilizar en VB, es para 14 triples, quita 14 y pon 4, a parte incluye una reducción que se puede quitar.
Dim mb(1 To 3) As String * 14 'signos de la BASE
Dim mm As String, m1(1 To 12) As String 'Signos de la 9 COLUMNAS
Dim mensaje As String, cbl(1 To 8) As String 'letras de cada CB
Dim lg(2 To 5, 1 To 3) As String ' limites de grupos
Dim lc(1 To 8) As String, bloque As String * 60000 'char por bloque
Dim vsigno(1 To 3, 2 To 5) As String 'V X 2
Dim c1 As Long, ud As Long, un As Long, m As Long
Dim sm As String, smf As String, smp As String, a15 As String
Dim salt As Integer, ps As Integer, sg(3) as integer
ProgressBar1.Visible = True
ProgressBar1.Max = 15 * 100 'barra de progreso
.
.
.' se muestra solo parte de una aplicación, la parte final para desarrollar hasta 14 triples, pon 4
.
.


'---------------------------------------------------comienzan los calculos para 14 signos (1X2)
u = 1: f$ = mb$(1) + "0"
Seek #1, 15: Put #1, , f$
For h = 14 To 1 Step -1 'solo los 14 signos
If sg(h) <> 1 Then Else GoTo uno10 ' para signos fijos
ud = u
For k = 2 To sg(h)
For n = 1 To u
Seek #1, n * 15: Get #1, , f$
Mid$(f$, h, 1) = Mid$(mb$(k), h, 1) 'sustituye
ud = ud + 1
Mid$(f$, 15, 1) = "0"
Seek #1, ud * 15: Put #1, , f$
Next n
Next k
u = ud
uno10: ProgressBar1.Value = (14 - h) * 100
Next h
u = LOF(1) / 15
ProgressBar1.Value = False
If salt > 1 Then ' --------------------------------------------Aplicar Salt' Aplica reducción directa
m = 1
For un = 1 To u * 15 Step salt * 15
Seek #1, 14 + un: Get #1, , f$
Seek #2, 14 + m: Put #2, , f$: m = m + 15
Next un
u = m \ 15
Close

espero que te de ideas.
rexetnikov
10
10
Mensajes: 3
Registrado: Vie 11 Ago, 2017 4:03 am

Re: ayuda programa sencillo en vba excel por favor

Mensaje por rexetnikov »

MUCHAS GRACIAS CAMPEONES, OS DESEO UN PLENO TODAS LAS SEMANAS !!!! :-)
Responder