Замечание: данные в файле должны быть записаны по одному числу в строке.
const m=100; { максимальное количество чисел в файле } var f:Text; i,j,n,k:integer; a:array[1..m] of integer; begin { читаем данные из файла в массив } Assign(f,'SuperFile.txt'); Reset(f); i:=0; while not Eof(f) do begin Inc(i); Readln(f,a[i]) end; Close(f); n:=i; { сортируем массив по возрастанию методом пузырька } for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end; { заполняем файл из массива } Rewrite(f); for i:=1 to n do Writeln(f,a[i],' '); Close(f) end.
'На первом листе внесите данные 'При добавлении записей формулу вычисления задолженности добавлять не надо 'Запускаете макрос - результат (отчет) на втором листе 'На первом листе формулы пересчитывается - результаты обновляются 'Форма в этом случае -излишне Dim i, j, s, a
Sub Othet () Dim info As Variant
'Clear OTHET(2 list) Sheets(2).Select Range("A1:I1").Select With Selection .HorizontalAlignment = xlGeneral: .VerticalAlignment = xlBottom .AddIndent = False: .IndentLevel = 0: .ShrinkToFit = False: .MergeCells = True End With Selection.Font.Bold = True With Selection End With Sheets(2).Cells(1, 1) = "ОТЧЕТ"
'Shapka 1 list Sheets(1).Select info = Array("", "фамилия", "адрес", "дата", "стоимость заказа", "сумма аванса", "задолженность", "вид заказа") For i = 1 To UBound(info) Cells(1, i) = info(i) Next
Какие вопросы вам нужны?Напиши конкретно