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

UptoLike

ВУЗ: 

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

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

Рубрика: 

148
Range("A:D").Clear
'Задание ширины этих столбцов
Range("А:D").ColumnWidth = 10
'Форматирование данных в тех же столбцах по центру
Range("А:D").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText
=
True
End With
'Назначение ячеек таблицы для записи данных.
'В столбец А записывается Аргумент1=X;
'в столбец В - Аргумент2 = Y от его начального
'Аргумент2Нач до конечного Аргумент2Кон
'значения с шагом Аргумент2Шаг;
'в столбец С – Формула1 для вычисления Z1;
'в столбец D - Формула2 для вычисления Z2.
'Первая строка отводится под заголовки
Range("A1").Value = "Аргумент 1"
Range("B1").Value = "Аргумент 2"
Range("C1").Value = "Функция 1"
Range("D1").Value = "Функция 2"
'Во вторую строку столбцов А и В - исходные данные
Range("А2").Value = Аргумент1
Range("В2").Value = Аргумент2Нач
'Назначение диапазона записи данных с заданным шагом
Range("В2").Select
Selection.DataSeries Rowcol := xlColumns, _
Type:=xlLinear, Step:=Аргумент2Шаг, Stop:=Аргумент2Кон
'Внимание!
'Пробел и следом за ним знак подчёркивания означают перенос
'продолжения строки.
'Подсчёт числа строк диапазона
n = Range("В2").CurrentRegion.Rows.Count
Range(Cells(2, 1), Cells(n, 1)).Value = Аргумент1
'Задание ячейки для записи 1-й формулы
Range("С2").Formula = Формула1
'Автозаполнение формулой диапазона 3-го столбца (т.е.С)
'со 2-й по n-ю строки включительно
Range("C2").AutoFill _
Destination:=Range(Cells(2, 3), Cells( n, 3)), _
Type:=xlFillDefault

Страницы