Рефераты - Афоризмы - Словари
Русские, белорусские и английские сочинения
Русские и белорусские изложения
 

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

ref.by 2006—2022
contextus@mail.ru