Формування таблиці за рішенням квадратного рівняння виду Ах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) < p>. 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 < p> End With
With Selection.Font
. Name = "Arial Cyr"
. Size = 14
. Strikethrough = False
. Superscript = False
. Subscript = False
. OutlineFont = False
. Shadow = False < p>. 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 < p> 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
