Таблица

Формирование таблицы по решению квадратного уравнения вида Ах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

  Рефераты на русском языке - Информатика


Яндекс.Метрика