Объективно-ориентированное программирование на VBA в среде Excel

       Логика  работы следующая: VBA сначала оценивает  логическое выражение, представленное в секции «Условие», если это логическое выражение равно «True» то выполняется оператор (операторы) секции «Операторы 1»; затем VBA продолжает выполнение кода следующего за строкой «If…Then» (Вариант 1) или за ключевыми словами «End If» (Вариант 2). Если же логическое выражение равно «False», то выполняются операторы секции «Операторы 2».

       Оператор  цикла For-Next

       Инструкция  «For…Next» (см. таблицу 3) повторяет выполнение группы инструкций указанное число раз.

       For счетчик = начало To конец [Step шаг]

       [инструкции]

       [Exit For]

       [инструкции]

       Next [счетчик] 

     Таблица 3. Синтаксис инструкции «For…Next»

 
 
 
 
 
 

       Пример цикла «For…Next»:

For counter = Star To End [Step StepSize]

Statements

Next [counter]

Counter –  любая численная переменная VBA;

Start –  любое численное выражение, определяет  начальное значение для переменной «counter»;

End –  численное выражение, определяет  конечное значение для переменной  «counter»;

Statements – один, несколько или ни одного  оператора VBA (тело цикла). 

     Исходная таблица 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

Sub Шапка()

'

' Шапка Макрос

' Макрос записан  09.12.2010 (student)

'

Range("A1:H3").Select

    With Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlBottom

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = True

    End With

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    Columns("A:A").ColumnWidth = 17.71

    Columns("B:B").ColumnWidth = 17

    Columns("C:C").ColumnWidth = 17.86

    Columns("D:D").ColumnWidth = 18

    Columns("E:E").ColumnWidth = 17.71

    Columns("F:F").ColumnWidth = 15.71

    Columns("G:G").ColumnWidth = 11.86

    Columns("H:H").ColumnWidth = 11.71

    Range("A1:H3").Select

    ActiveCell.FormulaR1C1 = _

        "Курсовая работа по информатике.Тема: обьектно- ориентированное програмирование на VBA Выполнила: Чайко Яна Владимировна, студентка ЭЭ-093 "

    With ActiveCell.Characters(Start:=1, Length:=138).Font

        .Name = "Arial Cyr"

        .FontStyle = "полужирный"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    Range("A1:H3").Select

    Columns("E:E").ColumnWidth = 11.86

    Columns("F:F").ColumnWidth = 11.86

    Columns("B:B").ColumnWidth = 11.43

    Columns("A:A").ColumnWidth = 11

    Range("A1:H3").Select

    ActiveCell.FormulaR1C1 = _

        "Курсовая работа по информатике.Тема: обьектно- ориентированное програмирование на VBA Выполнила:      Чайко Яна Владимировна, студентка ЭЭ-093 "

    With ActiveCell.Characters(Start:=1, Length:=143).Font

        .Name = "Arial Cyr"

        .FontStyle = "полужирный"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    Range("A1:H3").Select

    With Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = True

    End With

    Range("A1:H3").Select

    ActiveCell.FormulaR1C1 = _

        "Курсовая работа по информатике.Тема: обьектно- ориентированное програмирование  на VBA Выполнила:      Чайко  Яна Владимировна, студентка ЭЭ-093 "

    With ActiveCell.Characters(Start:=1, Length:=143).Font

        .Name = "Arial Cyr"

        .FontStyle = "полужирный"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    Range("A1:H3").Select

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = True

    End With

    Range("A4").Select

    Columns("A:A").ColumnWidth = 14

    Range("A4:A6").Select

    With Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = True

    End With

    Range("A4:A6").Select

    ActiveCell.FormulaR1C1 = "Наименование товара"

    With ActiveCell.Characters(Start:=1, Length:=19).Font

        .Name = "Arial Cyr"

        .FontStyle = "обычный"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

    End With

    Range("B4:B6").Select

    With Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlCenter

        .WrapText = True