Как сделать счетчик в эксель
Добавил пользователь Владимир З. Обновлено: 05.10.2024
Проблема: есть "событие" которое происходит в течении суток через "определенный период" времени с "погрешность"
нужна циклическая программа, которая будет отсчитывать сколько времени осталось до возникновения "события", с возможностью внесения коррективы после уточнения мной длительности "погрешности"
Самые простые часы делаются так:
В модуле листа пишешь две процедуры и получаешь в ячейке А1 часы
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function PlayWavSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal LpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
Negativ
End Sub
Sub Negativ()
Dim R As Range
Dim C As Variant
Set R = ActiveSheet.Range("a3:a150")
Вы лучше словами напишите, чего желаете.
Ибо ваш код нерабочий однозначно - чего только чтОит определение C и NEXT при незакрытом IF.
Учет расхода коммунальных ресурсов по показаниям счетчиков рассмотрим на примере холодной воды, так как это самый распространенный случай, когда может понадобиться расчет и хранение данных в рабочей книге Excel.
В июне 2020 года у нас появилась возможность оплачивать воду через Сбербанк-онлайн, поэтому отпала необходимость заполнять и печатать квитанции, о которых я писал раньше. Но возникло желание автоматизировать расчет суммы к оплате и сохранять данные по месяцам в электронном виде с помощью VBA.
Для записи показаний счетчика холодной воды, расхода ресурса и суммы к оплате с помощью VBA Excel я использую следующую таблицу:
Таблица учета холодной воды
Справа от таблицы учета холодной воды расположены командные кнопки и таблица тарифов:
Командные кнопки и тарифы
Добавление элементов управления ActiveX
Таблица с показаниями счетчика, расходом воды и суммой к оплате преобразована в умную таблицу, у которой снят фильтр, отображавшийся в строке заголовков.
Форма для добавления текущих показаний счетчика
При загрузке формы выполняется следующая процедура (расположена в модуле формы):
- TextBox1 – поле для корректировки месяца;
- TextBox2 – поле для корректировки года;
- TextBox3 – поле для ввода текущего показания счетчика.
- pps – первая пустая строка в таблице с показаниями счетчика;
- tarif – адрес последней ячейки в колонке с тарифами.
* Первая строка таблицы с данными должна быть записана вручную, так как предыдущие показания счетчика копируются из строки выше. Если вы делаете расчет не для себя, добавьте в код обработчик ошибок.
Печать квитанций
Квитанция может понадобиться, если контролеры ресурсоснабжающей организации попросят подтверждение оплаты. Заполненная кодом VBA Excel и распечатанная квитанция с приложенным платежным чеком будет нагляднее, чем один чек Сбербанка или другой финансовой организации, платежной системы.
Я добавил реквизиты ресурсоснабжающей организации к первоначальной квитанции, которые на изображении и в приложенном файле изменены:
Квитанция на оплату холодной воды
Продолжая осваивать программу, сегодня мы разберем формулы эксель, научимся их составлять и использовать для проведения расчетов наших данных.
Это самая интересная и очень полезная функция программы Excel, которая значительно, а порой просто кардинально улучшает нашу жизнь в плане работы с табличными данными.
В этой статье мы на примере таблицы учета расхода за электроэнергию научимся производить основные математические операции: суммирование, вычитание, умножение, деление.
Построение таблицы
Получаем такую половину таблицы
Формула excel рис 1
Выравниваем будущий текст во всех ячейках посредине, дописываем Ночной тариф и его стоимость
Вводим месяца в нужный столбец и начинаем заполнять таблицу данными со счетчика, для примера заполню два месяца
Формула excel рис 2
Формулы эксель
Вычитание
— определяем сколько израсходовано эл. энергии по каждому тарифу
1 способ: ставим курсор на эту ячейку (за январь это D5), жмем на клавиатуре знак = , далее выделяем ячейку из которой нужно вычесть (B5) , ставим минус — и выделяем вторую ячейку С5, жмем Enter на клавиатуре и видим произведенную операцию, это 52
Формула excel рис 3
Затем появляется второй шаг мастера, где в первой строчке ставим метку и выделяем ячейку из которой нужно вычесть, во второй, так же — которую нужно вычесть и ставим перед ней знак минус, жмем ОК или Enter на клавиатуре и так же получаем результат.
Формулы excel рис 4
Таблица приобретает следующий вид
Формула умножения
Нам нужно умножить израсходованные киловатты на соответствующий тариф, для этого воспользуемся 1 способом:
Копируем эту формулу и вставляем в соответствующие ячейки
Таблица приобретает следующий вид
Формулы excel рис 5
Сложение в эксель
Далее ставим формулу для подсчета общего расхода в рублях по месяцам, сложив затраты дневного и ночного тарифа.
Для этого воспользуемся первым и вторым способом:
1 способ: ставим курсор на эту ячейку (за январь это J5), жмем на клавиатуре знак = , далее выделяем одну ячейку (Е5) , ставим плюс — и выделяем вторую ячейку I5, жмем Enter на клавиатуре и видим произведенную операцию, это 389,88 в данном примере.
Воспользуемся мастером формул и он сразу предлагает сложить нужные нам данные
Формулы excel рис 6
Далее просчитываем общий расход в рублях и итоговое значение таким же способом
В итоге таблица приобретает законченный и рабочий вид:
Формулы excel рис 7
Теперь Вы используя формулы эксель можете составить такую полезную для себя таблицу и она будет за Вас считать необходимую информацию.
Операция деления в эксель
Формулы excel рис 8
Подробнее смотрите в видео:
С уважением, Виктор Князев
Материалы по теме:
Недавно закончился мой практический семинар "Начальный курс обучения технических администраторов", о подготовке к которому я писал здесь. В этом семинаре приняло участие свыше 350 человек. Целью .
Для просмотра различных ресурсов во всемирной паутине на персональном компьютере или ноутбуке если Вам необходимо скачать Интернет Эксплорер или провести его обновление, то эта .
Для бесперебойной и безошибочной работы персонального компьютера или ноутбука очень важна температура процессора, программа Speccy, которую выпустили создатели известной утилиты по очистке системы CCleaner, .
Безопасность пользователя при посещении сайтов в интернете гарантируется только в том случае, если им используется последняя версия браузера, если Вы пользуетесь браузером то Яндекса, .
При сегодняшних объемах жесткого диска программа поиска просто необходима на каждом компьютере. К сожалению штатные средства поиска, особенно в Windows 7, сильно желают лучшего. Хочу познакомить .
Быстро пронумеровать список фамилий, расставить людей по рейтингу и присвоить участникам викторины порядковый номер — задачи, которые можно автоматизировать. Зачем проставлять номера каждому участнику списка отдельно, если можно воспользоваться силой Excel и сделать всё быстро, и без мучений.
Способ 1 — простая нумерация
Ставим в первую ячейку цифру 1, во вторую — цифру 2. Затем выделяем обе ячейки и тянем вниз, чтобы заполнить всё до конца.
Если строк много, можно воспользоваться быстрым способом. Наводим мышку на правый нижний угол ячейки и делаем двойной клик по крестику — это сразу заполнит весь диапазон до последней строки.
Как это работает. Так как в первую ячейку мы поставили единицу, а во вторую — двойку, Excel счёл это как последовательность. Скорее всего, следующее число будет 3, за ним 4, а потом 5 и так далее.
Способ 2 — автоматическая последовательная нумерация
Здесь мы уже используем формулу, которая будет увеличивать каждую предыдущую ячейку на единицу. Этот способ удобен тем, что такая формула помогает быстро расширять список. Итак, в первую ячейку ставим 1, а во вторую вписываем формулу:
Далее точно так же тянем всё вниз и заполняем диапазон.
Этот способ прост в использовании, потому что можно не выделять несколько ячеек, а просто протянуть формулу вниз и быстро заполнить все нужные значения.
Способ 3 — через функцию =СТРОКА()
Если ваш список увеличивается строго вниз, то способ через функцию СТРОКА будет оптимальным.
Функция =СТРОКА() возвращает порядковый номер строки для текущей ячейки, начиная со строки №1
Зная это, мы можем найти закономерность и здесь. Введём формулу в ячейку E2:
Как видите, результат работы функции — это число 2. Строка вторая, значит в результате будет 2.
Чтобы нам получить правильный результат, нужно подкорректировать формулу и уменьшить результат на количество строк шапки, то есть на одну строку. Для этого просто вычитаем единицу из самой функции.
Способ удобен тем, что если нам нужно пронумеровать каждый элемент списка отдельно. Мы можем скопировать формулу в любое место таблицы и получить мгновенный результат.
Арифметическая прогрессия — это последовательность чисел, где каждое следующее число больше предыдущего на какой-то шаг
В нашем случае прогрессия самая простая — мы увеличиваем каждое число на единицу, прямо как в способе 2, но только без лишних действий руками.
Как это работает. Прогрессии могут быть разными, но в случае с арифметическими — они ведут себя достаточно предсказуемо, просто увеличивая наше число на какое-то одинаковое число — шаг. В нашем случае шаг равняется единице, что полностью решает нашу задачу.
Способ 5 — функция МАКС()
Иногда бывает, что список людей идёт с разрывами и нам нужно продолжать нумерацию после пропуска. В этом случае нам подойдёт способ через функцию МАКС и работает он следующим образом.
Функция МАКС ищет наибольшее число в указанном диапазоне
В первую ячейку ставим число 1, а во вторую вводим формулу: =МАКС($E$2:E2)+1
Начало диапазона мы указали строго от $E$2, то есть первая граница не меняется ни при каких условиях. Концом диапазона будет последняя ячейка после протягивания. При протягивании такой формуле в строке 26 мы получим формулу: =МАКС($E$2:E25)+1
А там где нам нужно пропустить значения автоматической нумерации, мы просто удаляем формулу из ячейки и всё, что идёт ниже, автоматически пересчитывается.
При этом формулу можно просто скопировать и вставить в любом месте сверху и снизу нашего списка нумерации и все числа автоматически пересчитаются.
Как это работает. Так как диапазон увеличивается на единицу =МАКС() + 1, то у нас каждая ячейка будет больше другой и функция МАКС будет выбирать её.
Способ 6 — адаптивная автоматическая нумерация через =СЧЁТЗ() и =ЕСЛИ()
Если в предыдущем способе нам всё ещё нужно работать с ячейками вручную, то в этом способе мы всё автоматизируем ещё больше. Нам понадобится комбинация функций СЧЁТЗ и ЕСЛИ, чтобы фильтрация происходила по условию.
Функция СЧЁТЗ считает количество заполненных ячеек в диапазоне
Функция ЕСЛИ проверяет ячейку на соответствие какому-то условию. Если условие истинно, выполняется одно действие. Если условие ложно, выполняется другое действие
Вставляем формулу в ячейку B2, тянем вниз и формула автоматически пропускает пустые строки. Заметьте, что в части формулы, где СЧЁТЗ, мы закрепили первую часть, потому что мы не хотим, чтобы диапазон состоял из одной строки. Нам нужно, чтобы он постоянно увеличивался.
Как это работает. Функция ЕСЛИ отвечает за такое условие: если ячейка B2, где у нас лежит фамилия, пустая, то так и оставить её пустой, иначе — посчитать общее количество заполненных ячеек.
Мы разобрались, как создать автоматическую нумерацию в Excel. Эти же способы работают и в гугл-таблицах. Желаем приятного применения! Пробуйте и делитесь впечатлениями.
Приходите на курсы по обучению работе с Excel-таблицами — они помогут освойте таблицы, даже если сейчас знаний ноль.
Читайте также: