Приложение – исходные данные для расчетов
|
Журнал регистрации хозяйственных операций |
||||
|
Дата |
Счет (содержание операции) |
Номер Счета |
Расход |
Приход |
|
10.01.09 |
Расчеты с поставщ. и подрядчиками |
60 |
3100 |
|
|
11.01.09 |
Расчетные счета |
51 |
7800 |
|
|
12.01.09 |
Расчетные счета |
51 |
|
50000 |
|
17.01.09 |
Расходы будущих периодов |
97 |
|
2000 |
|
18.01.09 |
Расчеты с подотчетными лицами |
71 |
600 |
|
|
19.01.09 |
Расчеты с поставщ. и подрядчиками |
60 |
3600 |
|
|
21.01.09 |
Материалы |
10 |
3000 |
|
|
25.01.09 |
Касса |
50 |
5000 |
|
|
27.01.09 |
Материалы |
10 |
2500 |
|
|
01.02.09 |
Материалы |
10 |
2000 |
|
|
04.02.09 |
Материалы |
10 |
3500 |
|
|
04.02.09 |
НДС |
19 |
4000 |
|
|
04.02.09 |
Материалы |
10 |
20000 |
|
|
07.02.09 |
Расчеты с поставщ. и подрядчиками |
60 |
2300 |
|
|
10.02.09 |
Расчеты с поставщ. и подрядчиками |
60 |
4800 |
|
|
11.02.09 |
Расчеты с подотчетными лицами |
71 |
400 |
|
|
17.02.09 |
Материалы (полуфабрикаты) |
10 |
|
7000 |
|
20.02.09 |
Касса (получено) |
50 |
|
4000 |
|
21.02.09 |
Налог |
68 |
1600 |
|
|
22.02.09 |
Налог |
68 |
3400 |
|
|
01.03.09 |
Материалы |
10 |
1200 |
|
|
03.03.09 |
Расчетные счета |
51 |
|
10000 |
|
11.03.09 |
Касса (расчет) |
50 |
4200 |
|
|
15.03.09 |
Расчеты с поставщ. и подрядчиками |
60 |
3300 |
|
|
17.03.09 |
Расчетные счета |
51 |
|
5000 |
|
20.03.09 |
Касса (расчет) |
50 |
1700 |
|
|
26.03.09 |
Расчет по зарплате Соловьева М.М. |
50 |
4500 |
|
|
29.03.09 |
Возврат ссуды от Климова А.Р. |
50 |
|
12000 |
|
02.04.09 |
Материалы (полуфабрикаты) |
10 |
|
9000 |
|
07.04.09 |
Расчеты с поставщ. и подрядчиками |
60 |
3700 |
|
|
14.04.09 |
Материалы |
10 |
1200 |
|
|
15.04.09 |
Расчеты с поставщ. и подрядчиками |
60 |
2800 |
|
|
22.04.09 |
Получена задолженность |
50 |
|
5900 |
|
27.04.09 |
Касса (расчет) |
50 |
1700 |
|
|
28.04.09 |
Расчеты с подотчетными лицами |
71 |
400 |
|
|
29.04.09 |
Расчетные счета |
51 |
|
5000 |
|
05.05.09 |
Расчеты с поставщ. и подрядчиками |
60 |
|
13800 |
|
12.05.09 |
Материалы |
10 |
3500 |
|
|
13.05.09 |
Налог |
68 |
3400 |
|
|
18.05.09 |
Налог |
68 |
1600 |
|
|
19.05.09 |
Получена задолженность |
50 |
|
9000 |
|
21.05.09 |
Расчеты с подотчетными лицами |
71 |
600 |
|
|
26.05.09 |
Касса (расчет) |
50 |
3700 |
|
|
27.05.09 |
Расчеты с поставщ. и подрядчиками |
60 |
2200 |
|
|
28.05.09 |
Материалы |
10 |
5400 |
|
ПЗ-9. Использование макросов и модулей VBA.
Создадим новый лист Модули. Напишем макрос для заполнения столбца F листа геометрической прогрессией. Вызываем меню Сервис-Макрос-Начать запись, в окне Запись макроса задаем имя ГеомПрогр, нажимаем ОК и дальше выполняем действия для построения прогрессии: в ячейку F1 вводим число 2, нажимаем зеленую галочку, вызываем меню Правка-Заполнить-Прогрессия, в окне Прогрессия выбираем пункты: по столбцам, геометрическая, шаг 2, предельное значение 100000, кнопка ОК, прекращаем запись макроса.
Наносим кнопку из панели Формы на лист и назначаем ей макрос ГеомПрогр, на кнопке задаем название: "Построить геометрическую прогрессию".
Сразу же напишем макрос очистки столбца F: вызовем окно записи, присвоим имя Очистка, нажмем ОК и выделим диапазон F1:F20, нажмем кнопку Delete, щелкнем по ячейке G4, прекратим запись макроса. Нанесем новую кнопку рядом с кнопкой построения прогрессии, присвоим ей макрос Очистка, изменим надпись кнопки: "Очистить столбец F". Пощелкаем созданными кнопками.
Нажмем сочетание клавиш Alt+F8 (вызов окна Макросы), выберем макрос Очистка, нажмем кнопку Войти. Появится окно с модулем VBA, где активной будет запись программы Очистка (Sub Очистка()). В этой программе перечислены операторы, которые мы задавали при записи макроса своими действиями.
Sub Очистка()
' Очистка Макрос ' Макрос записан ...
Range("F1:F20").Select
Selection.Clear
Range("G4").Select
End Sub
Можно, при необходимости, изменить действия макроса (программы) прямо в данном модуле.
Нанесем на лист еще одну кнопку и присвоим ей макрос Возврат. Находясь на титульном листе, напишем макрос ОткрМодули для открытия листа Модули и присвоим его кнопке открытия.
Теперь на листе Модули сделаем так, чтобы при нажатии специальной кнопки на лист помещалась новая кнопка, на ней появлялась надпись "новая кнопка", а в ячейке А3 производился подсчет количества созданных новых кнопок. Для подсчета новых кнопок объявим переменную n% (объявление в качестве целого числа) в области объявления переменных, там же поместим декларацию "Option Explicit", которая будет инициировать проверку описания встречаемых в программе переменных. В программу макроса открытия листа Модули добавим операторы присвоения нуля переменной n и записи этого значения в ячейку А3.
Option Explicit
Dim n%
Sub ОткрМодули()
' Функция Макрос' Макрос записан ...
n = 0
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Модули ").Select
Range("A3").Select
ActiveCell.FormulaR1C1 = n ' Запись 0 в ячейку А3
End Sub
Запишем макрос (КнопкаAdd - его программа приведена ниже), выполнив все действия по добавлению новой кнопки и изменению надписи на ней. Присвоим этот макрос кнопке с названием "Добавить новую кнопку!". Щелчки по ней будут добавлять на лист новую кнопку. Однако необходимо вести подсчет новых (добавленных) кнопок. Для этого в программе макроса КнопкаAdd необходимо значение переменной n увеличивать на единицу при каждой новой добавленной кнопке. Поэтому в программе макроса КнопкаAdd необходимо добавить операторы (ниже в распечатке программы они находятся в конце и выделены полужирным курсивом).
Sub КнопкаAdd()
' КнопкаAdd Макрос
' Макрос записан ....
ActiveSheet.Buttons.Add(399.75, 110.25, 127.5, 29.25).Select
Selection.Characters.Text = "новая кнопка"
With Selection.Characters(Start:=1, Length:=12).Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 12 …
.ColorIndex = xlAutomatic
End With
n = n + 1
Range("A3").Select
ActiveCell.FormulaR1C1 = n
End Sub
Обнуление переменной n будет производиться при открытии листа Модули (распечатка программы ОткрМодули приведена выше).
Щелкая по кнопке "Добавить новую кнопку!" будем на листе добавлять кнопки с надписью "новая кнопка" одну над другой – если не вести учет в ячейке А3, то не будем знать, сколько всего добавлено кнопок.
Лист с кнопками и фрагментами программ модулей.
Создать кнопку "Закрыть Книгу" на титульном листе и написать для нее макрос. В тексте этого макроса поместить дополнительные операторы (написаны ниже, полужирный шрифт):
…
22
b = MsgBox("закрыть книгу? если ДА, то закроем...", vbYesNo, "Не надо, пожалуйста!")
If b = 7 Then ‘значение 7 означает выбор NO в окне диалога
MsgBox ("Все-равно не сможете работать дальше!!!")
GoTo 22
End If
MsgBox ("Ладно, закрывайте ... Что делать???")
ActiveWindow.Close
…
Если вместо последнего (подчёркнутого) оператора поставить GoTo 22, то закрытие книги станет невозможным.
Для справки: после ПЗ №9 в книге должны быть листы:
Данные, График, 13пт, Титул, ТабУмн, Вклады, СанДень, Синус, ТаблФормулы, Текст, ДатаПропись, Список, Модули, листы контрольных работ и других расчетов.
Кроме того, отдельно д.б. книга ЖурналОпераций.