Ayuda para escribir un programa de suma en Excel usando VBA.

Los datos están en la columna BCDEFGH de la fila 2 y el resultado de la suma se genera en la fila grande correspondiente a la columna I.

Sub tongji()

m = InputBox("Ingrese la fila inicial (número) de la suma estadística: ")

n = InputBox("Entrada La fila final (número) de la suma estadística: ")

x = InputBox("Ingrese la columna inicial (letra mayúscula) de la suma estadística: ")

y = InputBox ( "Ingrese la columna final (letra mayúscula) para la suma estadística:")

Si Val(m) gt o Val(m) = False o Val(n) = False entonces MsgBox; ( "¡El número de línea ingresado es incorrecto!")

Seleccione Caso x

Caso es = "B"

Caso es = "C"

Caso Es = "D"

Caso Es = "E"

Caso Es = "F"

Caso Es = "G"< / p>

.Case Is = "H"

Case Else

MsgBox ("La entrada del número de columna inicial es incorrecta.")

! ")

Finalizar selección

Seleccionar caso y

Caso es = "B"

Caso es = "C"

Caso Es = "D"

Caso Es = "E"

Caso Es = "F"

Caso Es = "G"

Case Is = "H"

Case Else

MsgBox ("¡La entrada del número de la columna final es incorrecta!")

End Select

Rango("I" amp; Val(n)) = WorksheetFunction.Sum(Range(x amp; Val(m) amp; ":" amp; y amp; Val(n)))

Fin del subtítulo