Компьютерные технологии в металлургии и литейном производстве. Дембовский В.В. - 149 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

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

Рубрика: 

149
'To же для 2-й формулы
Range("D2").Formula = Формула2
Range("D2").AutoFill _
Destination:=Range(Cells(2, 4), Cells(n, 4)), _
Type:=xlFillDelault
'Конец процедуры, выполняемой при нажатии на [CommandButton1]
End Sub
'Процедура закрытия пользовательской формы 2,
'выполняемая нажатием на [CommandButton3]
Private Sub CommandButton3_Click()
UserFormI.Hide
'Конец процедуры закрытия формы
End Sub
'Процедура инициализации формы, в результате
'которой нажатие на клавишу [Enter]
'запускает процедуру, а нажатие на [Escape]
'вызывает её сброс (нажимать дважды).
Private Sub UserForm_Initialize()
CommandButton1.Default = True
ComniandButtопЗ . Cancel = True
'Вызов формы 1
UserForm1.Show
'Конец процедуры инициализации формы
End Sub
'Запуск процедуры построения графика средствами Excel,
'осуществляемой нажатием на [CommandButton4]
Private Sub CommandButton4_Click()
'Назначение числа строк данных, определённого выше
n = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count
'Очистка области построения графика
'Вызов Мастера диаграмм Excel
'задание параметров графика,
'включая надписи по его осям
ActiveSheet.ChartObjects.Delete
ActiveSheet.ChartObjects.Add(195, 30, 200, 190).Select
ActiveChart.ChartWizard Source:= _
Range(CelIs(2, 2), Cells(n, 4)), _
Gallery:=xlLine, Format:=4, PlotBy:=xlColumns, _
CategoryLabels : =1, SeriesLabels : =0 , HasLegend:=False, _
Title:="Z1=f1(Y) и Z2=f2(Y)", _
CategoryTitle:="Y", _
ValueTitle:="Zl,Z2"
'Конец процедуры построения графика End Sub

Страницы