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.
ayuda programa sencillo en vba excel por favor
-
- 10
- Mensajes: 3
- Registrado: Vie 11 Ago, 2017 4:03 am
- JoseVicente
- 14
- Mensajes: 9631
- Registrado: Mar 02 Oct, 2007 3:17 pm
Re: ayuda programa sencillo en vba excel por favor
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
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.
-
- 10
- Mensajes: 3
- Registrado: Vie 11 Ago, 2017 4:03 am
Re: ayuda programa sencillo en vba excel por favor
muchisimas gracias....siento que tus equipos de la quiniela no se comporten :-( SALUDOS A TOD@s
Re: ayuda programa sencillo en vba excel por favor
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
Re: ayuda programa sencillo en vba excel por favor
'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 As String 'letras de cada CB
Dim lg(2 To 5, 1 To 3) As String ' limites de grupos
Dim lc(1 To 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.
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 As String 'letras de cada CB
Dim lg(2 To 5, 1 To 3) As String ' limites de grupos
Dim lc(1 To 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.
-
- 10
- Mensajes: 3
- Registrado: Vie 11 Ago, 2017 4:03 am
Re: ayuda programa sencillo en vba excel por favor
MUCHAS GRACIAS CAMPEONES, OS DESEO UN PLENO TODAS LAS SEMANAS !!!!