Рис. 7. Внешний вид листа "журнал"

    Первые  четыре строки листа «журнал» предназначены  для управления журналом денежных операций. Сам же журнал денежных операций как таковой начинается только с пятой строки. По ширине он занимает восемь колонок.

    Пятая строка листа «журнал» – это заголовки  колонок журнала денежных операций.

    Ниже  пятой строки расположены записи денежных операций. Каждая денежная операция занимает одну строку.

    Для всех колонок задано свойство «автофильтр». (Именно поэтому у каждой ячейки  пятой строки в правом нижнем углу находится маленькая квадратная кнопка). Подробное описание автофильтра  можно найти в системе помощи MS Excel. При этом нужно иметь в виду, что журнал денежных операций, начинающийся с пятой строки листа «журнал» - это в терминологии MS  Excel и есть «список».

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

    Например. После просмотра отчета о доходах и затратах за предыдущий месяц у пользователя возник вопрос: откуда взялась большая сумма расходов по группе «Хозяйственные и прочие расходы»? Чтобы получить ответ, ему необходимо сделать следующее. Открываете лист «журнал». Для колонки «дата» задать следующее сложное условие фильтрации: дата операции должна относиться к предыдущему месяцу. А для колонки «группа» задаете простое условие фильтрации: отображается только группа «Хозяйственные и прочие расходы».

    В результате на листе  «журнал» будут показаны только те операции, которые внесли вклад  в интересующую сумму.

    Для всех ячеек колонки «Название  операции» установлено свойство «Переносить по словам» («Wrap text»). Это означает, что название операции всегда полностью видно в ячейке.

    Для других колонок это свойство не установлено. Поэтому длинное название статьи или группы будет обрезаться справа. Но, это легко исправить простым  выделением ячейки, и тогда название статьи или группы будет отображено в строке формул.

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

    Ячейки  А2 и А4 предназначены для выставления параметров сложной фильтрации по колонке «Дата»: в ячейке А2 задается дату начала интервала, в ячейке А4 - дата окончания интервала. Специальный макрос автоматически переносит даты из этих ячеек в сложное условие фильтрации по колонке "Дата". Но, можно и непосредственно задать условие фильтрации по дате в заголовке колонки «Дата», то есть в ячейке А5. Однако лучше этого не делать, чтобы не путаться.

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

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

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

    Рис. 8. Ввод новой денежной операции

    Чтобы ввести новую операцию, на листе  «журнал» необходимо нажать соответствующую  кнопку, которая так и называется: «Ввести новую операцию». При  этом программа выведет на экран  диалоговое окно. В нем следует задать параметры новой операции.

    Кое-какая  информация будет уже подставлена "Личной бухгалтерией". В качестве даты будет подставлена сегодняшняя  дата (точнее, системная дата компьютера). Из денежной операции, которую Вы вводили  в предыдущий раз, будут взяты признак прихода/расхода, группа и статья. Т.е. программа максимально упростит ввод данных. Нужно будет просто поправить значения параметров новой операции. Это удобно делать сверху вниз.

1. В поле «Дата» необходимо ввести дату совершения денежная операция. ("Личная бухгалтерия" проследит, чтобы это была действительно дата, а не произвольный набор символов).
2. Внутри рамки «Приход или расход денег» установить переключатель на нужном значении: на значении «Приход» или на значении «Расход».
3. В поле «Сумма» проставьте сумму прихода или расхода денег по денежной операции.
4. В поле «Название операции» ввести название - пояснение к денежной операции.
5. В поле «Группа» выберите группу из списка возможных групп. Список открывается по нажатию квадратной кнопки с темным треугольником в правой части поля.

    "Личная  бухгалтерия" заполняет этот  список группами с учетом положения  переключателя «Приход или расход».

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

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

    Если  пользователь посчитает, что ни одна из групп списка для новой денежной операции не подходит, то прямо в этом поле можно набрать название новой группы. После записи операции эта группа будет внесена программой в список групп на листе «Группы».

6. В поле «Статья» нужно выбрать статью из списка возможных статей. Список раскрывается по нажатию квадратной кнопки с темным треугольником в правой части поля.

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

    После заполнения всех полей нажимается кнопка «Записать операцию в журнал». Операция будет внесена в то место журнала, которое соответствует ее дате.

    Если  для выбранной даты уже есть операции, то новая операция расположится последней  среди всех операций своей даты.

    Цвет  фона ячеек новой операции будет  заимствован у цвета фона ячеек  соответствующей категории с  листа «Категории».

    В колонке Н листа «журнал» автоматически  рассчитается сумма денег, оставшаяся в "Кошельке". Следите за тем, чтобы  эта сумма получалась положительной. Отрицательная сумма будет выделена красным цветом.

    Если  пользователь передумал записывать операцию, ему достаточно нажать кнопку «Отмена».

ЗАКЛЮЧЕНИЕ

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

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

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

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

    Возможности Visual Basic и данной программы растут вместе с MS Office (лучшим офисным пакетом на сегодняшний день). Которые улучшаешь свои функциональные возможности от версии к версии.

СПИСОК  ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Матыров Г.Е.  Программирование в Office. – СПб: ОЛМА-Пресс, 2005 – 262 с.
2. Сухарев М.В. - Основы VB, профессиональный подход – СПб: Наука и Техника 2004. – 603 с..
3. Ведение бюджета программными средствами (статья). http://www.keep.ru/note/homebuh.html
4. Как программировать в Office. (статья) http://www.mechcad.net/basic/

ПРИЛОЖЕНИЕ

Лист2 журнал

Dim OldVa ' ОТЧЕТЫ

Dim ReportName As String, LiInd As Integer, ColorInd As Integer

Dim ReportName2 As String

Dim Подробный  As Boolean

Dim SourceString As String

Sub DropDowns_1()

    Select Case Sheets("Отчеты").DropDowns(1).ListIndex

        Case 1 To 3

            Sheets("Отчеты").Cells(2, 1).Font.ColorIndex = 11

            Sheets("Отчеты").Cells(1, 1).Font.ColorIndex = 5

        Case 4 To 5

            Sheets("Отчеты").Cells(2, 1).Font.ColorIndex = 35

            Sheets("Отчеты").Cells(1, 1).Font.ColorIndex = 2

    End Select

 End Sub

  

Sub Temporal()

    If Sheets("Отчеты").DropDowns(2).ListIndex = 1 Then

        Подробный = True

    Else

        Подробный = False

    End If

    LiInd = Sheets("Отчеты").DropDowns(1).ListIndex

    ReportName = Trim(Sheets("Отчеты").DropDowns(1).List(LiInd))

    ColorInd = Sheets("Категории").Cells(LiInd + 1, 1).Interior.ColorIndex

    With Sheets("Temporal")

        .Cells.Delete

        .Visible = True

        .Select

        .Cells(1, 1).Select

        .Visible = False

    End With

    With Sheets("_журнал_")

 On Error GoTo AfterError

        .ShowAllData

AfterError:

       Select Case LiInd

            Case 1

                BeginPeriod = Cells(2, 1).Value

                FirstCol = 2

                LastCol = 8

                '

                ColorInd = ColorIndex = xlNone

                '

                ReportName = "Приход денег за период " _

                    & Format(Cells(2, 1).Value, "Short Date") _

                    & " - " & Format(Cells(4, 1).Value, "Short Date")

                ReportName2 = "Расход денег за период " _

                    & Format(Cells(2, 1).Value, "Short Date") _

                    & " - " & Format(Cells(4, 1).Value, "Short Date")

            Case 2

                BeginPeriod = Cells(2, 1).Value

                .Cells(5, 7).AutoFilter Field:=7, Criteria1:="Доходы"

                FirstCol = 3

                LastCol = 6

                ReportName = ReportName & " за период " _

                    & Format(Cells(2, 1).Value, "Short Date") _

                    & " - " & Format(Cells(4, 1).Value, "Short Date")

            Case 3

                BeginPeriod = Cells(2, 1).Value

                .Cells(5, 7).AutoFilter Field:=7, Criteria1:="Затраты"

                FirstCol = 3

                LastCol = 6