antares18

Se calcula sustituyendo los valores de los puntos en la ecuación de 2o grado

La función cuadrática tendría esta forma Sustituimos el valor del punto en la función a*(-2)^2-2a+a=18 4a-2a+a=18 3a=18 ->a=6 Entonces la función es

Depende si el profesor lo quieres con decimales o no. Si es sin decimales es la 2a opción y si es con decimales la 1a

En vez de poner Sheets("temporal").[A10] pon Sheets("temporal"). Range("A10")

Si AOC = AOB+BOC BOD=BOC+COD El angulo BOC es el común a los 2 Si restamos los dos ángulos nos queda que AOB=COD No se si me has entendido bien es como poner a+b=b+c. Por tanto a=c

Private Sub CommandButton1_Click() Dim i As Integer Dim j As Double Dim filas_informe As Double filas_informe = 0 j = 2 For i = 1 To 31 'Mira hoja por hoja de la D1 a la D31 With Worksheets("D" + CStr(i)) ' Se usa el With para no tener que escribir...

A que te refieres con, si para estructuras existen subrutinas. ¿Te refieres a que si puedes poner una función en la estructura? Si es eso, no se puede hacerlo, para eso se usan las clases. Las clases son como las estructuras pero puedes poner funciones

Has de poner, teóricamente (Nombre de la hoja). Showalldata. Ej Hoja1. Showalldata Si tienes varios filtros en la hoja te los quita todos. Si tienes 4 filtros, no puedes quitar 1 o 2 o 3, te quita los 4

Aqui tienes

Esperemos que sea esto lo que quieres. Lo he puesto en un botón. Private Sub CommandButton1_Click() Dim filas As Double Dim columnas As Integer Dim periodo As Integer Dim fila_origen As Integer Dim filas_de_cada_color As Integer Dim i As Integer Dim...