Estoy tratando de escribir una ecuación que varía en la columna, la ecuación general es la misma.
Es decir, hay una columna A, B y C, con la ecuación que muestra los resultados en la columna C. La ecuación general = C1 (un resultado inicial) + (B3 + B1) / 2 * (A3-A1) que se actualizaría en la siguiente fila a
= C2 + (B4 + B2) / 2 * (A4-A1) y así sucesivamente a medida que avanzas por la columna
Además de esto, he incluido * para mostrar en la Columna C cuando no hay valores en la columna A, el código que he escrito hasta ahora se muestra a continuación, realmente espero que alguien me pueda ayudar gracias
''''row number = row number + 1 on a loop Worksheets("Sheet3").Cells(19, 1) = 0 '''this is A1=0 Worksheets("Sheet3").Cells(19, 3) = 0 '''This is C1 = 0 If Worksheets("Sheet3").Cells(19 + row_number, 1) = "" Then ''''if cell in A column is blank show * in column C Usui_wear_depth = "*" Else: Usui_wear_depth = Application.WorksheetFunction.Sum(Sheet3.[C22] + (([B25] + [B22]) / 2) * ([A25] - [A21])) ''' this is the General equation End If Worksheets("Sheet3").Cells(19 + row_number, 6) = Usui_wear_depth Esto se puede hacer fácilmente como una fórmula única, sin necesidad de VBA:
=IF(ISBLANK(A3),"*",C1+(B3+B1)/2*(A3-$A$1))
Si simplemente copy esta fórmula en las celdas de la columna C, cambiará según lo descrito.
Hice la reference a A1 una reference absoluta, ya que era la única en su ecuación que no cambió de la primera versión a la segunda. También puede decidir qué celda de la Columna A debe marcarse para mostrar '*'. No lo entendí por su pregunta. ¡Espero que esto ayude!