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