Urgente, por favor ayuda a calcular la suma de las bolas de dos colores.

Debido a que estimo que el resultado es más de 65536, probablemente sea más problemático usar VBA para escribir EXCEL (necesita saltos de línea)

Así que te ayudaré a escribir el siguiente código VBS y crear un nuevo documento TXT. y luego copie el siguiente código en este documento y cámbielo a este Guarde el documento con una extensión VBS, haga doble clic para ejecutar el código y especifique un resultado de texto. La ruta de salida puede guardar todas las combinaciones de bolas rojas con valores entre 120 y 130 en un archivo de texto. ¡He probado el código personalmente, espero que te resulte útil!

---------------------------------PARTE DE CÓDIGOS------ ------ ------------------

dim fs,objf,lj,i1,i2,i3,i4,i5,i6, tem

lj= inputbox("¡Ingrese la ruta para crear el archivo de texto!" & chr(10) & "Ejemplo: C:\res.txt ", "C0de-By-F0reSt*", "C: \res.txt")

set fs=createobject("Scripting.fileSystemObject")

set objf=fs.createetextfile(lj,true)

objf .writeline("Difuso de dos colores y todas las combinaciones de 120-130")

objf.writblanklines(1)

objf.writeline(" --C0de-By-F0 - C0de-By-F0reSt*,QQ: 157608436---")

objf.writeblanklines(1)

para i1=1 a 28

para i2 =i1+1 a 29

para i3=i2+1 a 30

para i4=i3+1 a 31

para i5=i4+1 a 32

para i6=i5+1 a 33

si i1+i2+i3+i4+i5+i6>=120, y i1+i2+i3+i4+i5+ i6<=130 entonces

tem=i1 & ", " & i2 & ", " & i3 & ", " & i4 & ", " & i5 & ", " & i6 & " " & i1 +i2+i3+i4+i5+ i6

objf.Writeline(tem)