Работа в программе 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 Documents1.xls», FileFormat _
=xlNormal, Password =»», WriteResPassword =»», _
ReadOnlyRecommended =False, CreateBackup =False
End Sub
«