¡Escribe un pequeño programa usando Excel! ! ¡Arrodillarse! ! ! ¡No sé programar en Excel! ! !
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