Selection.EntireRow.Insert

' организация цикла добавления новой строки в блок База_данных

‘ заполнение ячеек строки данными динамического массива

‘счетчик цикла равен числу строк

‘табличной части документа Накладная

For i = 1 To nr

Cells(i + 1, 1).Value = str

Cells(i + 1, 2).Value = sh(i).Товар

Cells(i + 1, 3).Value = sh(i).Наименование

Cells(i + 1, 4).Value = sh(i).Едизм

Cells(i + 1, 5).Value = sh(i).Цена

Cells(i + 1, 7).Value = str2

' проверка вида документа для заполнения ячеек и вычисление

‘стоимости поступивших и стоимости отгруженных товаров

If Range("Вид_движения").Value = 1 Then _

Cells(i + 1, 8).Value = sh(i).Количество

If Range("Вид_движения").Value = 2 Then _

Cells(i + 1, 9).Value = sh(i).Количество

'формулы вычисления стоимости поставки/отгрузки товаров

Cells(i + 1, 10).FormulaR1C1 = "=RC[-2]*RC[-5]"

Cells(i + 1, 11).FormulaR1C1 = "=RC[-2]*RC[-6]"

‘ перемещение курсора на начало строки

Selection.End(xlToLeft).Select

ActiveCell.Offset(1, 0).Range("A1").Select

‘ вставка пустой строки

Selection.EntireRow.Insert

‘ повторение цикла

Next i

' удаление лишней пустой строки в блоке Движение

Selection.EntireRow.Delete

' конец прцедуры

End Sub

Отладка программного модуля

1. Заполнить лист Документ первичными данными.

2. Перейти на лист программного модуля и выполнить запуск макроса клавишей F5.

3. Перейти на лист Движение и проверить правильность формирования записей списка.

4. Перейти на лист Итоги и проверить изменение остатков товаров.

5. Перейти на лист Расчеты и проверить изменение итоговых показателей.

6. Если обработка выполняется корректно, перейти на лист Движение, удалить введенные строки, оставив первую вспомогательную строку блока База_данных, проверить его границы (блок База_данных должен содержать строку за головков столбцов и хотя бы одну строку).

Запуск программы

Для запуска программного модуля использовать использование командной кнопки, которая размещается в форме документа Накладная:

1. Снять защиту с листа Документ, разместить кнопку запуска модуля Накладная_в_БД:

§ Выполнить команду Разработчик, Элементы управления, Вставить.

§ Выбрать кнопку и назначить ей макрос – Накладная_в_БД.

§ Изменить название кнопки – Запись документа.

2. Защитить лист Документ.

3. Заполнить документ и нажать кнопку для переноса данных в базу данных Движение.

4. Перейти в базу данных, проверить наличие новых данных и сохранность определения блока База_данных.

АНАЛИЗ ДВИЖЕНИЯ ТОВАРОВ

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

Дата добавления: 2015-07-15