Телевизор TCL 3000 40″

Кесарю – кесарево, Богу – Божье

Наша статья на Дзене : Кесарю – кесарево, Богу – Божье

https://zen.yandex.ru/media/id/5b3b5e0bbba4e900a86c8772/kesariu-kesarevo-bogu-boje-5eb1b28b9f27d24aaa4931b8

Не современно до сих пор везти один мешок зерна на “Кировце”. И играть на суперкомпьютерах в тетрис.

Давайте писать программы на компьютере, а исполнять их на планшете, телефоне и т.д. Без интернета. По телефонным каналам. Быстро, дешево и с гарантией неизменности данных.

ОК изнутри


ОК изнутри – приложение Отдел кадров. В Excel. Объем, в архиве 95 кБ. Один файл. И папки – цифры года, 4 цифры. Все. Работает быстро. Легкое. Надежное, Безотказное. Простое. Выполнено на одном! макросе. В трех модификациях – Прием, Отпуск и Увольнение.

схема папок

Зачем больше, если этого достаточно. Поехали? Разбор полета. Сам макрос:

Sub Yvolen()
‘ Макрос записан 18.08.2011 (Березуцкий В.И. bvi@mail.ru)
god = Range(“S10”)
nomer = Range(“S11”)
Data = Range(“S12”)
kto = Range(“S13”)

‘ ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Sheets(“реестр”).Select
a = Range(“a6”) + 9 + Range(“C6”)
Rows(a).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(a, 3) = nomer
Cells(a, 3).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=”C:\ОК\” & god & “\Уволеные\” & nomer & “увол.xls”
Cells(a, 4) = kto
Cells(a, 10) = Data

‘запись нового файла с его текущим номером в указанную папку
ActiveWorkbook.SaveAs Filename:=”C:\ОК\” & god & “\Уволеные\” & nomer & “увол.xls”, Password:=””, WriteResPassword:=””, ReadOnlyRecommended:=False, CreateBackup:=False
‘закрытие нового файла
ActiveWindow.Close (True)

End Sub

отпуск

Yvolen – название макроса. Увольнение в данном случае. Макрос немолодой, написан в 11 году. Знак апостроф ‘ в начале строки обозначает комментарий к программе. Строка за ним не выполняется. Служит для объяснения кода. Считываем значение года – в переменную god. Текущий номер приказа, дата и на кого приказ. Переменные nomer, Data, kto.

Следующая строка – печать – первой страницы в одном экземпляре.Она закомментирована апострофом вначале. Следовательно будет работать макрос без печати, в режиме “Сохранить”. Надо печатать на текущем принтере по умолчанию? Уберите апостроф в начале строки и при выполнении макроса он распечатает этот приказ.

Collate – делаем выборку. Русским языком переходим на лист – Реестр. Находим последнюю пустую строку в реестр. И в первый столбец А записываем текущий номер приказа из переменной nomer. Следующими тремя строками мы ставим гиперссылку на этот номер, чтобы он открывал данный приказ записанный в строго определенное ему место Папка ОК на диске С, внутри ее в папку с текущим годом из четырех цифр. ОК – имя папки русскими буквами.

Следующими двумя строками оператором Cells записываем в эту строку ФИО на кого приказ и дату приказа. Три следующие строки – открытие нужного места для сохранения приказа. Комментарий. И три строки сохранение нашего приказа в указанное ему место.

И финал – закрытие файла Excel, чтобы Вы не утруждали себя лишним щелчком в верхнем правом углу.

Прекрасно, не правда ли.

реестр прикахов

Не забываем, что это чудесный шаблон. По образу и подобию которого Вы можете сами писать ВСЕ ЧТО УГОДНО. Автоматизировать любую рутинную работу которую вы выполняете ежедневно. Достаточно лишь слегка подредактировать макрос под ваши нужды!

Чуть не забыл. По умолчанию в Excel макросы выключены. Посмотреть, как они включаются вы можете по следующей ссылке – Включение макросов в Excel.

Документы могут быть любыми. Я делал ручками в Excel копию оригинального документа. Можете сделать все, что вам угодно. Количество вкладок – это количество разных документов по которым вам нужна автоматизация в одном реестре. Реестры могут быть разными. Сохраняемые ваши документы в разные папки. Правим макрос :). Сами. Или с нашей помощью :).

Обратите внимание. На каждом листе скрыт столбец S В нем необходимая информация для работы макроса. Показать, правим или пишем новое, – Скрыть. И дело в шляпе.

Компьютер КИТа в сборе 221221

Компьютер КИТа в сборе 221221

Компьютер КИТа в сборе 221221

Продвинутый игровой компьютер по максимуму. Современный.

11.03.2020 г. ВНИМАНИЕ! В связи с короновирусом в Китае и падением курса рубля ситуация на рынке стала не стабильная. Перед оплатой ЛЮБОГО товара просьба уточнить его цену и доступность на данный МОМЕНТ. Тот небольшой мой интерес стал меньше скачка закупочных цен. НЕ ФАКТ, что Вы купите товар по указанной ЦЕНЕ.

Прекрасное решение для широкого круга задач. Быстрый и надежный. С пожизненной гарантией. Игровой без компромиссов. Сбалансированная конфигурация. 128 гигабайт оперативной памяти ДДР4. Два жестких диска. ССД М.2 высокоскоростной для системы и простой для хранения данных.

Отличный вариант – справится с любой самой требовательной задачей на годы вперед при максимальных настройках.

Компьютер КИТа в сборе 49900

Компьютер КИТа в сборе 49900

Компьютер КИТа в сборе 49900

Нормальный игровой компьютер по минимуму. Современный. ГАРАНТИЯ до конца срока службы КОМПЬЮТЕРА!

11.03.2020 г. ВНИМАНИЕ! В связи с короновирусом в Китае и падением курса рубля ситуация на рынке стала не стабильная. Перед оплатой ЛЮБОГО товара просьба уточнить его цену и доступность на данный МОМЕНТ. Тот небольшой мой интерес стал меньше скачка закупочных цен. НЕ ФАКТ, что Вы купите товар по указанной ЦЕНЕ.

Прекрасное решение для широкого круга задач. Быстрый и надежный. Самое распространенный выбор, и не только игрока! Лучшее решение за минимальные деньги в этом сегменте компьютеров.

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

Компьютер КИТа в сборе 23222

Компьютер КИТа в сборе 23222

Компьютер КИТа в сборе 23222

Начальный игровой компьютер по минимуму. Современный.

11.03.2020 г. ВНИМАНИЕ! В связи с короновирусом в Китае и падением курса рубля ситуация на рынке стала не стабильная. Перед оплатой ЛЮБОГО товара просьба уточнить его цену и доступность на данный МОМЕНТ. Тот небольшой мой интерес стал меньше скачка закупочных цен. НЕ ФАКТ, что Вы купите товар по указанной ЦЕНЕ.

Прекрасное решение для широкого круга задач. Быстрый и надежный. Если Вам не надо хранить на компьютере огромные файлы фильмов, то это лучшее решение за минимальные деньги.

Компьютер КИТа в сборе 13790

Компьютер КИТа в сборе 13790

Компьютер КИТа в сборе 13790

Продвинутый офисный вариант компьютера с программами как для себя. Гарантия от КИТа пожизненная.

11.03.2020 г. ВНИМАНИЕ! В связи с короновирусом в Китае и падением курса рубля ситуация на рынке стала не стабильная. Перед оплатой ЛЮБОГО товара просьба уточнить его цену и доступность на данный МОМЕНТ. Тот небольшой мой интерес стал меньше скачка закупочных цен. НЕ ФАКТ, что Вы купите товар по указанной ЦЕНЕ.

Прекрасное решение для широкого круга задач. Быстрый и надежный. Если Вам не надо хранить на компьютере огромные файлы фильмов, то это лучшее решение за минимальные деньги.

Компьютер КИТа в сборе 7750

Компьютер КИТа в сборе 7750

Компьютер КИТа в сборе 7750

Самый дешевый компьютер на СЕГОДНЯ

11.03.2020 г. ВНИМАНИЕ! В связи с короновирусом в Китае и падением курса рубля ситуация на рынке стала не стабильная. Перед оплатой ЛЮБОГО товара просьба уточнить его цену и доступность на данный МОМЕНТ. Тот небольшой мой интерес стал меньше скачка закупочных цен. НЕ ФАКТ, что Вы купите товар по указанной ЦЕНЕ.

Прекрасное решение для широкого круга задач. Быстрый и надежный. Если Вам не надо хранить на компьютере огромные файлы фильмов, то это лучшее решение за минимальные деньги.

Мойка с бензиновым двигателем KARCHER G 7.10 M *EU

Мойка с бензиновым двигателем KARCHER G 7.10 M  *EU

Мойка с бензиновым двигателем KARCHER G 7.10 M  *EU Аппарат G 7.10 – это бензиновая мойка высокого давления, высокопроизводительная и достаточно компактная, чтобы пользоваться ей повсюду
(далее…)

Мойка с бензиновым двигателем KARCHER G 4.10 M

Мойка с бензиновым двигателем KARCHER G 4.10 M

Мойка с бензиновым двигателем KARCHER G 4.10 M Модель предназначена для пользователей, работающих в условиях отсутствия электрической сети, обеспечивая свободу передвижения.
(далее…)

КОМПЬЮТЕРЫ – 2020 года cможет принять любую посещаемость благодаря кешированию WP Super Cache