ВУЗ:
Составители:
Рубрика:
Текст только что записанного макроса имеет следующий вид:
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
Если сопоставить текст программы с только что сделанными шага-
ми, то можно увидеть, что каждый шаг записан в одной или двух строках
кода программы (процедуры). В процедуре записано также много допол-
нительных строк: в них устанавливаются параметры, которые не задава-
лись явно во время создания рабочего листа. Эти дополнительные строки
появляются в момент щелчка на кнопке ОК в диалоговом окне, в котором
устанавливаются какие-либо параметры. Хотя можно изменить только
один параметр, но для каждого параметра диалогового окна в записывае-
мом макросе появится соответствующая строка. Например, хотя в диало-
говом окне Рамка устанавливалась только опцию Снизу, в процедуру
Страницы
- « первая
- ‹ предыдущая
- …
- 75
- 76
- 77
- 78
- 79
- …
- следующая ›
- последняя »
