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