Preocuparea cotidiana a investitorilor financiari si a gestionarilor portofoliilor de titluri este de a anticipa tendintele de crestere sau de scadere ale indicelui general al pietei bursiere. De aceste tendinte este legata evolutia valorii de piata a fiecarui titlu din portofoliu. Fiecare valoare mobiliara urmareste, mai mult sau mai putin, tendintele pietei. v9s21sk
Cand indicele pietei este in crestere, majoritatea titlurilor au un curs crescator si invers. Anumite valoti mobiliare sunt mai sensibile decat altele la miscarile pietei bursiere.
Aceasta relatie intre rentabilitatea realizata de o valoare mobiliara si rentabilitatea, ca indice general al valorilor mobiliare, este formalizata in cadrul conceptului de model de piata. Modelul de piata, in forma sa cea mai simpla, reprezinta relatia liniara ce poate exista intre ratele de rentabilitate constatate, intr-o perioada de timp, asupra unei actiuni sau asupra unui portofoliu de valori mobiliare si ratele reralizate in aceeasi perioada, prin indicele general al pietei bursiere.
Ca toti cercetatorii de reputatie mondiala, H. Marcowitz a pornit de la negarea unei afirmatii care risca sa devina o paradigma in evaluarea portofoliului de active riscante(actiuni, obligatuni, polite de asigurare). Pana la cercetarea lui Marcowitz(1952), se incetatenise ideea ca valoarea unui portofoliu este determinata de speranta matematica a rentabilitatii acestuia. Obiectivul urmarit ar fi deci maximizarea sperantei matematice, un obiectiv indelung cautat in sfera asigurarilor.
Maxixizarea sperantei matematice poate constitui un criteriu de evaluare numai sub ipoteze foarte restrictive:

1. Rentabilitati separate (E(Rj)) egale pentru fiecare activ riscant component al portofoliului;
2. Riscuri (si^2) egale si independente;
3. Un numar (N) foarte mare de active riscante
Marcowitz afirma si convinge prin argumentatia sa ca, in cazul cel mai general al activelor riscante cu sperante de rentabilitate diferite si interdependente si, deci cu riscuri diferite si corelate, criteriul de evaluare este cel de “speranta de rentabilitate -;dispersie “. Potrivit acestui criteriu, comportamentul investitional rational va urmari maximizarea rentabilitatii sperate pe unitatea de risc data(asumata) sau invers minimizarea riscului unitatea de rentabilitate data(asumata).
Mai tarziu se va demonstra ca inclusiv criteriul “speranta -;dispersie” este un caz particular al criteriului “speranta de utilitate”
In continuare ne vom ocupa de portofoluiul de trei titluri, cu care na apropiem foarte mult de cazul general al portofoliului de “n” titluri. Procedurile de calcul pentru cazul a trei titluri ne ajuta in intelegerea mai buna a avaluarii portofoliului de “n” titluri.

In cazul a trei titluri, parametrii portofoliului sunt urmatorii :

Restrictiile modelului Marcowitz sunt urmatoarele :

Conform acestor restrictii se admite ca un titlu sa lipseasca din portofoliu, dar nu se admite detinerea unui titlu la descoperire(prin vanzarea lui pe debit, fara sa-l detina, x<0). Vanzarea pe debit a unui titlu este echivalenta cu o dobinda egala cu speranta de rentabilitate a titlului.
Prin intermediul celor doua restrictii se poate aduce exprimarea modelului Marcowitz in “planul” determinat de doua necunoscute: x1 si x2.
Astfel, daca x3=1-x1-x2, atunci, prin inlocuirea necunoscutei x3, perametrii portofoliului de trei titluri se pot exprima :

In planul a doua necunoscute se poate determina relativ usor portofoliul cu varianta minimala absuluta (PVMA) al celor trei titluri. Este suficient sa se caute minimul de risc al portofoliului a carui compozitie in x1 si x2 va fi data de sistemul celor doua derivate partiale egalate cu 0

Solutiile sistemului(x1 si x2 ) vor permite apoi deducerea ponderii titlului 3 si apoi parametrii Ep si sp ai PVMA. Satisfacem, in acest fel, exigentele investitorului cu aversiune(totala) de risc. El are acum compozitia optima a portofoliului de trei titluri care-i confera o anumita rentabilitate Ep la cel mai mic risc posibil.
Dar suntem interesati sa oferim aceleasi informatii pentru toti investitorii, si deci sa construim frontiera eficienta. Conform criteriului “speranta -;dispersie”, se cauta riscul minim la o speranta de rentabilitate scontata specifica fiecarui investitor :

Stiind ca :
Riscul sp^2 il putem exprima in forma matriceala astfel :

Unde : V=matricea dispersii-covariante x=vextor coloana al ponderilor xi x’=transpusa vectorului x

Pentru determinarea frontierei eficiente se procedeaza la minimizarea functiei Lagrange:

In care constanta ½ este introdusa pentru simplificarea ecuatiei.

Rezolvarea functiei de minimizare se face prin sistemul de derivate partiale ale functiei Lagrange:

Sub forma matriciala, sistemul de ecuatii de mai sus se poate scrie astfel:

Solutiile cautate (x1, ?1, ?2)vor fi gasire prin rezolvarea sistemului matricial:

in care W este matricea inversata. Ecuatiile parametrice ce se vor construi din ultimul sistem matricial ne permit identificarea portofoliilor eficiente, pentru o speranta de rentabilitate scontata.

Aplicatia pentru estimarea portofoliului cu trei titluri este realizal in Visual Basic (aplicatie in Excel)
Vom lua in considerare patru stari ale naturii : Avant economic, Crestere moderata, Stabilitate si Recesiune.
Pentru valori ale probabilitatilor, corespunzatoare acestor stari, de 0.1, 0.4, 0.4, si respectiv 0.1, si pentru ricurile celor trei titluri:
R1= 12, 8, 4, 0
R2= 8, 2, 2, 0
R3=8, 2.5, 5.5, 0 vom obtine urmatoarele valori , pentru PVMA, ale criteriului “speranta -;dispersie”

In final vom obtine on tabel in care prin introducerea unor valori dorite ale sperantei de rentabilitate Ep vom putea lua o decizie asupra portofoliului.
In cazul nostru, pentru Ep=3%, primul portofoliu este dominat de de multimea portofoliilor eficiente. La acelasi risc (sp=1.966),se poate obtine o rentabilitate superioara( intre 4% si 5%)
Din multimea de portofolii eficiente, ultimul (pentru Ep=6%)este nelegitim (x2=-66,32%<0). Asta inseamna ca titlul doi este vandut la descoperire, iar banii incasati din aceasta operatiune sunt plasati in titlurile 1 si 3.

Codul sursa al aplicatiei

Private Sub tabelmaker_Click() tabel
Worksheets("Calcule").Range("B5:B8").Name = "probabilitati"
Worksheets("Calcule").Range("B5").FormulaR1C1 = CDbl(prob1.Text)
Worksheets("Calcule").Range("B6").FormulaR1C1 = CDbl(prob2.Text)
Worksheets("Calcule").Range("B7").FormulaR1C1 = CDbl(prob3.Text)
Worksheets("Calcule").Range("B8").FormulaR1C1 = CDbl(prob4.Text)
Worksheets("Calcule").Range("C5").FormulaR1C1 = CDbl(rent1.Text)
Worksheets("Calcule").Range("C6").FormulaR1C1 = CDbl(rent2.Text)
Worksheets("Calcule").Range("C7").FormulaR1C1 = CDbl(rent3.Text)
Worksheets("Calcule").Range("C8").FormulaR1C1 = CDbl(rent4.Text)
' calcule
Worksheets("Calcule").Range("C10").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Ra-5iC:Ra-1iC)"
ActiveCell.FormulaR1C1 = "=AVERAGE(Ra-5iC:Ra-2iC)"
Worksheets("Calcule").Range("D5").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra5iCa-1i"
Worksheets("Calcule").Range("D6").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra4iCa-1i"
Worksheets("Calcule").Range("D7").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra3iCa-1i"
Worksheets("Calcule").Range("D8").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra2iCa-1i"
Worksheets("Calcule").Range("E5").Select
ActiveCell.FormulaR1C1 = "=(POWER(RCa-1i,2))*RCa-3i"
Worksheets("Calcule").Range("E6").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-3i"
Worksheets("Calcule").Range("E7").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-3i"
Worksheets("Calcule").Range("E8").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-3i"
'
'
Worksheets("Calcule").Range("F5").FormulaR1C1 = CDbl(rent21.Text)
Worksheets("Calcule").Range("F6").FormulaR1C1 = CDbl(rent22.Text)
Worksheets("Calcule").Range("F7").FormulaR1C1 = CDbl(rent23.Text)
Worksheets("Calcule").Range("F8").FormulaR1C1 = CDbl(rent24.Text)
' calcule
Worksheets("Calcule").Range("F10").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Ra-5iC:Ra-1iC)"
ActiveCell.FormulaR1C1 = "=AVERAGE(Ra-5iC:Ra-2iC)"
Worksheets("Calcule").Range("G5").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra5iCa-1i"
Worksheets("Calcule").Range("G6").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra4iCa-1i"
Worksheets("Calcule").Range("G7").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra3iCa-1i"
Worksheets("Calcule").Range("G8").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra2iCa-1i"
Worksheets("Calcule").Range("H5").Select
ActiveCell.FormulaR1C1 = "=(POWER(RCa-1i,2))*RCa-6i"
Worksheets("Calcule").Range("H6").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-6i"
Worksheets("Calcule").Range("H7").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-6i"
Worksheets("Calcule").Range("H8").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-6i"
'
'
Worksheets("Calcule").Range("I5").FormulaR1C1 = CDbl(rent31.Text)
Worksheets("Calcule").Range("I6").FormulaR1C1 = CDbl(rent32.Text)
Worksheets("Calcule").Range("I7").FormulaR1C1 = CDbl(rent33.Text)
Worksheets("Calcule").Range("I8").FormulaR1C1 = CDbl(rent34.Text)
' calcule
Worksheets("Calcule").Range("I10").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Ra-5iC:Ra-1iC)"
ActiveCell.FormulaR1C1 = "=AVERAGE(Ra-5iC:Ra-2iC)"
Worksheets("Calcule").Range("J5").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra5iCa-1i"
Worksheets("Calcule").Range("J6").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra4iCa-1i"
Worksheets("Calcule").Range("J7").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra3iCa-1i"
Worksheets("Calcule").Range("J8").Select
ActiveCell.FormulaR1C1 = "=RCa-1i-Ra2iCa-1i"
Worksheets("Calcule").Range("K5").Select
ActiveCell.FormulaR1C1 = "=(POWER(RCa-1i,2))*RCa-9i"
Worksheets("Calcule").Range("K6").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-9i"
Worksheets("Calcule").Range("K7").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-9i"
Worksheets("Calcule").Range("K8").Select
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)"
ActiveCell.FormulaR1C1 = "=POWER(RCa-1i,2)*RCa-9i"
'
'
Worksheets("Calcule").Range("E9").Select
ActiveCell.FormulaR1C1 = "=SUM(Ra-4iC:Ra-1iC)"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Worksheets("Calcule").Range("H9").Select
ActiveCell.FormulaR1C1 = "=SUM(Ra-4iC:Ra-1iC)"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
ActiveWindow.SmallScroll ToRight:=1
Worksheets("Calcule").Range("K9").Select
ActiveCell.FormulaR1C1 = "=SUM(Ra-4iC:Ra-1iC)"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Worksheets("Calcule").Range("H9").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Worksheets("Calcule").Range("E9").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Worksheets("Calcule").Range("E10").Select
ActiveCell.FormulaR1C1 = "=SQRT(Ra-1iC)"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Worksheets("Calcule").Range("H10").Select
ActiveCell.FormulaR1C1 = "=SQRT(Ra-1iC)"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
Worksheets("Calcule").Range("K10").Select
ActiveCell.FormulaR1C1 = "=SQRT(Ra-1iC)"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.IndentLevel = 0
.ShrinkToFit = False
.MergeCells = False
End With
'
'
Worksheets("Calcule").Range("L5").Select
ActiveCell.FormulaR1C1 = "=RCa-8i*RCa-5i/RCa-10i*RCa-10i*Ra1iC"
Worksheets("Calcule").Range("L5").Select
ActiveCell.FormulaR1C1 = "=RCa-8i*RCa-5i/RCa-10i*RCa-10i*RCa-10i"
Worksheets("Calcule").Range("L6").Select
ActiveCell.FormulaR1C1 = "=RCa-8i*RCa-5i/RCa-10i*RCa-10i*RCa-10i"
Worksheets("Calcule").Range("L7").Select
ActiveCell.FormulaR1C1 = "=RCa-8i*RCa-5i/RCa-10i*RCa-10i*RCa-10i"
Worksheets("Calcule").Range("L8").Select
ActiveCell.FormulaR1C1 = "=RCa-8i*RCa-5i/RCa-10i*RCa-10i*RCa-10i"
Worksheets("Calcule").Range("L9").Select
ActiveCell.FormulaR1C1 = "=SUM(Ra-4iC:Ra-1iC)"
ActiveWindow.SmallScroll ToRight:=4
Worksheets("Calcule").Range("M5").Select
ActiveCell.FormulaR1C1 = "=RCa-9i*RCa-3i/RCa-11i*RCa-11i*RCa-11i"
Worksheets("Calcule").Range("M6").Select
ActiveCell.FormulaR1C1 = "=RCa-9i*RCa-3i/RCa-11i*RCa-11i*RCa-11i"
Worksheets("Calcule").Range("M7").Select
ActiveCell.FormulaR1C1 = "=RCa-9i*RCa-3i/RCa-11i*RCa-11i*RCa-11i"
Worksheets("Calcule").Range("M8").Select
ActiveCell.FormulaR1C1 = "=RCa-9i*RCa-3i/RCa-11i*RCa-11i*RCa-11i"
Worksheets("Calcule").Range("M9").Select
ActiveCell.FormulaR1C1 = "=SUM(Ra-4iC:Ra-1iC)"
ActiveWindow.SmallScroll ToRight:=1
Worksheets("Calcule").Range("N5").Select
ActiveCell.FormulaR1C1 = "=RCa-7i*RCa-4i/RCa-12i*RCa-12i*RCa-12i"
Worksheets("Calcule").Range("N6").Select
ActiveCell.FormulaR1C1 = "=RCa-7i*RCa-4i/RCa-12i*RCa-12i*RCa-12i"
Worksheets("Calcule").Range("N7").Select
ActiveCell.FormulaR1C1 = "=RCa-7i*RCa-4i/RCa-12i*RCa-12i*RCa-12i"
Worksheets("Calcule").Range("N8").Select
ActiveCell.FormulaR1C1 = "=RCa-7i*RCa-4i/RCa-12i*RCa-12i*RCa-12i"
Worksheets("Calcule").Range("N9").Select
ActiveCell.FormulaR1C1 = "=SUM(Ra-4iC:Ra-1iC)"
'
'
Worksheets("Calcule").Range("L10").Select
ActiveCell.FormulaR1C1 = "=Ra-1iC/(RCa-7i*RCa-4i)"
Worksheets("Calcule").Range("M10").Select
ActiveCell.FormulaR1C1 = "=Ra-1iC/(RCa-8i*RCa-2i)"
Worksheets("Calcule").Range("N10").Select
ActiveCell.FormulaR1C1 = "=Ra-1iC/(RCa-6i*RCa-3i)"

Worksheets("Calcule").Range("A1").Select
ActiveWindow.SmallScroll ToRight:=2
End Sub

Private Sub cont_Click() continuare sist rezsis criteriu
End Sub

Private Sub contin2_Click() continuare2
End Sub

Private Sub CommandButton1_Click() continuare3 matlagrange inversare
End Sub

Private Sub CommandButton1_Click() continuare4
Worksheets("Calcule5").pvma.Text = CStr(Worksheets("Calcule5").Range("J108").Value)
Worksheets("Calcule5").b.Text = CStr((Worksheets("Calcule5").Range("J111").Value) * 100)
Worksheets("Calcule5").bb.Text = CStr((Worksheets("Calcule5").Range("J112").Value) * 100)
Worksheets("Calcule5").bbb.Text = CStr((Worksheets("Calcule5").Range("J113").Value) * 100)
End Sub

Private Sub ok1_Click()
Worksheets("Calcule5").Range("I108").FormulaR1C1 = CDbl(ep1.Text) a.Text = CStr((Worksheets("Calcule5").Range("I111").Value) * 100) aa.Text = CStr((Worksheets("Calcule5").Range("I112").Value) * 100) aaa.Text = CStr((Worksheets("Calcule5").Range("I113").Value) * 100)

End Sub

Private Sub ok2_Click() pvma.Text = CStr(Worksheets("Calcule5").Range("J108").Value) b.Text = CStr((Worksheets("Calcule5").Range("J111").Value) * 100) bb.Text = CStr((Worksheets("Calcule5").Range("J112").Value) * 100) bbb.Text = CStr((Worksheets("Calcule5").Range("J113").Value) * 100)
End Sub

Private Sub ok3_Click()
Worksheets("Calcule5").Range("K108").FormulaR1C1 = CDbl(ep2.Text) c.Text = CStr((Worksheets("Calcule5").Range("J111").Value) * 100) cc.Text = CStr((Worksheets("Calcule5").Range("J112").Value) * 100) ccc.Text = CStr((Worksheets("Calcule5").Range("J113").Value) * 100)
End Sub

Private Sub ok4_Click()
Worksheets("Calcule5").Range("L108").FormulaR1C1 = CDbl(ep3.Text) d.Text = CStr((Worksheets("Calcule5").Range("L111").Value) * 100) dd.Text = CStr((Worksheets("Calcule5").Range("L112").Value) * 100) ddd.Text = CStr((Worksheets("Calcule5").Range("L113").Value) * 100)
End Sub

Private Sub ok5_Click()
Worksheets("Calcule5").Range("M108").FormulaR1C1 = CDbl(ep4.Text) e.Text = CStr((Worksheets("Calcule5").Range("M111").Value) * 100) ee.Text = CStr((Worksheets("Calcule5").Range("M112").Value) * 100) eee.Text = CStr((Worksheets("Calcule5").Range("M113").Value) * 100)
End Sub

Private Sub Workbook_Open() start.Show
Range("A1:T66").Select
Selection.Interior.ColorIndex = 15
Range("A1").Select
End Sub

Sub sist()

Range("E3").Select
ActiveCell.FormulaR1C1 = "=Calcule!Ra6iC-2*Calcule!Ra6iCa8i+Calcule!Ra6iCa6i"
Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=Calcule!Ra5iCa7i-Calcule!Ra5iCa8i-Calcule!Ra5iCa9i+Calcule!Ra5iCa6i"
Range("F3").Select
ActiveCell.FormulaR1C1 = _
"=Calcule!Ra6iCa6i-Calcule!Ra6iCa7i-Calcule!Ra6iCa8i+Calcule!Ra6iCa5i"
Range("F4").Select
ActiveCell.FormulaR1C1 = _
"=Calcule!Ra5iCa2i-2*Calcule!Ra5iCa8i+Calcule!Ra5iCa5i"
Range("F4").Select
ActiveCell.FormulaR1C1 = _
"=Calcule!Ra5iCa2i-2*Calcule!Ra5iCa8i+Calcule!Ra5iCa5i"
Range("E3:F4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Range("E3:E4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("F3:F4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G3").Select
ActiveCell.FormulaR1C1 = "X1"
Range("G4").Select
ActiveCell.FormulaR1C1 = "X2"
Range("G3:G4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Range("G3:G4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("I3").Select
ActiveCell.FormulaR1C1 = "=-(Calcule!Ra6iCa4i-Calcule!Ra6iCa2i)"
Range("I4").Select
ActiveCell.FormulaR1C1 = "="
Range("I4").Select
Sheets("Calcule").Select
Range("L9").Select
Sheets("Calcule 2").Select
Range("I4").Select
ActiveCell.FormulaR1C1 = "=-(Calcule!Ra5iCa5i-Calcule!Ra5iCa2i)"
Range("I3:I4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G3:G4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("H4").Select
End Sub

Sub criteriu()

Range("D19").Select
ActiveCell.FormulaR1C1 = _
"=Ra-6iCa-1i*Calcule!Ra-9iCa-1i+'Calcule 2'!Ra-5iCa-1i*Calcule!Ra-9iCa2i+'Calcule 2'!Ra-4iCa-1i*Calcule!Ra-9iCa5i"
Range("D19").Select
Selection.NumberFormat = "0.000"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("D22").Select
ActiveCell.FormulaR1C1 = ""
' Range("D21").Select
'ActiveCell.FormulaR1C1 = "=Ra-8iCa-1i*Ra-8iCa-1i*Calcule!Ra-12iCa1i+Ra-7iCa-1i*Ra-7iCa-1i*Calcule!Ra-12iCa4i+Ra-6iCa-1i*Ra-6iCa-1i*Calcule!Ra-12iCa7i+2*Ra-8iCa-1i*!Ra-7iCa-1i*Calcule!Ra-12iCa8i 2 "
Range("D21").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.NumberFormat = "0.000"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Range("D23").Select
ActiveCell.FormulaR1C1 = "=SQRT(Ra-2iC)"
Selection.NumberFormat = "0.000"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Sub continuare2()
'
' continuare2 Macro
' Macro recorded 5/15/00 by cristi
'

'
Sheets("Calcule3").Select
Range("A1:Z223").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ActiveWindow.Zoom = 80
Range("A1").Select
End Sub

Sub tabel()

Sheets("Calcule").Select
ActiveWindow.Zoom = 80
Range("A1:ES80").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("A4:N10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A4:N4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("A4:N8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("A4:A10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("B4:B10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("C4:C10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("D4:E10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("F4:F10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("G4:H10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("I4:I10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("J4:K10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Range("A5:N8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A9:B10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("D9:E9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Range("G9:H9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Range("J9:K9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Range("L9:N10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A5:N8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A4:A10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("A4:N10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("B4:B10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("D4:E10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("G4:H10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("J4:K10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("L4:N4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A4").Select
ActiveCell.FormulaR1C1 = "Stari ale naturii"
Range("B4").Select
ActiveCell.FormulaR1C1 = "Probab."
Range("C4").Select
ActiveCell.FormulaR1C1 = "R1s"
Range("B4").Select
ActiveCell.FormulaR1C1 = "Probab.s"
Range("D4:E4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m"
Range("F4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m)"
Range("F4").Select
ActiveCell.FormulaR1C1 = "(R1s-R1m)^2*Probab.s"
Range("F4").Select
ActiveCell.FormulaR1C1 = "(R1s-R1m)^2*Probab.s"
Range("D4:E4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = True
End With
Selection.Merge
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m|(R1s-R1m)^2*Probab.s"
Range("F4").Select
ActiveCell.FormulaR1C1 = "R2s"
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m|(R1s-R1m)^2*Probab.s"
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m|(R1s-R1m)^2*Probab.s"
Range("G4").Select
'ActiveSheet.Paste

ActiveCell.FormulaR1C1 = "R2s-R2m"
Range("H4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)

.Weight = xlThin

End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Range("G4:H4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m|(R1s-R1m)^2*Probab.s"
Range("H4").Select
'ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(R2s-R2m)^2*Probab.s"
Range("I4").Select
ActiveCell.FormulaR1C1 = "R3s"
Range("K4").Select
'ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "(R3s-R3m)^2*Probab.s"
Range("D4:E4").Select
ActiveCell.FormulaR1C1 = "R1s-R1m|(R1s-R1m)^2*Probab.s"
Range("J4").Select
' ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "R3s-R3m"
Range("L4").Select
ActiveCell.FormulaR1C1 = "Sigma1"
Range("M4").Select
' ActiveSheet.Paste
Range("N4").Select
' ActiveSheet.Paste
Range("L4").Select
ActiveCell.FormulaR1C1 = "Sigma12"
Range("M4").Select
ActiveCell.FormulaR1C1 = "Sigma13"
Range("N4").Select
ActiveCell.FormulaR1C1 = "Sigma23"
Range("A4").Select
Columns("A:A").ColumnWidth = 16.71
Columns("A:A").ColumnWidth = 13
Columns("C:C").ColumnWidth = 4.43
Columns("D:D").ColumnWidth = 8.57
Columns("E:E").ColumnWidth = 11.86
Columns("D:D").ColumnWidth = 13
Columns("E:E").ColumnWidth = 12.57
Columns("E:E").ColumnWidth = 13.71
Columns("F:F").ColumnWidth = 4.14
Columns("H:H").ColumnWidth = 13.29
Columns("H:H").ColumnWidth = 16.29
Columns("H:H").ColumnWidth = 19
Columns("H:H").ColumnWidth = 20.14
Columns("I:I").ColumnWidth = 3.71
Columns("K:K").ColumnWidth = 14.86
Columns("K:K").ColumnWidth = 18.14
Columns("K:K").ColumnWidth = 19
Columns("K:K").ColumnWidth = 20.29
ActiveWindow.SmallScroll ToRight:=1
Range("J4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)

.Weight = xlThin

End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Range("J4:K4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
ActiveWindow.SmallScroll ToRight:=-1
Range("A4:N4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
End With
Range("A5").Select
ActiveCell.FormulaR1C1 = "Avan economic"
Range("A6").Select
Columns("A:A").ColumnWidth = 13.86
Range("A5").Select
ActiveCell.FormulaR1C1 = "Avant economic"
Range("A6").Select
ActiveCell.FormulaR1C1 = "crestere moderata"
Range("A6").Select
ActiveCell.FormulaR1C1 = "Crestere moderata"
Columns("A:A").Select
Selection.ColumnWidth = 15.71
Range("B15").Select
Columns("A:A").ColumnWidth = 16.57
Range("A7").Select
ActiveCell.FormulaR1C1 = "Stabilitate"
Range("A8").Select
ActiveCell.FormulaR1C1 = "Recesiune"
Range("D9:E9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("D9:E9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)

.Weight = xlThin

End With
Range("D9:E10").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("D9:E9").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyl