На этом шаге мы рассмотрим особенности выполнения этой операции.

Специалистами финансового отдела АО "Стеклодув" проделана относительно большая работа по разделению данных бюджета движения денежных средств (БДДС) на фиксированные и распределенные платежи, как по приходу, так и по расходу денежных средств. Еще ранее создана модель ДенежныеПотоки. Следующая задача: перенести полученные данные по спрогнозированному сценарию возможного поведения движения денежных средств (ДДС) из файла СистемаБюджетов (модель бюджетирования) в файл ДенежныеПотокиБюджет (модель прогнозирования движения денежных потоков) и оценить, как поведут себя прогнозируемые денежные потоки. Для этого необходимо в автоматизированном режиме создать платежный календарь, проанализировать полученные данные. Если потребуется ввести корректировки в функциональные бюджеты, что повлечет изменение бюджета движения денежных средств. После этого оценить: как изменятся финансовые результаты деятельности предприятия от внесенных корректировок. И после этого утвердить разработанные бюджеты на июль 2003 года.

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

Открытие файла прогнозирования денежных потоков

Для переноса данных фиксированных и распределенных денежных потоков из файла СистемаБюджетов в таблицу исходных данных на рабочий лист ИсхДанные (рисунок 1) файла ДенежныеПотокиБюджет, нажмите кнопку Перенос данных в платежный календарь.

Рис.1. Первый этап создания таблицы с двухуровневым заголовком

Кнопке назначено выполнение подпрограммы ПереносДанныхДенежныеПотоки (рисунок 2).

Рис.2. Подпрограмма ПереносДанныхДенежныеПотоки

Задача подпрограммы ПереносДанныхДенежныеПотоки - сравнить текущее время и дату в ячейках:

J1 листа Пульт книги СистемаБюджетов;
С1 листа ПК книги ДенежныеПотокиБюджет;

и, в зависимости от того, идентичны ли эти значения, определить открыт ли файл ДенежныеПотокиБюджет. С этой целью в ячейку L1 листа Пульт вводится ссылка на ячейку С1 листа ПК, после чего сравниваются их текущие значения, округленные до 4-го знака после запятой (секунды). Округление играет роль в случае, если в Excel будет открыто несколько файлов, то возможно, что при сравнение двух значений по функции определения текущего времени, даст расхождение в миллионные доли секунды, и тогда Excel воспримет это как неравенство. Если значения равны, следовательно файл ДенежныеПотокиБюджет открыт, в противном случае закрыт.

Основным элементом подпрограммы ПереносДанныхДенежныеПотоки является инструкция If-Then-Else, которая применяется для изменения хода выполнения подпрограммы в зависимости от результатов проверки условия.

Упрощенный синтаксис инструкции:

  If условие Then
    [инструкции]
  Else
    [инструкции_else]
  End If

Элементы инструкции If-Then-Else в нашем примере:

If - ключевое слово, обозначающее начало инструкции;
условие - проверяемое условие равенства значений текущего времени, возвращаемых функцией ТДАТА в двух файлах;
Then - ключевое слово, обозначающее конец проверки условия;
инструкции - при выполнении условия идентичности текущего времени в двух файлах подпрограмма осуществляет переход к файлу ДенежныеПотокиБюджет и затем к выполнению подпрограммы ПереносДанных;
Else - ключевое слово, обозначающее конец участка, выполняемого при выполнении условия, или начало участка, выполняемого при несоответствии условия;
инструкции - активизация пользовательского диалогового окна (рисунок 3) с вопросом об открытии файла.

Рис.3. Пользовательское диалоговое окно с вопросом об открытии файла ДенежныеПотокиБюджет

При нажатии на кнопку Да выполнение подпрограммы переходит к процедуре ОткрытиеФайла, на кнопку Нет - завершение выполнения подпрограммы;
End If - ключевое слово, обозначающее конец инструкции.

На следующем шаге мы рассмотрим перенос данных в файл прогнозирования денежных потоков.

Предыдущий шаг Содержание Следующий шаг