Программирование и комп-ры

Работа в программе 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.

[pic]

       Макрос набора таблицы.
'
' Макрос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


смотреть на рефераты похожие на "Работа в программе Excel"