Каталог :: Программирование и комп-ры

Контрольная: Работа в программе 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