Private Sub CommandButton1_Click()
i = 1
a = 1E+30
While Not IsEmpty(Range("A" & i))
If Abs(Range("B" & i).Value - Range("C" & i).Value) < a Then
a = Abs(Range("B" & i).Value - Range("C" & i).Value)
End If
i = i + 1
Wend
Range("F1").Value = a
End Sub
Макрос в Excel
есть табличка, несколько филиалов фирм, суммы отчислений на таможенные расходы и на содержание фирмы. нужен макрос, выдающий филиал с наим. разницей сумм отчисления. буду благодарна любой помощи.
спасибо большое!
[EMAIL="sh3hk0d@gmail.com"][ATTACH]4437[/ATTACH]
[ATTACH]4438[/ATTACH]
[ATTACH]4439[/ATTACH][/EMAIL]Доброе время суток!
Помогите пожалуйста с решением проблемы:
Есть много файлов, которые лежат в отделой папке, необходимо собрать с них данные и переместить в отдельный файл(книгу)
С файла Степная выберается поступление и ввод, с приложения дл ИД - затраты.
Конечный файл - конечная.
Заранее благодарен.
[ATTACH]4438[/ATTACH]
[ATTACH]4439[/ATTACH][/EMAIL]Доброе время суток!
Помогите пожалуйста с решением проблемы:
Есть много файлов, которые лежат в отделой папке, необходимо собрать с них данные и переместить в отдельный файл(книгу)
С файла Степная выберается поступление и ввод, с приложения дл ИД - затраты.
Конечный файл - конечная.
Заранее благодарен.