Red de conocimiento informático - Material del sitio web - ¡Escribe un pequeño programa usando Excel! ! ¡Arrodillarse! ! ! ¡No sé programar en Excel! ! !

¡Escribe un pequeño programa usando Excel! ! ¡Arrodillarse! ! ! ¡No sé programar en Excel! ! !

SubSheet_Change privado (objetivo ByVal como rango)

si el objetivo. Entonces dirección (0, 0) = "C3"

N = 0

Para I = 1 a 25

^ 2

si N = objetivo. valor entonces [c5]. Valor = I:Salir

Si N & gt objetivo. valor entonces [c5]. Valor = "¡No hay valor adecuado!":Salir

Entonces

Terminará si...

Finalizar conector

匡本8 21:00:17

¿Pero qué pasa si la columna A no es un número natural?

Kuang Ben 8 21:00:27

Puede haber decimales.

SubSheet_Change privado (objetivo ByVal como rango)

Si es objetivo. Entonces dirección (0, 0) = "C3"

N = 0:[c5]. valor = " "

Para I = 1 a 25

N = N + (celda(I,"A").valor)^2

si norte = objetivo. valor entonces [c5]. Valor = I:Salir

Si N & gt objetivo. valor entonces [c5]. valor = " Cerrar valor: = " & I: conector de salida

Entonces

terminará si...

Finalizar conector

Aproximación exacta

Subsheet_Change privada (objetivo ByVal como rango)

Si es objetivo. Entonces dirección (0, 0) = "C3"

n = 0: [c5]. valor = " "

Para i = 1 a 25

n = n + (valor de celda(I, "A").^2

si norte = objetivo. valor entonces [c5]. Valor = i:salir

si n & gt objetivo. Eso vale

Para j = 1 a i - 1

m = m + (cell(I,"A").value)^2

Entonces

[c5]. value = " Close value:= " &IIf(abs(m - Target.Value)& ltabs(n - Target.Value), i - 1, i): conector de salida

Si... Finalizar

Entonces

Finalizar si...

Finalizar conector