Смекни!
smekni.com

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