ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

ЛИПЕЦКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

КАФЕДРА АВТОМАТИЗИРОВАННЫХ СИСТЕМ УПРАВЛЕНИЯ

Лабораторная работа №1

по дисциплине

«Информационные технологии»

на тему:

«Написание простой программы на VBA.

Автоматизация заполнения бланка финансовых документов»

Студент

Пантюшин М.Н.

подпись, дата

фамилия, инициалы

Группа

АС-09

Принял

Махлышев М.А.

ученая степень, звание

подпись, дата

фамилия, инициалы

Липецк 2010

1. Задание

Написать программу на VBA в MS Excel, осуществляющую автоматическое

заполнение бланка платёжного документа в СберБанк по форме ПД-4.

2. Листинг программы

Sub prog()

'***************************** input to blank **************************************

Dim x As Integer 'for row number

x = ActiveCell.Row 'row number

'***************raschet summiy v rublyah i kopeykah

Dim sum As Double

Dim rub As Integer

Dim kop As Integer

Dim temp As Integer

sum = Worksheets("input").Cells(x, 7).Value 'znachenie summiy iz yacheiki

If (sum Mod 2 = 0) Then

kop = 0

Worksheets("blank").Range("c12").Value = sum 'summa platezha rub

Worksheets("blank").Range("f12").Value = kop 'summa platezha kop

'copy

Worksheets("blank").Range("c30").Value = sum 'summa platezha rub

Worksheets("blank").Range("f30").Value = kop 'summa platezha kop

Else

temp = sum / 2

rub = temp * 2

kop = (sum - rub) * 100

Worksheets("blank").Range("c12").Value = rub 'summa platezha rub

Worksheets("blank").Range("f12").Value = kop 'summa platezha kop

'copy

Worksheets("blank").Range("c30").Value = rub 'summa platezha rub

Worksheets("blank").Range("f30").Value = kop 'summa platezha kop

End If

'******************************************

Worksheets("blank").Range("b1").Value = Worksheets("input").Cells(x, 1).Value 'naim

Worksheets("blank").Range("b3").Value = Worksheets("input").Cells(x, 2).Value 'inn

Worksheets("blank").Range("g3").Value = Worksheets("input").Cells(x, 3).Value 'nomer

Worksheets("blank").Range("b8").Value = Worksheets("input").Cells(x, 4).Value 'naim.

Worksheets("blank").Range("c10").Value = Worksheets("input").Cells(x, 5).Value 'fio

Worksheets("blank").Range("c11").Value = Worksheets("input").Cells(x, 6).Value 'adres

Worksheets("blank").Range("g16").Value = Worksheets("input").Cells(x, 8).Value 'data

'to copy

Worksheets("blank").Range("b19").Value = Worksheets("input").Cells(x, 1).Value

Worksheets("blank").Range("b21").Value = Worksheets("input").Cells(x, 2).Value

Worksheets("blank").Range("g21").Value = Worksheets("input").Cells(x, 3).Value

Worksheets("blank").Range("b26").Value = Worksheets("input").Cells(x, 4).Value

Worksheets("blank").Range("c28").Value = Worksheets("input").Cells(x, 5).Value

Worksheets("blank").Range("c29").Value = Worksheets("input").Cells(x, 6).Value

Worksheets("blank").Range("g34").Value = Worksheets("input").Cells(x, 8).Value

'*************************************************************************************

'****************************** base to blank ***************************************

Worksheets("blank").Range("b5").Value = Worksheets("base").Range("a2").Value 'bank

Worksheets("blank").Range("h5").Value = Worksheets("base").Range("b2").Value 'bik

Worksheets("blank").Range("c7").Value = Worksheets("base").Range("c2").Value 'kod

'to copy

Worksheets("blank").Range("b23").Value = Worksheets("base").Range("a2").Value 'bank

Worksheets("blank").Range("h23").Value = Worksheets("base").Range("b2").Value 'bik

Worksheets("blank").Range("c25").Value = Worksheets("base").Range("c2").Value 'kod

'*************************************************************************************

End Sub

3. Контрольный пример