HOLA!!!

Me costo bastante, se que funciona , pero seguro es lentisima , tendria que aprovechar mas los bucles (Ya esta!), pero es un lio XD.

AGREGUE DECIMALES: Problema, hay que cargarlos por separado. XD sino tarda demasiado la funcion.

Private Function ZZ(n As Long, M() As Double, Optional DECIMALES As Double)
Dim x As Integer
Dim y As Integer
Dim SQ_Root As Integer
Dim ACUM As Double
Dim ACUM2 As Double
 
SQ_Root = Int(Sqr(n)) 'GRACIAS BLACK POR SQR
 
ReDim M(SQ_Root, SQ_Root + 1)
 
M(0, 1) = 1 '+ Dec_Part
 
ACUM = 0
ACUM2 = 0
 
For x = 1 To SQ_Root - 1 'PRIMERA LINEA Y PRIMERA COLUMNA
        M(x, 1) = M(x - 1, 1) + x  'PRIMERA LINEA
        M(0, x + 1) = M(0, x) + x + 1 'PRIMERA COLUMNA
        ACUM = ACUM + M(0, x + 1)
        ACUM2 = ACUM2 + M(x, 1)
Next
 
M(0, SQ_Root + 1) = ACUM + M(0, 1) 'TOTAL DE PRIMERA COLUMNA
M(SQ_Root, 1) = ACUM2 + M(0, 1) 'TOTAL DE PRIMERA FILA
ACUM = 0
ACUM2 = 0
 
For x = 1 To SQ_Root - 1 'ULTIMA LINEA Y ULTIMA COLUMNA
    M(x, SQ_Root) = M(x - 1, SQ_Root) + SQ_Root - x  'ULTIMA LINEA
    M(SQ_Root - 1, x + 1) = M(x - 1, SQ_Root) + 1  'ULTIMA COLUMNA
    ACUM = ACUM + M(SQ_Root - 1, x + 1)
    ACUM2 = ACUM2 + M(x, SQ_Root)
Next
 
M(SQ_Root - 1, SQ_Root + 1) = ACUM + M(SQ_Root - 1, 1) 'TOTAL DE ULTIMA COLUMNA
M(SQ_Root, SQ_Root) = ACUM2 + M(0, SQ_Root) 'TOTAL DE ULTIMA FILA
 
For y = 2 To SQ_Root - 1 'RELLENO (DEL CUADRO INTERIOR) Y TOTALES FILAS
    ACUM = 0
    For x = 1 To SQ_Root - 2
        M(x, y) = 1 + M(x + 1, y - 1)
        ACUM = ACUM + M(x, y)
    Next
    ACUM = ACUM + M(0, y) + M(SQ_Root - 1, y)
    M(SQ_Root, y) = ACUM
Next
 
For x = 1 To SQ_Root - 2 'TOTALES COLUMNAS INTERNAS
    ACUM = 0
    For y = 1 To SQ_Root
        ACUM = ACUM + M(x, y)
    Next
    M(x, SQ_Root + 1) = ACUM
Next
 
ACUM = 0
 
If DECIMALES <> 0 Then
For x = 0 To SQ_Root - 1
    For y = 1 To SQ_Root
        M(x, y) = M(x, y) + DECIMALES
    Next
Next
DECIMALES = DECIMALES * SQ_Root
For x = 0 To SQ_Root
    M(x, SQ_Root + 1) = M(x, SQ_Root + 1) + DECIMALES
    M(SQ_Root, x + 1) = M(SQ_Root, x + 1) + DECIMALES
Next
End If
 
For x = 0 To SQ_Root - 1 'ESQUINAS
    ACUM = ACUM + M(x, SQ_Root + 1)
Next
 
M(SQ_Root, SQ_Root + 1) = ACUM
M(SQ_Root, 0) = ACUM
 
For x = 0 To SQ_Root - 1 'PRIMERA LINEA RARA QUE NO TIENE SENTIDO
    M(x, 0) = SQ_Root ^ 4 + M(x, SQ_Root + 1) + SQ_Root ^ 2
Next
 
    ZZ = True
Exit Function
Err_:
    ZZ = False
End Function
 

GRACIAS POR LEER!!!

HOLA!!!

Creo que es mejor que uses sendmessage que una libreria, pero pone en google ocx webcam y fijate .

Suerte, diria mas pero me estoy yendo.

GRACIAS POR LEER!!!

HOLA!!!

XD, Me habia olvidado del Exit Function, ahi lo modifique.
Ahora me veo un poquito mejor en la tabla .

P.D1:Vuelvan a hacer la Tabla XD

P.D2: Mr. Frog Si estas en Invisible//No conectado, no puedo hablarte .

GRACIAS POR LEER!!!

HOLA!!!

Bueno por suerte termine antes de año nuevo, por cierto Feliz año a todos (aca son las 2200).
No se que veolocidad tiene, pero bueno aca esta:

Public Function InStr2(ByVal Start&, ByVal Cadena$, ByVal Busca$) As Integer
   Dim x        As Integer
   Dim TamC     As Integer
   Dim TamB     As Integer
   Dim FirstCHR As String
 
       TamC = Len(Cadena)
       TamB = Len(Busca)
 
       If TamC = 0 Or TamB = 0 Or TamC < TamB Then Exit Function
 
       FirstCHR = Mid$(Busca, 1, 1)
 
       For x = Start To TamC - TamB
           If Mid$(Cadena, x, 1) = FirstCHR Then
               If Mid$(Cadena, x, TamB) = Busca Then
                   InStr2 = x
                   Exit Function
               End If
           End If
       Next
 
End Function

P.D: Mr. Frog, espero consejos

GRACIAS POR LEER!!!

HOLA!!!

XD lo que pasa es que el code que habia armado era para sustituir caracteres 1 a 1 no 1 a 5.

Igual Novlucker lo soluciono y mejoro XD.

GRACIAS POR LEER!!!

HOLA!!!

Olvidate de los bat, aca es como si fuese la ventanita "ejecutar" de windows, pones shell y la ruta del exe

GRACIAS POR LEER!!!

HOLA!!!

Aca si me pongo del lado de no darte mas código, tenes una estructura armada, modificala a tu gusto.

GRACIAS POR LEER!!!

HOLA!!!

Busca sobre la funcion Shell, es facil de usar, lo mas basico seria shell("ruta_del_exe")

GRACIAS POR LEER!!!

HOLA!!!

Bueno, perdon Novlucker, es que a estas horas de la mañana en el trabajo me aburro y me entretengo haciendo algun que otro codigo XD.

Si queres no doy mas codes hechos :-/ , como vos digas.

P.D: Pfff , me retaron .

GRACIAS POR LEER!!!

HOLA!!!

Solucion:

Private Function Reemplazar_Aleatorio(Texto_orig As String, caracter_a_sustituir As String)
Randomize
For x = 1 To Len(Texto_orig)
    If Mid(Texto_orig, x, 1) = caracter_a_sustituir Then
        Texto_orig = Mid(Texto_orig, 1, x - 1) & Int(Rnd * 6) & Right(Texto_orig, Len(Texto_orig) - x)
    End If
Next
Reemplazar_Aleatorio = Texto_orig
End Function
 
Private Sub Form_Load()
texto_nuevo = Reemplazar_Aleatorio("holax, comox andax", "x")
Debug.Print texto_nuevo
End Sub

GRACIAS POR LEER!!!