Работа в программе 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.xls', FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub