Составители:
Рубрика:
4 5
Главное – оно задается КОНСТАНТОЙ!
В рассматриваемом примере (рис. 1.1) такой ячейкой является
А6, а значение константы -2 (минус два).
Адрес и значение ячейки, в которой хранится величина шага
изменения аргумента табулируемой функции, также произвольны,
но значение обязательно – КОНСТАНТА.
В рассматриваемом примере такой ячейкой является B4, а зна-
чение константы 0,25. (Если
константа задается дробью, то она
должна «прижаться» к правой стенке ячейки, иначе она восприни-
мается как символьная константа, а не как цифровая. Достигается
это заменой неправильно выбранного знака-разделителя дробной
части от целой – точки на запятую.)
Обязательным является получение графика в виде, представлен-
ном на рис. 1.1, когда кривая графика начинается от оси Y, а марке-
ры кривой графика (если щелкнуть по кривой) совпадают с рисками
и подписями оси X (сравните с графиком рис. 1.2).
Чтобы от графика рис. 1.2 перейти к графику рис. 1.1, необ-
ходимо в Excel дважды щелкнуть по оси X, в появившемся окне
«Формат оси» (рис. 1.3) убрать флажок в разделе «пересечение
с осью Y (значений) между категориями» и нажать OK.
Программа табулирования функции в VВА
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim x As Single
Dim xn As Single
Dim xk As Single
Dim dx As Single
Dim y As Single
xn = InputBox("Xn = ", "Ввод начального значения x", -2, 8000, 2000)
xk = InputBox("Xk = ", "Ввод конечного значения x", 2, 8000, 1000)
dx = InputBox("dX = ", "Ввод значения шага x”, 0.25, 8000, 2000)
i = InputBox("i = ", "Ввод значения начала таблицы, строка i", 5, 8000, 1000)
j = InputBox("j = ", "Ввод значения начала таблицы, столбец j", 3, 8000, 2000)
x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "Y(vba)"
Рис. 1.1
Рис. 1.1
