Основы программирования на VBA. Регеда В.В - 77 стр.

UptoLike

Составители: 

Текст только что записанного макроса имеет следующий вид:
Sub Макрос1()
Range("C6").Select
ActiveCell.FormulaR1C1 = "Стоимость"
Range("C7").Select
ActiveCell.FormulaR1C1 = "Налог"
Range("C8").Select
ActiveCell.FormulaR1C1 = "Всего"
Range("D6").Select
ActiveCell.FormulaR1C1 = "12.43"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=R[-1]C*0.825"
Range("D8").Select
ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
Range("D6:D8").Select
Selection.NumberFormat = "#,##0.00$"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Если сопоставить текст программы с только что сделанными шага-
ми, то можно увидеть, что каждый шаг записан в одной или двух строках
кода программы (процедуры). В процедуре записано также много допол-
нительных строк: в них устанавливаются параметры, которые не задава-
лись явно во время создания рабочего листа. Эти дополнительные строки
появляются в момент щелчка на кнопке ОК в диалоговом окне, в котором
устанавливаются какие-либо параметры. Хотя можно изменить только
один параметр, но для каждого параметра диалогового окна в записывае-
мом макросе появится соответствующая строка. Например, хотя в диало-
говом окне Рамка устанавливалась только опцию Снизу, в процедуру
      Текст только что записанного макроса имеет следующий вид:
Sub Макрос1()
      Range("C6").Select
      ActiveCell.FormulaR1C1 = "Стоимость"
            Range("C7").Select
            ActiveCell.FormulaR1C1 = "Налог"
      Range("C8").Select
      ActiveCell.FormulaR1C1 = "Всего"
            Range("D6").Select
            ActiveCell.FormulaR1C1 = "12.43"
      Range("D7").Select
      ActiveCell.FormulaR1C1 = "=R[-1]C*0.825"
            Range("D8").Select
            ActiveCell.FormulaR1C1 = "=R[-2]C+R[-1]C"
      Range("D6:D8").Select
      Selection.NumberFormat = "#,##0.00$"
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
            With Selection.Borders(xlEdgeTop)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 .ColorIndex = xlAutomatic
            End With
End Sub
      Если сопоставить текст программы с только что сделанными шага-
ми, то можно увидеть, что каждый шаг записан в одной или двух строках
кода программы (процедуры). В процедуре записано также много допол-
нительных строк: в них устанавливаются параметры, которые не задава-
лись явно во время создания рабочего листа. Эти дополнительные строки
появляются в момент щелчка на кнопке ОК в диалоговом окне, в котором
устанавливаются какие-либо параметры. Хотя можно изменить только
один параметр, но для каждого параметра диалогового окна в записывае-
мом макросе появится соответствующая строка. Например, хотя в диало-
говом окне Рамка устанавливалась только опцию Снизу, в процедуру