Цитата (goGAS писал(а)):
Так сделать это надо в Excel

Sub circle3() Dim x%, y%, i% For y = -14 To 14 For x = -14 To 14 If (x + 7) ^ 2 + (y + 7) ^ 2 <= 49 And x ^ 2 + y ^ 2 > 49 Or _ (x - 7) ^ 2 + (y - 7) ^ 2 <= 49 And x ^ 2 + y ^ 2 > 49 Or _ (x + 7) ^ 2 + (y + 7) ^ 2 > 49 And (x - 7) ^ 2 + (y - 7) ^ 2 > 49 And _ x ^ 2 + y ^ 2 <= 49 Then i = i + 1 Next x, y Debug.Print i End Sub
результат 343
или формулой массива:

=СУММ(ЗНАК(((СТРОКА(1:29)-15+7)^2+ТРАНСП(СТРОКА(1:29)-15+7)^2<=49)*((СТРОКА(1:29)-15)^2+ТРАНСП(СТРОКА(1:29)-15)^2>49)+((СТРОКА(1:29)-15)^2+ ТРАНСП(СТРОКА(1:29)-15)^2<=49)*((СТРОКА(1:29)-15+7)^2+ТРАНСП(СТРОКА(1:29)-15+7)^2>49)*((СТРОКА(1:29)-15-7)^2+ТРАНСП(СТРОКА(1:29)-15-7)^2>49) +((СТРОКА(1:29)-15-7)^2+ТРАНСП(СТРОКА(1:29)-15-7)^2<=49)*((СТРОКА(1:29)-15)^2+ТРАНСП(СТРОКА(1:29)-15)^2>49)))