Использование макроса для расчета затрат в большом отчете

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование макроса для расчета затрат в большом отчете (Макросы/Sub)

МихСаныч

Дата: Понедельник, 13.02.2017, 14:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Понимаю, что моя проблема многим покажется смешной, но, надеюсь, не откажете в помощи)
Есть длинный отчет по различным работам, и по каждой имеются объекты повышенного внимания, которые могут меняться, а в отчете по ним должна быть подробная информация.
Расчет очень простой. Раньше я просто копировал расценки (Отчет_с в примере) и все было замечательно, но... Не понравилось.
И эта ерунда вдруг вылилась в уйму ручной работы.
Собственно просьба:
Макрос для расчета затрат по объектам повышенного внимания.

К сообщению приложен файл: 001.xls (37.0 Kb)

Сообщение отредактировал МихСаныч - Понедельник, 13.02.2017, 15:46

Ответить

китин

Дата: Понедельник, 13.02.2017, 15:07 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7015

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

ну если вам надо заполнить на листе пустые ячейки в графе расценка, то это можно сделать штатными средствами: выделяете столбец расценка, жмете F5 выделить пустые ячейки .нажимаете = набираете F6 Ctrl+enter/ defkz

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Udik

Дата: Понедельник, 13.02.2017, 15:07 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Не понял, что нужно. Покажите в файле желаемый результат. Просто, судя по второму листу, там простейшими формулами можно обойтись.

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Понедельник, 13.02.2017, 15:12

Ответить

Pelena

Дата: Понедельник, 13.02.2017, 15:20 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

МихСаныч, дайте теме более конкретное название в соответствии с Правилами форума
Исправлено

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

МихСаныч

Дата: Понедельник, 13.02.2017, 15:38 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата китин, 13.02.2017 в 15:07, в сообщении № 2 ()

Не должно быть расценок в строках с расчетами по объектам

Цитата Udik, 13.02.2017 в 15:07, в сообщении № 3 ()

Желаемый результат как раз в Отчет_с, и совершенно понятно, что можно обойтись формулами. Но забивать формулы с константами в 5000 с лишним строк - это как раз та проблема, которой хочется избежать.
В принципе алгоритм понятен: в столбце с расценками от i-той строки провести поиск по убыванию номера строки, пока не будет найдена ячейка с данными, эти данные присвоить переменной "расценка", и произвести расчет в i-той строке умножением данных из столбца "Выполнение" на "расценку" с занесением результата в столбец "Сумма". Строки, в которых ячейка в столбце "Расценка" содержит какие-либо данные, из расчета исключить. Пробовал написать сам, но никогда раньше этим не занимался...

Цитата Pelena, 13.02.2017 в 15:20, в сообщении № 4 ()

МихСаныч, дайте теме более конкретное название в соответствии с Правилами форума

Тысяча извинений, но не придумал более подходящего названия. Сейчас постараюсь переименовать.

Цитата китин, 13.02.2017 в 15:07, в сообщении № 2 ()

Не должно быть расценок в строках с расчетами по объектам

Цитата Udik, 13.02.2017 в 15:07, в сообщении № 3 ()

Цитата Pelena, 13.02.2017 в 15:20, в сообщении № 4 ()

МихСаныч, дайте теме более конкретное название в соответствии с Правилами форума

Тысяча извинений, но не придумал более подходящего названия. Сейчас постараюсь переименовать.МихСаныч

Ответить

Сообщение

Цитата китин, 13.02.2017 в 15:07, в сообщении № 2 ()

Не должно быть расценок в строках с расчетами по объектам

Цитата Udik, 13.02.2017 в 15:07, в сообщении № 3 ()

Цитата Pelena, 13.02.2017 в 15:20, в сообщении № 4 ()

МихСаныч, дайте теме более конкретное название в соответствии с Правилами форума

Тысяча извинений, но не придумал более подходящего названия. Сейчас постараюсь переименовать.

Автор - МихСаныч
Дата добавления - 13.02.2017 в 15:38

Wasilich

Дата: Понедельник, 13.02.2017, 15:58 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Так что ли?
[vba]

Код

Sub расчет()
  Dim i&, R&
  For i = 6 To Range("D" & Rows.Count).End(xlUp).Row
      If Cells(i, "F") > 0 Then R = Cells(i, "F")
      Cells(i, "F") = R
      Cells(i, "H") = Cells(i, "F") * Cells(i, "G")
  Next
End Sub

[/vba]

Ответить

МихСаныч

Дата: Понедельник, 13.02.2017, 16:10 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

В Примере работает) Огромное спасибо!
З.Ы. Теперь попробую понять, почему оно работает =))

Ответить

sboy

Дата: Понедельник, 13.02.2017, 16:21 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
вариант
[vba]

Код

Sub summ()
x = 6
q = Cells(Rows.Count, 7).End(xlUp).Row
    Do While x < q
        y = Cells(x, 6).End(xlDown).Row
            If y > q Then y = q + 1
        Range(Cells(x + 1, 8), Cells(y - 1, 8)).FormulaR1C1 = "=RC[-1]*R" & x & "c[-2]"
        x = y
    Loop
End Sub

[/vba]

К сообщению приложен файл: 7871820.xls (41.5 Kb)

Яндекс: 410016850021169

Ответить

МихСаныч

Дата: Вторник, 14.02.2017, 12:23 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

И тоже работает ) Спасибо!

Ответить

Страница 1 из 1
1