Kenshi – игра жанра песочница. Поднимай своего персонажа с нуля, в какой бы ситуации он бы не находился. В игру тебя точно затянет, ведь это то, что нас так тянет. Увеличивай комфорт выживания, увеличивай своё могущество, исследуй руины всё это предоставляет нам игра.

Всё началось с того, как я очередной раз выбирал новую игру и наткнулся на предысторию «Странствующий торговец».

Будет ли интересно отыграть? Каким способом можно зарабатывать деньги при помощи торговли в Kenshi:

• Купля продажа товаров из одного города в другой;

• продажа товаров с собственной базы.

Посчитал, что стать гением в плане торговли будет очень интересно, так же можно подключить сюда автоматизацию и оптимизацию, чтобы увеличить выгоду.

Игра начинается в пустыне с начальными предметами.

Сказать честно, я бы не стал работать торговцем, потратив все деньги на предметы роскоши в пост-апокалипсисе… Но, что есть, то есть. Ножовки, думаю, будут хорошо продаваться в городах, где есть рабство. Из плюсов: рюкзак торговца, всё же какой-никакой товар, вьючный бык. Вьючный бык пока молодой и сильно не нагруженный – не потребляет огромное количество мяса, да и в пустыне можно собирать лут с рвачей и кормить Позвонка.

Начал со сбора информации.

Цель на начало:

• исследовать пустынные города;

• записать наименования товаров, цену и наценку на товар;

• продать максимально выгодно, исходя из собранной информации.

По мере исследования я наткнулся на подводные камни:

• краденные вещи в 2 раза дешевле при продаже;

• еда в 2 раза дешевле при продаже, оружия и доспехи на много дешевле при продаже;

• в другом сохранении наценки на товары меняются.

Вывод: нужно продавать предметы обихода: строительные, алкогольные товары, а также медикаменты, ремкомплекты, а если повезёт найти, то и роботехнические товары. Так же обзавестись небольшим сарайчиком, где поставить арбалетный шкаф, который до версии 1.0.5.0 до сих пор сбрасывает метку «украдено» и сделать таблицу не рутинно-заполняемой, то есть автоматической.

На фото главные герои сей истории. Вероника – странствующий торговец и Позвонок – вьючный бык

Изначально вёл тетрадь, куда записывал все цены. По мере увеличения информации и товара, для которого приходилось перепосещать города, был сделан выбор в пользу таблицы Excel. Столкнулся с неудобностью быстрого поиска и анализа почерка.

Структура таблицы простая. Область, город, товар, наценка. Так же если сделать умную таблицу, то можно сортировать строки.

Собирал товары, продавал. Теперь нужно как-то искать, где можно купить определенный товар по минимальной выгоде, а продать по максимальной.

Вся сложность в том, чтобы всё работало, когда заполняешь таблицу новыми данными, ячейки подстраивались.

Что происходит?

В отдельной таблице записаны уникальные товары и цена на них. Наценку ищем из 1-вой таблицы минимум, максимум соответственно, и на основе полученных данных находим товар с данной наценкой в области карты и городе, а также высчитываем купле-продажу с учетом наценки для одного товара и количество повторений в 1-вой таблице. Для наглядности добавляем форматирование на ячейки. Если нужен разбор формул в ячейках, то можно написать дополнительную статью для таблицы.

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

• В таблице появились новые листы;

• карта была разбита на 2 части;

• добавлены условные форматирования и часть таблицы заменена формулами;

• добавлена система поиска уникальных товаров.

В итоге я провел время с пользой, стараясь с купли продажи выжать максимальную выгоду. Заморочиться с формулами и удобностью таблицы. Результаты работы представлены ниже:

[GIF] GIF VIEW

Для того, чтобы добавить товар, нужно:

1. в 1-й таблице «Цены на общие товары» нижней строке таблицы заполнить область карты, город, товар, наценка, область карты;

2. во 2-й таблице «Все цены» заполнить товар, цена, если товара ещё нет в таблице (проверить на уникальность в 5-й таблице «Уникальные товары») и аналогично заполнить таблицы 3 «Цены 1 части» и 4 «Цены 2 части;

[GIF] GIF VIEW

3. в 5-й таблице «Уникальные товары» перетащить формулу, если товара ещё нет в таблице или счетчик уникальных товаров разнится;

[GIF] GIF VIEW

4. при возникновении сбоев проверить скрытые ячейки на правильное отображение и автопродление. Удалить и перетащить ближайшие правильные формулы в конец списка.

Думаю, что по мере заполнения таблицы и изменения её структуры напишу ещё статью.

До встречи, спасибо за интерес к моей статье.

Ссылки на материалы:

Сохранение мира, материалы статьи

Таблица

Скриншоты:

3 года назад в наследство от предыдущего руководителя получил интересный процесс. На определенный емайл приходят письма с актами несоответствий в форме excel и соостветствующими фотографиями. Каждый акт надо проверить (правильно ли заполнен), зарегестрировать в базе данных (частично вручную, частично с помощью макроса) и переслать адресату (на определенный склад). Получив ответ, нужно снова его проверить, зарегестрировать и переслать первоначальному отправителю.

Проблема в том, что:
- таких актов бывает 2500-3500 в месяц плюс столько же с ответами со складов, и приходя на работу в понедельник, работник имеет ~500 актов, полученных за выходные. Соответственно акт, который был составлен в пятницу, из-за такой нагрузки будет отправлен складу, когда до него дойдет работник (в лучшем случае в среду), когда указанной в акте партии товара там уже не будет и проверять будет нечего.
- макрос записывает в базу данных минимум информации. Поэтому, когда нужна статистика по определенному товару (а нужна она часто), надо чуть-ли не вручную просматривать каждый акт.
- по действующей инструкции работник сам может дать ответ на акт (так как он просматривает каждый акт) не пересылая его складу. Поэтому склад не знает о своих проблемах до конца месяца, пока не получит отчет.
Эти проблемы и некоторые другие нюансы подтолкнули к идее автоматизировать процесс. Но перед этим договорился с другими департаментами поменять процесс:
все без исключения акты должны были пересылаться складам и все решения по актам должны приниматься складами.
По предварительным подсчетам получалось, что без проблем можно автоматизировать около 80% работ. Этого было достаточно, так как оставшиеся 20% планировали отдать другому, незагруженному работнику, а основного работника перевести в другой отдел. При 90%-ой автоматизации объем работ вырастал вдвое.
Процесс роботизировала сторонняя компания (назовем её условно «РобоКо») с помощью UiPath. Так как я описывал весь процесс и следил за его реализацией, советую обратить внимание на такие нюансы:
- как можно точнее опишите процесс (с помощью блок-схем и стрелок). Также включите в алгоритм действия, которые должны быть выполнены в случае какой- нибудь ошибки (переместить акт в другой каталог? просто игнорировать? отправить обратно отправителю со словами «ищите какую-то ошибку» или указать на ошибку? Вариантов, что делать в случае ошибки может быть чуть-ли не больше, чем описание самого процесса.
- да, да, сами опишите алгоритм. Сотрудники «РобоКо» пытались наблюдать и записывать действия нашего работника, а также читать наши процедуры, но мы же хотели переделать процесс, так что смысла в этих действиях не было. Вашу схему процесса сторонняя компания переделает по своим правилам, и её тоже надо проверить.
- разбивайте процесс роботизации на мелкие этапы и проверяйте работу робота после каждого этапа. У меня было так, что программист «РобоКо» неправильно понимал некоторые детали процесса или после какого-то этапа работ пропадала часть предыдущего этапа.
Робот, как и планировали, решил все проблемы. Запускали его по 5 раз в день, акты пересылались складам в тотже день.
От робота отказались через 1,5 года в пользу макроса (к тому времени я уже научился программировать в VBA), с помощью макроса постепенно автоматизировали ~95% работ. Макрос и теперь работает.
Что касается робота:
- после очередного обновления Windows пришлось перенести робота на другой компьютер, так как начала некорректно работать часть алгоритма.
- иногда не пересылались письма на склады, хотя в базе данных регистрировались. Во время тестирования таких проблем не было.
- были и другие проблемы. Не знаю, были ли это недостатки UiPath или неопытность программиста.
- в то время можно было какое-то время бесплатно пользоваться UiPath, или покупать лицензию при определенных условиях. Программа довольно быстро развивается и теперешних условий не знаю.
Как всегда, удивили люди. После успешного запуска робота отдел ИТ организовал совещание со всеми отделами, где я рассказывал о возможностях автоматизации. Ну и несколько руководительниц других отделов с пеной у рта доказывали, как плохо работает робот, хотя, блин, они в своей работе даже не сталкивались с ним.

Задача: сделать смету на ремонтно-строительные работы с автоматическим обновлением цен на материалы

Решение: пишем макрос в Excel

Sub getprice()

Название макроса

Set ws = ThisWorkbook.Worksheets("список")

Присваиваем переменной ws значение листа "список" текущей рабочей книги (текущая - к которой прикреплён модуль VBA)

TotalRow = ws.UsedRange.Rows.Count

Присваиваем переменной TotalRow значение количества использованных строк листа ws

For i = 1 To TotalRow - 1

Начало цикла, начиная с 1 до количества использованных строк - 1 (-1 так как дальше мы адресуем ячейки с переменной i + 1)

TempString = "=VLOOKUP(A" & i + 1 & ",каталог!$H$1:$I$24605,2,0)"

Присваиваем переменной TempString значение формулы ВПР из листа каталог. В макросах используются только английские формулы. В формуле используется переменная, обозначающая номер строки (А1, А2 и т.д.)

ws.Cells(i + 1, 2).Formula = TempString

Заполняем ячейки, начиная с B2 листа ws значением переменной TempString

Next i

Конец цикла

Set IE = CreateObject("InternetExplorer.Application")

Присваиваем переменной IE объект InternetExplorer

For i = 1 To TotalRow - 1

Начало цикла

URL = ws.Cells(i + 1, 2).Value

Присваиваем переменной URL значение ячейки, начиная с ячейки B2 (ВПР ссылки из каталога)

IE.navigate URL

Переходим браузером по URL

Do Until (IE.readyState = 4 And Not IE.Busy)
DoEvents
Loop

Ожидаем загрузку страницы

Set ieDoc = IE.Document

Присваиваем переменной ieDoc значение HTML-кода загруженной страницы

Set detail_elements = IE.Document.getElementsByTagName("span")

Присваиваем массиву detail_elements значение массива всех элементов с тегом "span"

For Each detail_element In detail_elements

Начало цикла

If detail_element.getAttribute("class") = "retailPrice" Then

Проверка условия - равен ли атрибут элемента "class" значению "retailPrice"

ws.Cells(i + 1, 3) = detail_element.innerText

Если условие истинно, записываем внутренний текст элемента в ячейку, начиная с ячейки C2. Этот код считывает цену из интернет-каталога.

End If

Конец условия

Next detail_element

Конец цикла

Next i

Конец цикла

IE.Quit

Закрываем браузер

For i = 1 To TotalRow - 1

Начало цикла

TempString = "=VALUE(C" & i + 1 & ")"

Присваиваем переменной TempString значение формулы ЗНАЧЕН

ws.Cells(i + 1, 4).Formula = TempString

Записываем в ячейки, начиная с D2, формулу из переменной TempString

Next i

Конец цикла

MsgBox "Обновление данных завершено"

Сообщение для удобства

End Sub

Конец макроса

Источник

Приветствую вас, мои подписчики и случайные читатели, сегодня будет новогодняя сказка, у неё три названия выбирайте любое.

Вариант№1 «О «девочке» Машеньке и чуде заморском «Excel» зовущимся»

Вариант№2 «Поле битвы I5-4200/16GB/SSD»

Вариант№3 «Научи Машу, таблички делать, она всю систему и повесит)))»

В «черном-черном» городе, была одна «серая компания», работали в ней творческие люди, и всю свою работу они писали в тетрадочки огромные.

Долго ли мало времени прошло неведомо, но стала та компания развиваться, и вот собрал всех директор и говорит.

- Мы же передовая компания?

- Передовая!!!!!!(хором кричат менеджеры)

-Так чего же мы всё бумагу мараем. Слышал я есть чудо заморское EXCELем зовется, так давайте самого смышлёного отправим на курсы шестимесячные, освоить его, кто пойдёт?

-(все хором) Конечно Машенька, она молодая толковая, из неё точно толк выйдет.

И прошла Машенька, курс длительный, в университете серьёзном, диплом красивый получила, и учёт весь в Excel наладила… И наступила благодать, смышлёные менеджеры, каждый в свою табличку всё заносят, а Машенька потом все данные вместе собирает, и всем удобство большое.

И минуло так три года, и с каждым годом стала Машенька всё больше жаловаться, что компьютер у неё совсем плох, и excel сломался тормозит и виснет, и сжалился директор, и купил ей моноблок новый современный на процессоре шустром INTEL CORE I5…

Минул ещё год и стала Машенька и моноблок это проклятый жаловаться, что тормозит чертяга, и дал директор  команду АПГРЕЙД сделать, памяти оперативной добавить, чудо техники SSD диск установить, чтобы Машенька и дальше удобство творила в своём EXCEL.

Год ещё прошёл, и опять беда нарисовалась, висит проклятый EXCEL, данные теряет, всё компанию в расходы вгоняет да убытки несет.

На этом сказочке конец, кто слушал молодец.

Далее наступает суровая реальность и к делу подключается MASTER095, т.е. Я.

Получаю я нового клиента с кучей проблем и в том, числе что у ведущего менеджера постоянные жалобы на зависания excel, смотрю комп мощный «I5-4200/16GB/SSD» ресурсов хватает.

Прошу Машу показать, как висит excel, не может, говорит «сегодня не висит», я чищу систему, убираю все ошибки, прогоняю все тесты, смотрю температуры, на всякий случай переустанавливаю excel полностью.

Проходит месяц, опять жалобы на зависания, в этот раз удается по тим вивер, увидеть проблему, комп на самом деле висит, обычные таблички по паре мегабайт не большие, по сотне строчек но висит и правда, а когда всё висит проблему удаленно не решить, обещаю через пару дней приехать.

Приезжаю опять всё работает идеально, думаю, что за хня, на всякий случай меняю версию Excel с 2013 на 2016.

Прошёл еще ровно месяц опять такие же жалобы, такая же проблема, по тим виверу видно, но удалённо работать невозможно, бросаю всё приезжаю в тот же день…

И начинает вырисовывается картина, что проблемы с excel начинаются исключительно в конце месяца, когда приходит время считать зарплату, и сводить данные и 10-ка таблиц в одну. С большим трудом добиваюсь, чтобы мне эту таблицу показали))) там же зарплаты всей компании «секретная» информация)))

И вижу я примерно такую картину:

Сразу приходит в в голову идея, проверить редактирование файла этого файла на других компьютеров, и  файл вешает любой комп включая свеже купленный директорский на I7-9700. При копировании данных excel просто на 100% загружает проц, сжирает всю оперативку и Бинго комп висит.

А теперь расскажу, что в этом файле не так.

1) Руки я бы по отрывал менеджерам, что красят таблицы цветами целиком, выделяя строки слева, но менеджеры тупенькие они же не понимают, что когда выделяют цветом всю строку, они заполняют мусорной информацией 65тыс. ячеек правее таблицы с данными, ибо красить таблицы, если уж очень хочется надо вот так: кажется разница минимальная, но

2) Второе на что надо обратить внимание, это количество листов(это внизу там где фамилии Иванов,Петров,Сидоров) - их оказалось 90+шт, по числу сотрудников, за эти 5 лет в компании поработавших…

Надо понимать, что EXCEL обрабатывает листы, подобно вкладкам в браузере. т.е. каждый лист(а тем более если там формулы, которые пересчитываются онлайн или при сохранении) выделяется ресурс процессора и оперативная память, и 100 листов повесят самую мощную систему… В excel, нельзя делать документ, в котором 50-100 листов… лучше сделать 10 документов по 10 листов.

По итогам решение проблемы

1)Заставил менеджеров убрать всю красоту, и оставить раскраску только ячеек где есть данные.

2)Удалили из актуального файла, листы всех уволившихся сотрудников, это в половину сократило количество листов в документе

3)Получившийся документ с разбили на два файла один по фамилиям от А до И, а второй от К до Я, и временно это проблему решило.

4)Ну и главное решили уйти от excel, и заказать ERP систему автоматизации, для фиксации всех работ и автоматического расчета зарплат и формирования отчетов.

По ERP автоматизации сделаю отдельный пост как закончим, пока честно это п..ц. Крупные компании говорят, что бюджет меньше миллиона их не интересует, многие запрашивают ТЗ, но в итоге сливаются, такое ощущение, что деньги на этом рынке никому не нужны… Средние компании (за бюджет 200-400 т.р.) насылают кучу менеджеров разводил, которые без подробного тех.задания просят 50% оплаты вперед. Есть куча одиночек, которые «мамой клянутся» что сделают всё за 100т.р., но показать примеры своих работ не готовы…. В итоге за месяц сузили круг исполнителей, до 4-ех средних компаний с портфолио, и готовых взяться за бюджет 200т.р.