Referat.me

Название: Работа в программе Excel

Вид работы: реферат

Рубрика: Информатика и программирование

Размер файла: 19.64 Kb

Скачать файл: referat.me-138592.docx

Краткое описание работы: Формирование таблицы по решению квадратного уравнения вида Ах2+Вх+С=0 Создание файла. Файл создается из пункта меню ФАЙЛ опцией СОЗДАТЬ. Появляется таблица,

Работа в программе 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 Documents1.xls", FileFormat _

:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Похожие работы

  • Построение графиков функций. Решение нелинейных уравнений и систем нелинейных уравнений

    Методика и основные этапы построения ранжированных переменных, сферы и особенности их практического применения. Порядок построения графиков в декартовой системе. Приведение примеров решение нелинейных уравнений и их систем при помощи решающего блока.

  • Программа "Учет выдачи и возврата книг"

    Создание программы для учета выдачи и возврата книг. Методы создания четырех таблиц-справочников и основной таблицы. Создание базового, перекрестного, итогового запросов. Формирование форм. Формирование отчета по читателям и выданным книгам с итогами.

  • Создание баз данных в Microsoft Access

    Министерство просвещения Украины Национальная Горная Академия СОЗДАНИЕ ФАЙЛА И ТАБЛИЦ БАЗЫ ДАННЫХ МАСТЕРОМ И ПО ЗАДАННОЙ ЛОГИЧЕСКОЙ МОДЕЛИ Лабораторная работа Access 97

  • Моделирование систем управления

    Южно Уральский Государственный Университет Кафедра “Автоматики и телемеханики” К У Р С О В А Я Р А Б О Т А По теме “Моделирование систем управления”

  • Контрольная работа №2 по компьютерной подготовке ИЗО ГУУ (г. Москва)

    Министерство общего и профессионального образования Российской Федерации ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ УПРАВЛЕНИЯ ИНСТИТУТ ЗАОЧНОГО ОБУЧЕНИЯ Контрольная работа №2

  • Microsoft Exel

    ВОПРОСЫ К ЭКЗАМЕНУ ПО ИНФОРМАТИКЕ 2 семестр Табличные процессоры. Классификация. Табличный процессор Excel. Назначение. Основные приемы работы в Excel: ведение рабочей книги.

  • Рефакторинг. Виключення дублювання коду. Розробка бібліотек класів та знайомство з багатопроектними рішеннями

    Розробка програми для розв’язання квадратних рівнянь з текстовим та графічним інтерфейсами користувача без дублювання їх коду. Алгоритм розв’язання квадратного рівняння у програмах з будь-яким інтерфейсом користувача, а саме: "консольний" та "форма".

  • Разработка программного обеспечения для нахождения корней биквадратного уравнения

    Решение биквадратного уравнения методом введения новой переменной. Создание программы с понятным интерфейсом. Математические и алгоритмические основы решения задачи. Алгебраическое уравнение четвертой степени. Программная реализация решения задачи.

  • Регрессионные зависимости

    Вычисление значений регрессионно-авторегрессионной зависимости заданного выражения линейного программирования. Графическое представление математической модели в виде уравнения регрессии. Принципи оптимизации производственных и коммерческих операций.

  • Использование электронных таблиц

    Выполнение заданий на вычисление функции на указанном диапазоне и построение графика функции. Нахождение суммы числового ряда. Нахождение корней уравнения командой "Подбор параметра". Описание технологии работы со списками в электронной таблице Excel.