Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как сделать автоматизированый график ТО автомобилей?, расчет технического обслуживания грузовых автомобилей
 
#1
21.02.2016 20:18:19
Скачал таблицу с нета (даже помоему с этого сайта - не помню), внес свои даные, но она делает график не правильно.
Помогите пожалуйста сделать автоматизированый расчет ТО автомобилей для вкладки Скания.
Тема такая, таблица должна просчитать график ТО автомобилей с соответствии с периодичностью прохождения ТО.
Что нужно изменить в таблице?
В столбце 6 "Последнее ТО - вид" необходимо выбирать виды ТО (для авто. Скания это ТО-Х, ТО-S, ТО-L)
Столбцы 7,8,9 будут вносится вручную
Столбец 10 - должен вычислять какое по виду следующее ТО (в принципе это в табл.делается, но там прописаны не те виды)
Столбец 11 - должна вычисляться дата следующего ТО (также вычисляется) но надо проверить (там привязано в периодичности то 2430км и 9720км, у меня другая периодичность ТО - описано ниже)
Столбец 12 - пробег после последнего ТО (здесь ничего сложного)
Столбец 13-58 - здесь программа должна на против числа когда по плану должно быть ТО, должна поставить вид ТО (ТО-Х, ТО-S или ТО-L)

Надаю даные по периодичности ТО:
через каждые 22 500 км ТО-Х
через каждые 45 000 км ТО-S
через каждые 180 000 км ТО-L
Пример:
22500км-ТО-Х, 45000км-ТО-S, 67500км ТО-Х, 90000км ТО-S .... и так до 180 000 км в 180 000 км ТО-L, а потом опять ч/з 22500 черидуются ТО-Х и ТО-S до 360 000 км, а дальше по той же схеме.
 
 
 
#2
21.02.2016 21:03:40
у Вас в файле все рассчитывает Макрос,  попробуйте в него вставить свои данные, в принцип работы его не вникал,
выдержка из файла
Скрытый текст
Изменено: Александр Сергеевич - 21.02.2016 21:04:08
не нужно оскорблять.
 
 
 
#3
21.02.2016 21:40:12
Код
Function NextRepear(LastRepear As String, m As Integer)
  Dim n As Integer, Cycle
    Cycle = Split("ÒÎ-X,ÒÎ-S,ÒÎ-L", ",")
    n = Application.WorksheetFunction.Match(LastRepear, Cycle, 0)
    n = (n + m) Mod 3
    NextRepear = Cycle(n)
End Function

Function FutureRepear(LastRepear As String, LastDate As Date, CurrentDate As Date, Cross As Double)
    Dim Delta As Integer
    Delta = Int((CurrentDate - LastDate) * Cross)
    If Delta < 22500 Then
       FutureRepear = ""
    ElseIf Delta >= 22500 And Delta < 22500 + Cross Then
       FutureRepear = NextRepear(LastRepear, 0)
    ElseIf Delta >= 45000 And Delta < 45000 + Cross Then
       FutureRepear = NextRepear(LastRepear, 1)
    ElseIf Delta >= 180000 And Delta < 180000 + Cross Then
       FutureRepear = NextRepear(LastRepear, 2)
    Else
       FutureRepear = ""
    End If
End Function

Изменения сделал, но всеравно считает немного нетак как надо
Дату ТО столбец 11 расчитывает правильно, но не верно указывает вид следующего ТО (как в столбце 10 так и в столбце 34). если при пробеге 157500 было то-х то следующее должно быть при пробеге 180 000 то-L
Надаю талб. периодичности то, гляньте ПЛИЗ, может одалеете эту зловещую таблицу.
Руководитель хочет из механика сделать програмиста - не реально
 
 
 
#4
14.12.2020 10:28:31
ДОБРЫЙ ДЕНЬ!
подскажите каким образом реализуется связь в выборе вида ТО в столбцах F и J?
 
 
 
#5
14.12.2020 12:32:19
Tossha, при обращении к кому-либо используйте кнопку "имя" + смотрите на даты — теме 2 года, так что советую создать свою  ;)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#6
14.12.2020 13:27:37
Jack Famous, тема актуальна, но не могу догнать как в приведенных таблицах работает автоматическая привязка видов ТО (последний и следующий)
 
 
 
#7
14.12.2020 13:55:11
Цитата
Tossha: тема актуальна
ну ждите тогда ответа от автора :D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#8
14.12.2020 14:05:21
 Jack Famous, автор же не колдовство применял при написании формул. может кто-нибудь знает и подскажет
 
 
 
#9
14.12.2020 15:04:41
Цитата
Tossha написал:
автор же не колдовство применял при написании формул
Автор применял свои знания, которые не факт что правильные и не факт что оптимальна скорость расчетов.
К тому же с тех пор прошло почти 5 лет, в экселе кроме формул появились еще интересные инструменты.
Разгребать километровую формулу никому не известного тут автора вряд ли тут кому интересно.
Опишите вашу задачу, что есть на входе и что хочется получить на выходе.
Вот горшок пустой, он предмет простой...
 
 
 
Страницы: 1
Читают тему
Наверх