Работа в программе 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\1.xls", FileFormat _

        :=xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=False

End Sub