Тексты процедур на VBA к главе 1
Const Start = 15'Фиксация базовой строки с формулами
1 Процедура копирования базовых формул (выполняется нажатием кнопки [Расчет])
Sub Credit_Value ()
If [Ставка] * [Срок] * [Сумма] * [Выплат] > 0 Then Finish = [СИ] .
Value + Start - 1 Cells (Start, "A"). SelectSelection. AutoFill Destination:=Range (Cells (Start, "A"), Cells (Finish, "A")), Type:=xlFillSeries
Range (Cells (Start, "B"), Cells (Start, "F")). Select
Selection. Copy
Range (Cells (Start + 1, "B"), Cells (Finish, "B")). Select ActiveSheet. Paste Application. CutCopyMode = False
Else
MsgBox ("Заданы не все параметры!") End If End Sub
1 Процедура очистки шаблона (выполняется нажатием кнопки [Очистить])
Sub Credit_Clear ()
Finish = [СИ] . Value + Start - 1
[Ставка] = ""
[Срок] = ""
[Сумма] = ""
[Выплат] = 1
[Тип] = О
If Start < Finish Then
Range (Cells (Start + 1, "A"), Cells (Finish, "F")). ClearContents
End If
End Sub
Еще по теме Тексты процедур на VBA к главе 1:
- ХАРАКТЕРИСТИКА ЯЗЫКА VBA
- ОСНОВЫ ПРОГРАММИРОВАНИЯ НА VBA
- Процедуры средств контроля и процедуры по существу в аудите себестоимости продукции хлебопечения. Вопросник внутреннего контроля, методика проведения процедур по существу.
- Давлеткильдинова Р. С. Мировая экономика: Текст лекций / СПбГУАП. СПб, 92 с. Текст лекций подготовлен для чтения курса "Мировая экономика"., 2000
- Аудит издержек производства и обращения в организациях общественного питания: программа; методы сбора доказательств; процедуры средств контроля; процедуры по существу.
- Аудит торговых операций на оптовых и розничных торговых предприятиях: программа аудита, процедуры средств контроля и по существу. Методы сбора доказательств при процедурах по существу.
- ТЕКСТ В ДИАГРАММЕ
- Основной текст
- ВСТАВКА ГРАФИЧЕСКИХ ОБЪЕКТОВ В ТЕКСТ ДОКУМЕНТА
- Кодирование текста
- 3.3. Подготовка текстов выступлений (спичрайтинг)
- Контроль вексельного текста
- Написание текста публичного выступления
- Избранные тексты по экономике, истории и социологии
- Фрагменты текста программы
- 1.2. Годовой отчет как особый жанр текста и речевая реализация терминосистемы финансовой отчетности