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