.

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

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 266
Скачать документ

Oi?ie?iaaiea oaaeeoeu ii ?aoaieth eaaae?aoiiai o?aaiaiey aeaea
Ao2+Ao+N=0

Nicaeaiea oaeea.

Oaee nicaeaaony ec ioieoa iaith OAEE iioeeae NICAeAOUe. Iiyaeyaony
oaaeeoea,

Onoaiaaeeaaai ia?aiao?u no?aieoeu /a?ac iioeeth IA?AIAO?U NO?AIEOeU
iaith OAEE (onoaiiaea iieae, ?acia?a aoiaae, eieiioeooeia e o.ae.). Ia
eenoa iiyaeyaony ioieoe?iay eeiey, iaicia/athuay a?aieoeu eenoa.

Iaai? oaaeeoeu.

A y/aeeo A1 iaae?aai o?aco «?aoaiea eaaae?aoiiai o?aaiaiey aeaea
Ao2+Ao+N=0, e auaeaeyai y/aeee no?iee A io 1 aei oie eioi?ay iaoiaeeony
ia?aae ioieoe?iie eeieae. Oi?iaoe?oai ?aniieiaeaiea, ia/a?oaiea e ?acia?
aoea /a?ac iioeeth ss*AEEE iaith OI?IAO. A iiaeiaiaee Au?aaieaaiea
onoaiaaeeaaai cia/aiea «Oeaio?e?iaaoue ii auaeaeaieth». A iiaeiaiaee
O?eoo – ?acia? e ia/a?oaiea aoea (o iaoai aa?eaioa yoi iieoaee?iue
eo?nea e ?acia? 14). Onoaiaaeeaaai eo?ni? ia y/aeea A4 e iaae?aai A=, a
y/aeea A5 – A=, a y/aeea A6 – N=, e i?iecaiaeei oi?iaoe?iaaiea ii
iienaiiiio auoa iaoiaeo. ss/aeee N4, N5 e N6 auaeaeyai ?aieie a
iiaeiaiaee ?aiea iaiaee ss*AEEE iaith OI?IAO. Yoe y/aeee i?aaeiacia/aiu
aeey aaiaea a ieo cia/aiee A, A, N.

Iaai? oi?ioeu.

A y/aeeao A4 e A6 ieoai niioaaonoaaiii o1= e o2=, e oi?iaoe?oai ii
iaoiaeo, iienaiiiio auoa.

A a y/aeee F4 e F6 caienuaaai oi?ioeu oae. Nia/aea noaaeony ?aaii, iioii
cia/aiea y/aeee A5 iaaeaoeai ia iae iuoee, ooieoeey Ei?aiue anoaaeyaony
ec ioieoa iaith ANOAAEA – OOIEOeEss… Auae?aai ec iaoaiaoe/aneeo
ooieoeee – EI?AIUe. E iaaeeiaai eiiieo Aeaeaa – aeey aaiaea cia/aiey,
iaoiaeyuaainy iiae ei?iai. Neaaeoy oi?ioea aeene?eieiaioa aaiaeei
B5^2-(4*B4*B6), a iauee aeae oi?ioeu –

=(-B5 + EI?AIUe(B5^2-(4*B4*B6)))/(2*B4)

Oaeoth aea oi?ioeo anoaaeyai e a y/aeeo F6, ii niciaeii ieion:

=(-B5 – EI?AIUe(B5^2-(4*B4*B6)))/(2*B4)

Oaia?ue iinea aaiaea iieueciaaoaeai cia/aiee A,A,N a y/aeee A4, A5 e A6,
a y/aeeao F4 e F6 aoaeoo auaiaeeony niioaaonoaaiii cia/aiey o1 e o2.

Nai Eeno nio?aiyaony iioeeae NIO?AIEOUe EAE… ec iaith OAEE. Ioooaea
aea i?iecaiaeeony e ia/aoue Eenoa.

Aeae oaaeeoeu a i?ia?aiia Excel.

Iae?in iaai?a oaaeeoeu.

‘ Iae?in1 Iae?in

‘ Iae?in caienai 29.05.00 ()

Sub Iae?in1()

ActiveCell.FormulaR1C1 = “?aoaiea eaaae?aoiiai o?aaiaiey aeaea
Ao2+Ao+N=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 = “A=”

Range(“A5”).Select

ActiveCell.FormulaR1C1 = “A=”

Range(“A6”).Select

ActiveCell.FormulaR1C1 = “N=”

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 = “o1=”

Range(“E6”).Select

ActiveCell.FormulaR1C1 = “o2=”

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

End Sub

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2019