Работа у програмі Excel

Формування таблиці у вирішенні квадратного рівняння виду Ах2+Вх+С=0.

Створення файла.

Файл створюється із меню ФАЙЛ опцією СТВОРИТИ. З’являється таблица,.

Встановлюємо параметри сторінки через опцію ПАРАМЕТРИ СТОРІНКИ меню ФАЙЛ (установка полів, розміру папери, колонтитулів тощо.). На аркуші з’являється пунктирна лінія, що означає кордону листа.

Набір таблицы.

У осередок А1 набираємо фразу «Рішення квадратного рівняння виду Ах2+Вх+С=0, і виділяємо осередки рядки, А від 1 до тієї що є перед пунктирною лінією. Форматируем розташування, накреслення і величину літер через опцію ОСЕРЕДКИ меню ФОРМАТ. У подпанели Вирівнювання встановлюємо значення «Центрировать з надання». У подпанели Шрифт — величину і накреслення літер (у нашому варіанті це напівжирний курсив і величину 14). Встановлюємо курсор на осередку В4 і набираємо А=, в осередку В5 — У=, в осередку В6 — З=, і виробляємо форматування по описаного вище методу. Осередки С4, С5 і С6 виділяємо рамкою в подпанели Рамка панелі ОСЕРЕДКИ меню ФОРМАТ. Ці осередки призначені для входження у них значень А, У, С.

Набір формулы.

У осередках Е4 і Е6 пишемо відповідно х1= і х2=, і форматируем по методу, описаного выше.

На осередки F4 і F6 записуємо формули так. Спочатку ставиться одно, потім значення осередки В5 натисканням у ньому мишки, функція Корінь вставляється із меню ВСТАВКА — ФУНКЦІЯ… Вибираємо з математичних функцій — КОРІНЬ. І натискаємо кнопку Далі - для введення значення, що під коренем. Дотримуючись формулі дискриминанта вводимо B5²-(4*B4*B6), а загальний вигляд формули ;

=(-B5 + КОРЕНЬ (B5²-(4*B4*B6)))/(2*B4).

Таку ж формулу вставляємо й у осередок F6, але сознаком минус:

=(-B5 — КОРЕНЬ (B5²-(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.787 401 575).

.RightMargin = Application. InchesToPoints (0.787 401 575).

.TopMargin = Application. InchesToPoints (0.984 251 969).

.BottomMargin = Application. InchesToPoints (0.984 251 969).

.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 Documents1. xls », FileFormat _.

:=xlNormal, Password:= «», WriteResPassword:= «», _.

ReadOnlyRecommended:=False, CreateBackup:=False End Sub.