Эта статья поможет вам создать простой и удобный менеджер расходов. Теперь вы можете регистрировать и отслеживать все свои доходы, расходы и следить за своим балансом.
Скачать сейчас
Если вы хотите начать использовать программное обеспечение как можно скорее, то можете:
Загрузите программное обеспечение сейчас
В противном случае, если вы хотите сделать своими руками, вы можете прочитать содержимое ниже.
Давайте подготовим графический интерфейс
Откройте новую книгу и сохраните ее как файл Excel с поддержкой макросов. Нам нужно всего два листа в рабочей тетради. Поэтому удалите лишние листы. Переименуйте Лист1 в «Запись» и переименуйте Лист2 в «Базу данных». Лист «Вход» будет интерфейсом нашего инструмента. Лист «База данных» будет выполнять роль серверной части, т. е. базы данных нашего инструмента.
На листе «Ввод» создайте отдельные поля для ввода «Дохода» и ввода «Расхода». Также создайте раздел «Сводка», чтобы показать общий доход, общий расход и сумму остатка.
Нам нужны три кнопки. Один для добавления дохода, второй для добавления расхода и один для очистки базы данных.
Добавить формулу
В разделе «Сводка» добавьте эту формулу в поле «Общий доход».
=SUMIF(Database!B2:B18,"Income",Database!C2:C18)
Добавьте приведенную ниже формулу в поле «Общие расходы».
=SUMIF(Database!B2:B18,"Expense",Database!C2:C18)
И, наконец, добавьте эту формулу в раздел «Баланс», чтобы отобразить сумму баланса.
=N9-N13
Поскольку наша база данных пуста, все поля будут пустыми. Как только вы добавите расход или доход, вы увидите все поля с соответствующими значениями.
Подготовим базу
База данных для этого инструмента будет иметь 4 столбца. Первый столбец — «Дата», второй — «Тип», третий — «Сумма» и последний столбец — «Примечания».
Давайте сделаем его функциональным
Скопируйте скрипт в новый модуль. Добавьте Sub «Clear_Database» к кнопке «Clear Database» на листе «Entry». Добавьте подпрограмму «Add_Income» к кнопке «Добавить доход», а подпрограмму «Add_Expense» следует прикрепить к кнопке «Добавить расход».
Давайте проверим это
Введите доход и нажмите кнопку «Добавить доход». Теперь в разделе «Сводка» будет отображаться «Общий доход». Попробуйте также добавить расход.
Как только вы нажмете кнопку «Добавить доход» или «Добавить расход», вы заметите, что значения, введенные вами на листе «Вход», будут сохранены в виде новой строки на листе «База данных». Поля на листе «Запись» будут автоматически очищены для новой записи.
Как это работает?
Каждый раз, когда вы добавляете доход или расход, скрипт будет искать последнюю пустую строку в листе «База данных» и добавлять в нее запись. Введенная нами формула будет считывать все данные в режиме реального времени и отображать баланс.
Измените это
Вы можете легко изменить макрос, чтобы читать определенные ключевые слова в поле «Примечания» и назначать его определенным тегам или категориям, таким как еда или путешествия.
Сценарий
Sub Clear_Database()
Sheets("Database").Range("A2:D100").ClearContents
End Sub
Sub Add_Income()
Dim v_lr As Long
v_lr = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Database").Range("A" & v_lr).Value = Sheets("Entry").Range("B13").Value
Sheets("Database").Range("B" & v_lr).Value = "Income"
Sheets("Database").Range("C" & v_lr).Value = Sheets("Entry").Range("B9").Value
Sheets("Database").Range("D" & v_lr).Value = Sheets("Entry").Range("B17").Value
Sheets("Entry").Range("B9").Value = ""
Sheets("Entry").Range("B13").Value = ""
Sheets("Entry").Range("B17").Value = ""
End Sub
Sub Add_Expense()
Dim v_lr As Long
v_lr = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Database").Range("A" & v_lr).Value = Sheets("Entry").Range("H13").Value
Sheets("Database").Range("B" & v_lr).Value = "Expense"
Sheets("Database").Range("C" & v_lr).Value = Sheets("Entry").Range("H9").Value
Sheets("Database").Range("D" & v_lr).Value = Sheets("Entry").Range("H17").Value
Sheets("Entry").Range("H9").Value = ""
Sheets("Entry").Range("H13").Value = ""
Sheets("Entry").Range("H17").Value = ""
End Sub
Иногда при использовании этого скрипта вы можете столкнуться с поврежденными файлами Excel. В таком случае вы можете использовать некоторые сторонние инструменты для восстановить поврежденные файлы Excel. Существуют различные инструменты восстановления. С использованием DataNumen Excel Repair гарантирует восстановление всех потерянных данных.
Об авторе:
Ник Випонд — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправить ошибку документа и программные продукты для восстановления Outlook. Для получения дополнительной информации посетите www.datanumen.com