Работа в программе Excel

6271
знак
0
таблиц
1
изображение

Формирование таблицы по решению квадратного уравнения вида Ах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

En


Информация о работе «Работа в программе Excel»
Раздел: Информатика, программирование
Количество знаков с пробелами: 6271
Количество таблиц: 0
Количество изображений: 1

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

Скачать
14006
0
15

... по алфавиту (по возрастинию) или кнопку:  - для сортировки против алфавита (по убыванию) см. также п.2.4 1.8    Работа с листами – переименование, вставка, удаление, копирование В отличии от программы Word, в программе Excel существует несколько листов, обычно они выглядят как закладки внизу экрана Лист1,Лист2, Лист3 Каждый из листов представляет собой плоскость, размером 256 столбцов и 65 ...

Скачать
40173
3
0

... лучше выполнить текущую операцию. Visual Basic Вставка нового модуля на языке Visual Basic, создание меню, а также запись и отладка макрокоманд. Рабочая группа Работа с Excel в сети.       Приложение 2. Операции в формулах.     Арифметические операции   Обозначения Операции + Сложение - Вычитание - Инверсия если это знак перед единственным операндом * Умножение / ...

Скачать
49995
1
0

... задают, вводя условие фильтрации. Создание баз данных в EXCEL. Размер базы данных. Сохранение базы данных.   Размер баз данных в Excel ограничен числом строк на рабочем листе – 65536. Несмотря на эти и другие ограничения, средства управления данными в Excel – это мощный инструмент для создания небольших баз данных и работы с выборкой записей из крупных баз данных. При создании ...

Скачать
37731
23
22

... с помощью программы оптимизатора в Excel и в системе Mathcad. Анализ оптимального плана и решение менеджера. Оптимальными планами являются решения, полученные с помощью программ Excel и Mathcad, которые получили одинаковый результат: Судна первого типа – 4 штуки, судов второго типа – 2 штуки. Прибыль будет составлять 140000000 руб. При нахождении оптимального плана пассажировместимость ...

0 комментариев


Наверх