|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.12.2011, 21:54 | #1 |
Новичок
Джуниор
Регистрация: 20.12.2011
Сообщений: 5
|
Выручка
Добрый вечер не могу Найти какой процент от общей выручки за сентябрь 2009г составляет выручка от продажи продуктов Сернурского молочного завода?
Sub task1() Dim rng As Range Dim summa1, s1, s2, summa2, summa3, pr As Integer Set rng = ActiveWorkbook.Sheets("Ëèñò1").Rang e("A3:D2503") l = rng.Rows.Count For i = 1 To l If rng.Cells(i, 1) >= #2/20/2009# And rng.Cells(i, 1) <= #2/23/2009# Then If Right(rng.Cells(i, 2), 13) = "Êàçàíñêîãî 5" Then s1 = s1 + rng.Cells(i, 4) End If End If Next summa1 = s1 * Cells(8, 11).Value For i = 1 To l If rng.Cells(i, 1) >= #9/1/2009# And rng.Cells(i, 1) < #9/30/2009# Then If Right(rng.Cells(i, 2), 13) = "Êàçàíñêîå 5,0" Then s2 = s2 + rng.Cells(i, 4) End If End If Next summa2 = s2 * Cells(9, 11).Value summa3 = s2 * Cells(7, 11).Value pr = (summa3 - summa2) / summa2 * 100 |
21.12.2011, 22:49 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
summa1 где потерялась
А зачем циклы ганять, Код:
Код:
Анализ,обработка данных Недорого
|