Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Hola, necesito saber como activar el ScrollBarVertical en una Page que esta dentro de un Multipage en VBA, ya que la información que se encuentra en esta pagina es muy largo y el largo de la Multipage en General la necesito más pequeña. Ya active en las propiedades de la pagina (page):

KeepScrollBarsVisible     3-fmScrollBarsBoth
ScrollBars                       2-fmScrollBarsVertical
ScrollHeight                    0 (no se cambia)
ScrollLeft                        0 (no se cambia)
ScrollTop                        0 (no se cambia)
ScrollWidth                     0 (no se cambia)

Sin embargo, el desplazamiento no esta activado, espero que me puedan ayudar, gracias de antemano

Hola no sé cual es el problema en este código de VBA, lo que quiero que haga es que me sume los valores con dos condiciones, la primera es que sume los valores <>0 y los valores que correspondan a los meses de enero, estoy ocupando la función "sumIFs" y este es el código, el que me pueda ayudar se lo agradeceré

Application.WorksheetFunction.SumIfs(Range(Range("H4"), Range("H4").End(xlDown)), Range(Range("A4"), Range("A4").End(xlDown)), "<>0", Month(Range("C4")))

Hola estoy haciendo una hoja de calculo para hacer regresiones polinómicas, todo se calcula muy bien solo que por cuestiones de presentación quiero que en los coeficientes que no este utilizando no aparezca "#N/A" sino la casilla en blanco, adjunto archivo donde al cambiar el grado del polinómio en la casilla "G1" de 0 a 8.

Para explicarme más claramente en el ejemplo que mando: Si yo coloco un 4 en la casilla "G1" los coeficientes:
a₀=3.44E+05, a₁=9.69E+04, a₂=-1.06E+03, a₃=5.73E+00, a₄=-1.05E-02, a₅=#N/A, a₆=#N/A, a₇=#N/A, a₈=#N/A y quiero que aparezca así:
a₀=3.44E+05, a₁=9.69E+04, a₂=-1.06E+03, a₃=5.73E+00, a₄=-1.05E-02, a₅=0.00E+00, a₆=0.00E+00, a₇=0.00E+00, a₈=0.00E+00.

Espero que me pueda ayudar, muchas gracias de antemano.

Hola estoy haciendo un programa en VBA en Excel y me falta solo un elemento para incluir en la función.
El programa debe de sumar la distancia entre dos puntos y sumarla si cumple ciertas condiciones, esto parte de una lista de puntos, donde si es el mismo punto la distancia es cero, asi sucesivamente hasta completar todos los puntos, ahorita tengo un código que empece pero me marca un error, creo que no estoy tan perdido, envío el codigo:

'Función para Calcular Inversa de la Distancia al Cuadrado (1/D)^n un punto cumpliendo condiciones
Function SUMWS(Po, Pfs As Range, x As Integer, y As Integer, n As Integer, Fecha As Date) As Double 'Pfs es la variable que recibe el rango de puntos a evaluar
'Esta función SUMA las W si cumple ciertas Condiciones (Fecha, Valor<>"", Po<>Pfs)
    Dim DIST, W, Xo, Yo, Xf, Yf As Double
    Dim COND As Double 'Integer
    If Pfs = Po Then
        CW = Empty
        Else
        Z = Pfs.EntireRow.Count
        SUMWS = Null
        For Each Pf In Pfs
' Condiciones de Fechas Iguales, Valor Diferente de Vacío y Diferentes Puntos (Fecha, Valor<>"", Po<>Pfs)
            COND = Application.WorksheetFunction.CountIfs(Worksheets("Registro").Range("B:B"), _
            Fecha, Worksheets("Registro").Range("A:A"), Pf, Worksheets("Registro").Range("C:C"), ">0")
           
            Xo = Application.WorksheetFunction.VLOOKUP(Po, Worksheets("Est Aled").Range("B:K"), x, False) 'Busca Xo
            Xf = Application.WorksheetFunction.VLOOKUP(Pf, Worksheets("Est Aled").Range("B:K"), x, False) 'Busca Xf
            DistX = (Xo - Xf) ^ 2 'Calcula Binomio Cuadrado de X
           
            Yo = Application.WorksheetFunction.VLOOKUP(Po, Worksheets("Est Aled").Range("B:K"), y, False) 'Busca Yo
            Yf = Application.WorksheetFunction.VLOOKUP(Pf, Worksheets("Est Aled").Range("B:K"), y, False) 'Busca Yf
            DistY = (Yo - Yf) ^ 2 'Calcula Binomio Cuadrado de Y

            DIST = (DistX + DistY) ^ (1 / 2) 'Calcula la Distancia entre puntos
            W = 1 / DIST ^ n 'Calcula la función inversa de la distancia elevado a la n (1/D)^n
' Sumatoria de la función inversa de la distancia elevado a la n (1/D)^n
            CW = COND * W 'Si cumple las condiciones COND = 1, si no COND = 0 y se multiplica por la función W
            SUMCW = CW + Pf
        Next Pf
            SUMWS = CW
    End If
End Function

Gracias y espero su ayuda, tambien envio erchivo en Excel