Как посчитать это с макросов в Excel VBA? Дан столбец чисел. Просуммировать все числа в этом столбце
попадающие в интервал от -20 до 20 и вывести результат в конце.

11.01| 101

     |

     | 0.10100110011001100110011001100110011001100110011001

11

--   не делится, добавляем 0 (в частное целые 0)

110

101

---  делится (в частное десятые 1)

---  остаток 1, сносим 1 - мало, (в частное 0 - сотые), сносим 0

  110

  101

   делится (в частное тысячные 1)

   остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0), сносим 0

    1000

     101

      делится (в частное 1)

      остаток 11,сносим 0

      110

      101

      --- делится (в частное 1)

      --- остаток 1,сносим 0-мало,(в частное 0),сносим 0-мало,(в частное 0),сносим 0

        1000

         101

          делится (в частное 1)

          остаток 11,сносим 0

          11

        и т д

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,x,y,r:Integer;
begin
Randomize;
Image1.Picture := nil;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Rectangle (0,0,Image1.Width,Image1.Height);
Image1.Canvas.Brush.Color:=clWhite;

for a:=1 to RandomRange(9,20) do
begin
x:=RandomRange(50,1000);
r:=RandomRange(1,15);
y:=RandomRange(50,550);
Image1.canvas.Ellipse(x-r,y-r,x+r,y+r);
end;

end;
procedure TForm1.Image1Click(Sender: TObject);
begin

end;

end.

на форме image и кнопка

(если тебе нужна просто программа(как я думал изначально) напиши в почту, просто уважаемые админы удаляют мои посты :(   )