Работа в программе Excel

Формирование таблицы по решению квадратного уравнения вида Ах2+Вх+С=0

Создание файла.

Файл создается из пункта меню ФАЙЛ опцией СОЗДАТЬ. Появляется таблица,

Устанавливаем параметры страницы через опцию ПАРАМЕТРЫ СТРАНИЦЫ меню ФАЙЛ (установка полей, размера бумаги, колонтитулов и т. д.). На листе появляется пунктирная линия, обозначающая границы листа.

Набор таблицы.

В ячейку А1 набираем фразу «Решение квадратного уравнения вида Ах2+Вх+С=0, и выделяем ячейки строки А от 1 до той которая находится перед пунктирной линией. Форматируем расположение, начертание и размер букв через опцию ЯЧЕЙКИ меню ФОРМАТ. В подпанели Выравнивание устанавливаем значение «Центрировать по выделению». В подпанели Шрифт — размер и начертание букв (у нашем варианте это полужирный курсив и размер 14). Устанавливаем курсор на ячейке В4 и набираем А=, в ячейке В5 — В=, в ячейке В6 — С=, и производим форматирование по описанному выше методу. Ячейки С4, С5 и С6 выделяем рамкой в подпанели Рамка панели ЯЧЕЙКИ меню ФОРМАТ. Эти ячейки предназначены для ввода в них значений А, В, С.

Набор формулы.

В ячейках Е4 и Е6 пишем соответственно х1= и х2=, и форматируем по методу, описанному выше.

А в ячейки F4 и F6 записываем формулы так. Сначала ставится равно, потом значение ячейки В5 нажатием на ней мышки, функция Корень вставляется из пункта меню ВСТАВКА — ФУНКЦИЯ… Выбираем из математических функций — КОРЕНЬ. И нажимаем кнопку Далее — для ввода значения, находящегося под корнем. Следуя формуле дискриминанта вводим B5^2-(4*B4*B6), а общий вид формулы —

=(-B5 + КОРЕНЬ(B5^2-(4*B4*B6)))/(2*B4)

Такую же формулу вставляем и в ячейку F6, но сознаком минус:

=(-B5 — КОРЕНЬ(B5^2-(4*B4*B6)))/(2*B4)

Теперь после ввода пользователем значений А, В,С в ячейки В4, В5 и В6, в ячейках F4 и F6 будут выводится соответственно значения х1 и х2.

Сам Лист сохраняется опцией СОХРАНИТЬ КАК… из меню ФАЙЛ. Оттуда же производится и печать Листа.

Вид таблицы в программе Excel.

Макрос набора таблицы.

‘ Макрос1 Макрос

‘ Макрос записан 29.05.00 ()

Sub Макрос1()

ActiveCell. FormulaR1C1 = «Решение квадратного уравнения вида Ах2+Вх+С=0»

Range(«A2»).Select

With ActiveSheet. PageSetup

.PrintTitleRows = «»

.PrintTitleColumns = «»

End With

ActiveSheet. PageSetup. PrintArea = «»

With ActiveSheet. PageSetup

.LeftHeader = «»

.CenterHeader = «»

.RightHeader = «»

.LeftFooter = «»

.CenterFooter = «»

.RightFooter = «»

.LeftMargin = Application. InchesToPoints(0.787401575)

.RightMargin = Application. InchesToPoints(0.787401575)

.TopMargin = Application. InchesToPoints(0.984251969)

.BottomMargin = Application. InchesToPoints(0.984251969)

.HeaderMargin = Application. InchesToPoints(0.5)

.FooterMargin = Application. InchesToPoints(0.5)

.PrintHeadings = False

.PrintGridlines = False

.PrintNotes = False

.PrintQuality = 600

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlPortrait

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 100

End With

Range(«A1:I1»).Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = xlHorizontal

End With

With Selection

.HorizontalAlignment = xlCenterAcrossSelection

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = xlHorizontal

End With

With Selection. Font

.Name = «Arial Cyr»

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlNone

.ColorIndex = xlAutomatic

End With

Selection. Font. Bold = True

Selection. Font. Italic = True

Range(«A4»).Select

ActiveCell. FormulaR1C1 = «А=»

Range(«A5»).Select

ActiveCell. FormulaR1C1 = «В=»

Range(«A6»).Select

ActiveCell. FormulaR1C1 = «С=»

Range(«A4:A6»).Select

With Selection

.HorizontalAlignment = xlRight

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = xlHorizontal

End With

With Selection. Font

.Name = «Arial Cyr»

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlNone

.ColorIndex = xlAutomatic

End With

Range(«B4:B6»).Select

With Selection. Borders(xlLeft)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection. Borders(xlRight)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection. Borders(xlTop)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection. Borders(xlBottom)

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Selection. BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic

Range(«E4»).Select

ActiveCell. FormulaR1C1 = «х1=»

Range(«E6»).Select

ActiveCell. FormulaR1C1 = «х2=»

Range(«E4:E6»).Select

With Selection. Font

.Name = «Arial Cyr»

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlNone

.ColorIndex = xlAutomatic

End With

With Selection

.HorizontalAlignment = xlRight

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = xlHorizontal

End With

Selection. Font. Bold = True

Range(«F4»).Select

ActiveCell. FormulaR1C1 = _

«=-R[1]C[-4]+SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-4]))/(2*RC[-4])»

Range(«F4»).Select

Selection. Copy

Range(«F6»).Select

ActiveSheet. Paste

Application. CutCopyMode = False

ActiveCell. FormulaR1C1 = _

«=-R[1]C[-4]-SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-4]))/(2*RC[-4])»

Range(«B4»).Select

ActiveCell. FormulaR1C1 = «1»

Range(«B5»).Select

ActiveCell. FormulaR1C1 = «3»

Range(«B6»).Select

ActiveCell. FormulaR1C1 = «-2»

Range(«B6»).Select

ActiveCell. FormulaR1C1 = «2»

Range(«F4»).Select

ActiveCell. FormulaR1C1 = _

«=(-R[1]C[-4]+SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-4])))/(2*RC[-4])»

Range(«F4»).Select

Selection. Copy

Range(«F6»).Select

ActiveSheet. Paste

Range(«F6»).Select

Application. CutCopyMode = False

ActiveCell. FormulaR1C1 = _

«=(-R[1]C[-4]-SQRT(R[1]C[-4]^2-(4*RC[-4]*R[2]C[-4])))/(2*RC[-4])»

Range(«F6»).Select

ActiveCell. FormulaR1C1 = _

«=(-R[-1]C[-4]-SQRT(R[-1]C[-4]^2-(4*R[-2]C[-4]*RC[-4])))/(2*R[-2]C[-4])»

Range(«F7»).Select

ActiveWorkbook. SaveAs Filename:=»C:\My Documents. xls», FileFormat _

:=xlNormal, Password:=»», WriteResPassword:=»», _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub


Работа в программе Excel