Scribd
Upload
22 views2 pages

Co Bank Hong

Uploaded by

NGUYET LO MINH
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
22 views2 pages

Co Bank Hong

Uploaded by

NGUYET LO MINH
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Sub Solve()

SolverOk SetCell:="$B$16", MaxMinVal:=2, ValueOf:="0", ByChange:="$B$13:$AE$13"


SolverSolve UserFinish:=True
End Sub
Sub Doit()
Range("cacketqua").ClearContents
For counter = 1 To 30
Range("hangso") = -0.04 + counter * 0.005
Solve
Application.SendKeys ("{Enter}")
Range("cacketqua").Cells(counter, 1) = ActiveSheet.Range("hangso")
Range("cacketqua").Cells(counter, 2) = ActiveSheet.Range("portfolio.sigma")
Range("cacketqua").Cells(counter, 3) = ActiveSheet.Range("portfolio.mean")
Range("cacketqua").Cells(counter, 4) = ActiveSheet.Range("x.1")
Range("cacketqua").Cells(counter, 5) = ActiveSheet.Range("x.2")
Range("cacketqua").Cells(counter, 6) = ActiveSheet.Range("x.3")
Range("cacketqua").Cells(counter, 7) = ActiveSheet.Range("x.4")
Range("cacketqua").Cells(counter, 8) = ActiveSheet.Range("x.5")
Range("cacketqua").Cells(counter, 9) = ActiveSheet.Range("x.6")
Range("cacketqua").Cells(counter, 10) = ActiveSheet.Range("x.7")
Range("cacketqua").Cells(counter, 11) = ActiveSheet.Range("x.8")
Range("cacketqua").Cells(counter, 12) = ActiveSheet.Range("x.9")
Range("cacketqua").Cells(counter, 13) = ActiveSheet.Range("x.10")
Range("cacketqua").Cells(counter, 14) = ActiveSheet.Range("x.11")
Range("cacketqua").Cells(counter, 15) = ActiveSheet.Range("x.12")
Range("cacketqua").Cells(counter, 16) = ActiveSheet.Range("x.13")
Range("cacketqua").Cells(counter, 17) = ActiveSheet.Range("x.14")
Range("cacketqua").Cells(counter, 18) = ActiveSheet.Range("x.15")
Range("cacketqua").Cells(counter, 19) = ActiveSheet.Range("x.16")
Range("cacketqua").Cells(counter, 20) = ActiveSheet.Range("x.17")
Range("cacketqua").Cells(counter, 21) = ActiveSheet.Range("x.18")
Range("cacketqua").Cells(counter, 22) = ActiveSheet.Range("x.19")
Range("cacketqua").Cells(counter, 23) = ActiveSheet.Range("x.20")
Range("cacketqua").Cells(counter, 24) = ActiveSheet.Range("x.21")
Range("cacketqua").Cells(counter, 25) = ActiveSheet.Range("x.22")
Range("cacketqua").Cells(counter, 26) = ActiveSheet.Range("x.23")
Range("cacketqua").Cells(counter, 27) = ActiveSheet.Range("x.24")
Range("cacketqua").Cells(counter, 28) = ActiveSheet.Range("x.25")
Range("cacketqua").Cells(counter, 29) = ActiveSheet.Range("x.26")
Range("cacketqua").Cells(counter, 30) = ActiveSheet.Range("x.27")
Range("cacketqua").Cells(counter, 31) = ActiveSheet.Range("x.28")
Range("cacketqua").Cells(counter, 32) = ActiveSheet.Range("x.29")
Range("cacketqua").Cells(counter, 33) = ActiveSheet.Range("x.30")
Next counter
End Sub

Private Sub benny()


i=1
Do Until (i = AddIns.Count) Or (AddIns(i).Name = "SOLVER.XLA")
i=i+1
Loop
If (AddIns(i).Name = "SOLVER.XLA") Then
AddIns(i).Installed = True
j=1
Do Until (j = Application.VBE.ActiveVBProject.References.Count) Or _
(Application.VBE.ActiveVBProject.References(j).Name = "SOLVER.xla")
j=j+1
Loop
If (Application.VBE.ActiveVBProject.References(j).Name <> "SOLVER.xla") Then
Application.VBE.ActiveVBProject.References.AddFromFile AddIns(i).FullName
End If
Else
MsgBox Prompt:="Solver not found this workbook will not WORK", Buttons:=vbCritical
End If
End Sub
Private Sub Workbook_Open()
benny
End Sub

You might also like