'@Dvolatility:
Troubling Signs For NASDAQ Stocks http://www.businessinsider.com/troubling-signs-for-nasdaq-stocks-2011-7?utm_source=twbutton&utm_medium=social&utm_term=&utm_content=&utm_campaign=moneygame-contributor via @bi_contributors
--
shared via Twidroyd http://twidroyd.com'>Shared message via Twidroyd
Sunday, July 31, 2011
| ||
| Best bank algorithmic trading technology: Credit Suisse FX Week (subscription) Algorithmic trading has long been dominated by Credit Suisse's Advanced Execution Services (AES) suite of strategies, tools and analytics, and 2011 has seen no assault on its superiority. AES first emerged out of Credit Suisse's equities division a ... | ||
|
Saturday, July 30, 2011
Visual Basic for Applications (VBA) ETF Source Code From a Options Model I Programmed - 5
Sub ResetWts()
Application.ScreenUpdating = False
Range("e23").Value = "=W14*$Y$13"
Range("e24").Value = "=W15*$Y$13"
Range("e25").Value = "=W16*$Y$13"
Range("e26").Value = "=W17*$Y$13"
Range("e27").Value = "=W18*$Y$13"
Range("e28").Value = "=W19*$Y$13"
Range("e29").Value = "=X15*$Y$13"
Range("e36").Value = "=W14*X31"
Range("e37").Value = "=W15*$X$31"
Range("e38").Value = "=W16*$X$31"
Range("e39").Value = "=W17*$X$31"
Range("e40").Value = "=W18*$X$31"
Range("e41").Value = "=W19*$X$31"
Range("e42").Value = "=X31*X$15"
Range("e49").Value = "=$W$14*X44"
Range("e50").Value = "=$X$44*W15"
Range("e51").Value = "=$X$44*W16"
Range("e52").Value = "=$X$44*W17"
Range("e53").Value = "=$X$44*W18"
Range("e54").Value = "=$X$44*W19"
Range("e55").Value = "=$X$44*X15"
Range("e62").Value = "=1*$W$14*X57"
Range("e63").Value = "=1*$W$15*X57"
Range("e64").Value = "=$W$16*X57"
Range("e65").Value = "=$W$17*X57"
Range("e66").Value = "=$W$18*X57"
Range("e67").Value = "=$W$19*X57"
Range("e68").Value = "=$X$15*X57"
Range("e75").Value = "=1*$W$14*X70"
Range("e76").Value = "=1*$W$15*X70"
Range("e77").Value = "=$W$16*X70"
Range("e78").Value = "=$W$17*X70"
Range("e79").Value = "=$W$18*X70"
Range("e80").Value = "=$W$19*X70"
Range("e81").Value = "=$X$15*X70"
Range("e88").Value = "=1*$W$14*X83"
Range("e89").Value = "=1*$W$15*X83"
Range("e90").Value = "=$W$16*X83"
Range("e91").Value = "=$W$17*X83"
Range("e92").Value = "=$W$18*X83"
Range("e93").Value = "=$W$19*X83"
Range("e94").Value = "=$X$15*X83"
Range("e101").Value = "=1*$W$14*X96"
Range("e102").Value = "=1*$W$15*X96"
Range("e103").Value = "=$W$16*X96"
Range("e104").Value = "=$W$17*X96"
Range("e105").Value = "=$W$18*X96"
Range("e106").Value = "=$W$19*X96"
Range("e107").Value = "=$X$15*X96"
Range("e114").Value = "=1*$W$14*X109"
Range("e115").Value = "=1*$W$15*X109"
Range("e116").Value = "=$W$16*X109"
Range("e117").Value = "=$W$17*X109"
Range("e118").Value = "=$W$18*X109"
Range("e119").Value = "=$W$19*X109"
Range("e120").Value = "=$X$15*X109"
Range("e127").Value = "=1*$W$14*X122"
Range("e128").Value = "=1*$W$15*X122"
Range("e129").Value = "=$W$16*X122"
Range("e130").Value = "=$W$17*X122"
Range("e131").Value = "=$W$18*X122"
Range("e132").Value = "=$W$19*X122"
Range("e133").Value = "=$X$15*X122"
Range("e140").Value = "=1*$W$14*X135"
Range("e141").Value = "=1*$W$15*X135"
Range("e142").Value = "=$W$16*X135"
Range("e143").Value = "=$W$17*X135"
Range("e144").Value = "=$W$18*X135"
Range("e145").Value = "=$W$19*X135"
Range("e146").Value = "=$X$15*X135"
Range("e153").Value = "=1*$W$14*X148"
Range("e154").Value = "=1*$W$15*X148"
Range("e155").Value = "=$W$16*X148"
Range("e156").Value = "=$W$17*X148"
Range("e157").Value = "=$W$18*X148"
Range("e158").Value = "=$W$19*X148"
Range("e159").Value = "=$X$15*X148"
Range("e166").Value = "=1*$W$14*X161"
Range("e167").Value = "=1*$W$15*X161"
Range("e168").Value = "=$W$16*X161"
Range("e169").Value = "=$W$17*X161"
Range("e170").Value = "=$W$18*X161"
Range("e171").Value = "=$W$19*X161"
Range("e172").Value = "=$X$15*X161"
Range("e179").Value = "=1*$W$14*X174"
Range("e180").Value = "=1*$W$15*X174"
Range("e181").Value = "=$W$16*X174"
Range("e182").Value = "=$W$17*X174"
Range("e183").Value = "=$W$18*X174"
Range("e184").Value = "=$W$19*X174"
Range("e185").Value = "=$X$15*X174"
Range("e192").Value = "=1*$W$14*X187"
Range("e193").Value = "=1*$W$15*X187"
Range("e194").Value = "=$W$16*X187"
Range("e195").Value = "=$W$17*X187"
Range("e196").Value = "=$W$18*X187"
Range("e197").Value = "=$W$19*X187"
Range("e198").Value = "=$X$15*X187"
Range("e205").Value = "=1*$W$14*X200"
Range("e206").Value = "=1*$W$15*X200"
Range("e207").Value = "=$W$16*X200"
Range("e208").Value = "=$W$17*X200"
Range("e209").Value = "=$W$18*X200"
Range("e210").Value = "=$W$19*X200"
Range("e211").Value = "=$X$15*X200"
Range("e218").Value = "=1*$W$14*X213"
Range("e219").Value = "=1*$W$15*X213"
Range("e220").Value = "=$W$16*X213"
Range("e221").Value = "=$W$17*X213"
Range("e222").Value = "=$W$18*X213"
Range("e223").Value = "=$W$19*X213"
Range("e224").Value = "=$X$15*X213"
Range("e231").Value = "=1*$W$14*X226"
Range("e232").Value = "=1*$W$15*X226"
Range("e233").Value = "=$W$16*X226"
Range("e234").Value = "=$W$17*X226"
Range("e235").Value = "=$W$18*X226"
Range("e236").Value = "=$W$19*X226"
Range("e237").Value = "=$X$15*X226"
Range("e244").Value = "=1*$W$14*X239"
Range("e245").Value = "=1*$W$15*X239"
Range("e246").Value = "=$W$16*X239"
Range("e247").Value = "=$W$17*X239"
Range("e248").Value = "=$W$18*X239"
Range("e249").Value = "=$W$19*X239"
Range("e250").Value = "=$X$15*X239"
Range("e257").Value = "=1*$W$14*X252"
Range("e258").Value = "=1*$W$15*X252"
Range("e259").Value = "=$W$16*X252"
Range("e260").Value = "=$W$17*X252"
Range("e261").Value = "=$W$18*X252"
Range("e262").Value = "=$W$19*X252"
Range("e263").Value = "=$X$15*X252"
Range("e270").Value = "=1*$W$14*X265"
Range("e271").Value = "=1*$W$15*X265"
Range("e272").Value = "=$W$16*X265"
Range("e273").Value = "=$W$17*X265"
Range("e274").Value = "=$W$18*X265"
Range("e275").Value = "=$W$19*X265"
Range("e276").Value = "=$X$15*X265"
Range("e283").Value = "=1*$W$14*X278"
Range("e284").Value = "=1*$W$15*X278"
Range("e285").Value = "=$W$16*X278"
Range("e286").Value = "=$W$17*X278"
Range("e287").Value = "=$W$18*X278"
Range("e288").Value = "=$W$19*X278"
Range("e289").Value = "=$X$15*X278"
Range("e296").Value = "=1*$W$14*X291"
Range("e297").Value = "=1*$W$15*X291"
Range("e298").Value = "=$W$16*X291"
Range("e299").Value = "=$W$17*X291"
Range("e300").Value = "=$W$18*X291"
Range("e301").Value = "=$W$19*X291"
Range("e302").Value = "=$X$15*X291"
Range("e309").Value = "=1*$W$14*X304"
Range("e310").Value = "=1*$W$15*X304"
Range("e311").Value = "=$W$16*X304"
Range("e312").Value = "=$W$17*X304"
Range("e313").Value = "=$W$18*X304"
Range("e314").Value = "=$W$19*X304"
Range("e315").Value = "=$X$15*X304"
Range("e322").Value = "=1*$W$14*X317"
Range("e323").Value = "=1*$W$15*X317"
Range("e324").Value = "=$W$16*X317"
Range("e325").Value = "=$W$17*X317"
Range("e326").Value = "=$W$18*X317"
Range("e327").Value = "=$W$19*X317"
Range("e328").Value = "=$X$15*X317"
Range("e335").Value = "=1*$W$14*X330"
Range("e336").Value = "=1*$W$15*X330"
Range("e337").Value = "=$W$16*X330"
Range("e338").Value = "=$W$17*X330"
Range("e339").Value = "=$W$18*X330"
Range("e340").Value = "=$W$19*X330"
Range("e341").Value = "=$X$15*X330"
Range("e348").Value = "=1*$W$14*X343"
Range("e349").Value = "=1*$W$15*X343"
Range("e350").Value = "=$W$16*X343"
Range("e351").Value = "=$W$17*X343"
Range("e352").Value = "=$W$18*X343"
Range("e353").Value = "=$W$19*X343"
Range("e354").Value = "=$X$15*X343"
Range("e361").Value = "=1*$W$14*X356"
Range("e362").Value = "=1*$W$15*X356"
Range("e363").Value = "=$W$16*X356"
Range("e364").Value = "=$W$17*X356"
Range("e365").Value = "=$W$18*X356"
Range("e366").Value = "=$W$19*X356"
Range("e367").Value = "=$X$15*X356"
Range("e374").Value = "=1*$W$14*X369"
Range("e375").Value = "=1*$W$15*X369"
Range("e376").Value = "=$W$16*X369"
Range("e377").Value = "=$W$17*X369"
Range("e378").Value = "=$W$18*X369"
Range("e379").Value = "=$W$19*X369"
Range("e380").Value = "=$X$15*X369"
Range("e387").Value = "=1*$W$14*X382"
Range("e388").Value = "=1*$W$15*X382"
Range("e389").Value = "=$W$16*X382"
Range("e390").Value = "=$W$17*X382"
Range("e391").Value = "=$W$18*X382"
Range("e392").Value = "=$W$19*X382"
Range("e393").Value = "=$X$15*X382"
Range("e400").Value = "=1*$W$14*X395"
Range("e401").Value = "=1*$W$15*X395"
Range("e402").Value = "=$W$16*X395"
Range("e403").Value = "=$W$17*X395"
Range("e404").Value = "=$W$18*X395"
Range("e405").Value = "=$W$19*X395"
Range("e406").Value = "=$X$15*X395"
Range("e413").Value = "=1*$W$14*X408"
Range("e414").Value = "=1*$W$15*X408"
Range("e415").Value = "=$W$16*X408"
Range("e416").Value = "=$W$17*X408"
Range("e417").Value = "=$W$18*X408"
Range("e418").Value = "=$W$19*X408"
Range("e419").Value = "=$X$15*X408"
Range("e426").Value = "=1*$W$14*X421"
Range("e427").Value = "=1*$W$15*X421"
Range("e428").Value = "=$W$16*X421"
Range("e429").Value = "=$W$17*X421"
Range("e430").Value = "=$W$18*X421"
Range("e431").Value = "=$W$19*X421"
Range("e432").Value = "=$X$15*X421"
Range("e439").Value = "=1*$W$14*X434"
Range("e440").Value = "=1*$W$15*X434"
Range("e441").Value = "=$W$16*X434"
Range("e442").Value = "=$W$17*X434"
Range("e443").Value = "=$W$18*X434"
Range("e444").Value = "=$W$19*X434"
Range("e445").Value = "=$X$15*X434"
Range("e452").Value = "=1*$W$14*X447"
Range("e453").Value = "=1*$W$15*X447"
Range("e454").Value = "=$W$16*X447"
Range("e455").Value = "=$W$17*X447"
Range("e456").Value = "=$W$18*X447"
Range("e457").Value = "=$W$19*X447"
Range("e458").Value = "=$X$15*X447"
Range("e465").Value = "=1*$W$14*X460"
Range("e466").Value = "=1*$W$15*X460"
Range("e467").Value = "=$W$16*X460"
Range("e468").Value = "=$W$17*X460"
Range("e469").Value = "=$W$18*X460"
Range("e470").Value = "=$W$19*X460"
Range("e471").Value = "=$X$15*X460"
Range("CA2:CC9").Select
Selection.ClearContents
Range("bz2").Value = 0
Range("b2").Select
Application.ScreenUpdating = True
MsgBox "All weights reset."
End Sub
---------------------------------------
Sub eatShit()
Application.Worksheets("Home").Range("weights_interval_1_dbc").Select
int_1_dbc = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_dbc.Caption = int_1_dbc
Application.Worksheets("Home").Range("weights_interval_1_eem").Select
int_1_dbc = Application.ActiveCell.Value
interval_1_eem = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_eem.Caption = int_1_eem
Application.Worksheets("Home").Range("weights_interval_1_efa").Select
interval_1_efa = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_efa.Caption = int_1_efa
Application.Worksheets("Home").Range("weights_interval_1_iwm").Select
interval_1_iwm = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_iwm.Caption = int_1_iyr
Application.Worksheets("Home").Range("weights_interval_1_iyr").Select
interval_1_iyr = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_iyr.Caption = int_1_iwm
Application.Worksheets("Home").Range("weights_interval_1_mdy").Select
interval_1_mdy = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_mdy.Caption = int_1_mdy
Application.Worksheets("Home").Range("weights_interval_1_spy").Select
interval_1_spy = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1_spy.Caption = int_1_spy
Application.Worksheets("Home").Range("weights_interval_2_dbc").Select
interval_2_dbc = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_dbc.Caption = int_2_dbc
Application.Worksheets("Home").Range("weights_interval_2_eem").Select
interval_2_eem = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_eem.Caption = int_2_eem
Application.Worksheets("Home").Range("weights_interval_2_efa").Select
interval_2_efa = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_efa.Caption = int_2_efa
Application.Worksheets("Home").Range("weights_interval_2_iwm").Select
interval_2_iwm = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_iwm.Caption = int_2_iwm
Application.Worksheets("Home").Range("weights_interval_2_iyr").Select
interval_2_iyr = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_iyr.Caption = int_2_iyr
Application.Worksheets("Home").Range("weights_interval_2_mdy").Select
interval_2_mdy = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_mdy.Caption = int_2_mdy
Application.Worksheets("Home").Range("weights_interval_2_spy").Select
interval_2_spy = Application.ActiveCell.Value
IndividualPeriodsForm.interval_2_spy.Caption = int_2_spy
Application.Worksheets("Home").Range("weights_interval_3_dbc").Select
interval_3_dbc = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_dbc
Application.Worksheets("Home").Range("weights_interval_3_eem").Select
interval_3_eem = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_eem
Application.Worksheets("Home").Range("weights_interval_3_efa").Select
interval_3_efa = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_efa
Application.Worksheets("Home").Range("weights_interval_3_iwm").Select
interval_3_iwm = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_iwm
Application.Worksheets("Home").Range("weights_interval_3_iyr").Select
interval_3_iyr = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_iyr
Application.Worksheets("Home").Range("weights_interval_3_mdy").Select
interval_3_mdy = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_mdy
Application.Worksheets("Home").Range("weights_interval_3_spy").Select
interval_3_spy = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3_dbc.Caption = int_3_spy
Application.Worksheets("Home").Range("ca2").Select
interval_1 = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1.Caption = interval_1
Application.Worksheets("Home").Range("cb2").Select
interval_2 = Application.ActiveCell.Value
IndividualPeriodsForm.interval_1.Caption = interval_2
Application.Worksheets("Home").Range("cc2").Select
interval_3 = Application.ActiveCell.Value
IndividualPeriodsForm.interval_3.Caption = interval_3
IndividualPeriodsForm.Show
End Sub
---------------------------------------
Sub ShowChartsAndStatsBox()
StatsAndChartsForm.charts_cmbo.AddItem "Bar"
StatsAndChartsForm.charts_cmbo.AddItem "Line"
StatsAndChartsForm.charts_cmbo.AddItem "Pie"
StatsAndChartsForm.stats_cmbo.AddItem "Returns"
StatsAndChartsForm.Show
End Sub
---------------------------------------
Sub ShowChartForm()
LoadPicture (Image1.Picture)
ChartForm.Show
End Sub
---------------------------------------
Sub ShowInsertValueOrFunctionForm()
InsertFormulaOrValue.Show
End Sub
---------------------------------------
Sub ShowGridExercisedStats()
Dim T1_rtrn As Single
Application.ScreenUpdating = False
T2_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_2").Value * 100), 4))
T1_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_1").Value * 100), 4))
T3_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_3").Value * 100), 4))
T4_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_4").Value * 100), 4))
T5_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_5").Value * 100), 4))
T6_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_6").Value * 100), 4))
T7_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_7").Value * 100), 4))
T8_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_8").Value * 100), 4))
T9_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_9").Value * 100), 4))
T10_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_10").Value * 100), 4))
T11_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_11").Value * 100), 4))
T12_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_12").Value * 100), 4))
T13_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_13").Value * 100), 4))
T14_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_14").Value * 100), 4))
T15_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_15").Value * 100), 4))
T16_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_16").Value * 100), 4))
T17_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_17").Value * 100), 4))
T18_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_18").Value * 100), 4))
T19_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_19").Value * 100), 4))
T20_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_20").Value * 100), 4))
T21_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_21").Value * 100), 4))
T22_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_22").Value * 100), 4))
T23_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_23").Value * 100), 4))
T24_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_24").Value * 100), 4))
T25_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_25").Value * 100), 4))
T26_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_26").Value * 100), 4))
T27_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_27").Value * 100), 4))
T28_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_28").Value * 100), 4))
T29_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_29").Value * 100), 4))
T30_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_30").Value * 100), 4))
T31_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_31").Value * 100), 4))
T32_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_32").Value * 100), 4))
T33_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_33").Value * 100), 4))
T34_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_34").Value * 100), 4))
T35_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_35").Value * 100), 4))
T36_rtn = " " + Application.WorksheetFunction.Trim(Left((Range("Returns_period_36").Value * 100), 4))
Application.Worksheets("Home").Range("port_val_p00").Select
rtn_cash_p1 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p1").Select
rtn_cash_p2 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p2").Select
rtn_cash_p3 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p3").Select
rtn_cash_p4 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p4").Select
rtn_cash_p5 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p5").Select
rtn_cash_p6 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p6").Select
rtn_cash_p7 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p7").Select
rtn_cash_p8 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p8").Select
rtn_cash_p9 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p9").Select
rtn_cash_p10 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p10").Select
rtn_cash_p11 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p11").Select
rtn_cash_p12 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p12").Select
rtn_cash_p13 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p13").Select
rtn_cash_p14 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p14").Select
rtn_cash_p15 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p15").Select
rtn_cash_p16 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p16").Select
rtn_cash_p17 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p17").Select
rtn_cash_p18 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p18").Select
rtn_cash_p19 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p19").Select
rtn_cash_p20 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p20").Select
rtn_cash_p21 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p21").Select
rtn_cash_p22 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p22").Select
rtn_cash_p23 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p23").Select
rtn_cash_p24 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p24").Select
rtn_cash_p25 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p25").Select
rtn_cash_p26 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p26").Select
rtn_cash_p27 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p27").Select
rtn_cash_p28 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p28").Select
rtn_cash_p29 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p29").Select
rtn_cash_p30 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p30").Select
rtn_cash_p31 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p31").Select
rtn_cash_p32 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p32").Select
rtn_cash_p33 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p33").Select
rtn_cash_p34 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p34").Select
rtn_cash_p35 = ActiveCell.Value
Application.Worksheets("Home").Range("port_val_p35").Select
rtn_cash_p36 = ActiveCell.Value
change_on_1_dollar_ = (rtn_cash_p36 - rtn_cash_p1) / (rtn_cash_p1)
Application.Worksheets("Home").Range("DBC_C_Bnd").Select
initial_call_band_dbc = ActiveCell.Value
Application.Worksheets("Home").Range("EFA_C_Bnd").Select
initial_call_band_efa = ActiveCell.Value
Application.Worksheets("Home").Range("EEM_C_Bnd").Select
initial_call_band_eem = ActiveCell.Value
Application.Worksheets("Home").Range("IWM_C_Bnd").Select
initial_call_band_iwm = ActiveCell.Value
Application.Worksheets("Home").Range("IYR_C_Bnd").Select
initial_call_band_iyr = ActiveCell.Value
Application.Worksheets("Home").Range("MDY_C_Bnd").Select
initial_call_band_mdy = ActiveCell.Value
Application.Worksheets("Home").Range("SPY_C_Bnd").Select
initial_call_band_spy = ActiveCell.Value
Application.Worksheets("Home").Range("DBC_P_Bnd").Select
initial_put_band_dbc = ActiveCell.Value
Application.Worksheets("Home").Range("EFA_P_Bnd").Select
initial_put_band_efa = ActiveCell.Value
Application.Worksheets("Home").Range("EEM_P_Bnd").Select
initial_put_band_eem = ActiveCell.Value
Application.Worksheets("Home").Range("IWM_P_Bnd").Select
initial_put_band_iwm = ActiveCell.Value
Application.Worksheets("Home").Range("IYR_P_Bnd").Select
initial_put_band_iyr = ActiveCell.Value
Application.Worksheets("Home").Range("MDY_P_Bnd").Select
initial_put_band_mdy = ActiveCell.Value
Application.Worksheets("Home").Range("SPY_P_Bnd").Select
initial_put_band_spy = ActiveCell.Value
Application.Worksheets("Home").Range("weight_dbc").Select
weight_dbc_ = ActiveCell.Value
Application.Worksheets("Home").Range("weight_efa").Select
weight_efa_ = ActiveCell.Value
Application.Worksheets("Home").Range("weight_eem").Select
weight_eem_ = ActiveCell.Value
Application.Worksheets("Home").Range("weight_iwm").Select
weight_iwm_ = ActiveCell.Value
Application.Worksheets("Home").Range("weight_iyr").Select
weight_iyr_ = ActiveCell.Value
Application.Worksheets("Home").Range("weight_mdy").Select
weight_mdy_ = ActiveCell.Value
Application.Worksheets("Home").Range("weight_spy").Select
weight_spy_ = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_dbc").Select
interval_1_dbc = ActiveCell.Value
Application.Worksheets("Home").Range("s18").Select
ratebucket = ActiveCell.Value
Application.Worksheets("Home").Range("t18").Select
ratecall = ActiveCell.Value
Application.Worksheets("Home").Range("u18").Select
rateput = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_dbc").Select
interval_1_dbc = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_eem").Select
interval_1_eem = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_efa").Select
interval_1_efa = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_iwm").Select
interval_1_iwm = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_iyr").Select
interval_1_iyr = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_mdy").Select
interval_1_mdy = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_1_spy").Select
interval_1_spy = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_dbc").Select
interval_2_dbc = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_eem").Select
interval_2_eem = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_efa").Select
interval_2_efa = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_iwm").Select
interval_2_iwm = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_iyr").Select
interval_2_iyr = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_mdy").Select
interval_2_mdy = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_2_spy").Select
interval_2_spy = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_dbc").Select
interval_3_dbc = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_eem").Select
interval_3_eem = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_efa").Select
interval_3_efa = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_iwm").Select
interval_3_iwm = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_iyr").Select
interval_3_iyr = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_mdy").Select
interval_3_mdy = ActiveCell.Value
Application.Worksheets("Home").Range("weights_interval_3_spy").Select
interval_3_spy = ActiveCell.Value
Application.Worksheets("Home").Range("interval_1").Select
interval_lbl_1 = ActiveCell.Value
Application.Worksheets("Home").Range("interval_2").Select
interval_lbl_2 = ActiveCell.Value
Application.Worksheets("Home").Range("interval_3").Select
interval_lbl_3 = ActiveCell.Value
With ExercisedStatsForm.T1_rtrn
.Caption = (T1_rtn + "%")
End With
With ExercisedStatsForm.T2_rtn
.Caption = (T2_rtn + "%")
End With
With ExercisedStatsForm.T3_rtn
.Caption = (T3_rtn + "%")
End With
With ExercisedStatsForm.T4_rtn
.Caption = (T4_rtn + "%")
End With
With ExercisedStatsForm.T5_rtn
.Caption = (T5_rtn + "%")
End With
With ExercisedStatsForm.T6_rtn
.Caption = (T6_rtn + "%")
End With
With ExercisedStatsForm.T7_rtn
.Caption = (T7_rtn + "%")
End With
With ExercisedStatsForm.T8_rtn
.Caption = (T8_rtn + "%")
End With
With ExercisedStatsForm.T9_rtn
.Caption = (T9_rtn + "%")
End With
With ExercisedStatsForm.T10_rtn
.Caption = (T10_rtn + "%")
End With
With ExercisedStatsForm.T11_rtn
.Caption = (T11_rtn + "%")
End With
With ExercisedStatsForm.T12_rtn
.Caption = (T12_rtn + "%")
End With
With ExercisedStatsForm.T13_rtn
.Caption = (T13_rtn + "%")
End With
With ExercisedStatsForm.T14_rtn
.Caption = (T14_rtn + "%")
End With
With ExercisedStatsForm.T15_rtn
.Caption = (T15_rtn + "%")
End With
With ExercisedStatsForm.T16_rtn
.Caption = (T16_rtn + "%")
End With
With ExercisedStatsForm.T17_rtn
.Caption = (T17_rtn + "%")
End With
With ExercisedStatsForm.T18_rtn
.Caption = (T18_rtn + "%")
End With
With ExercisedStatsForm.T19_rtn
.Caption = (T19_rtn + "%")
End With
With ExercisedStatsForm.T20_rtn
.Caption = (T20_rtn + "%")
End With
With ExercisedStatsForm.T21_rtn
.Caption = (T21_rtn + "%")
End With
With ExercisedStatsForm.T22_rtn
.Caption = (T22_rtn + "%")
End With
With ExercisedStatsForm.T23_rtn
.Caption = (T23_rtn + "%")
End With
With ExercisedStatsForm.T24_rtn
.Caption = (T24_rtn + "%")
End With
With ExercisedStatsForm.T25_rtn
.Caption = (T25_rtn + "%")
End With
With ExercisedStatsForm.T26_rtn
.Caption = (T26_rtn + "%")
End With
With ExercisedStatsForm.T27_rtn
.Caption = (T27_rtn + "%")
End With
With ExercisedStatsForm.T28_rtn
.Caption = (T28_rtn + "%")
End With
With ExercisedStatsForm.T29_rtn
.Caption = (T29_rtn + "%")
End With
With ExercisedStatsForm.T30_rtn
.Caption = (T30_rtn + "%")
End With
With ExercisedStatsForm.T31_rtn
.Caption = (T31_rtn + "%")
End With
With ExercisedStatsForm.T32_rtn
.Caption = (T32_rtn + "%")
End With
With ExercisedStatsForm.T33_rtn
.Caption = (T33_rtn + "%")
End With
With ExercisedStatsForm.T34_rtn
.Caption = (T34_rtn + "%")
End With
With ExercisedStatsForm.T35_rtn
.Caption = (T35_rtn + "%")
End With
With ExercisedStatsForm.T36_rtn
.Caption = (T36_rtn + "%")
End With
With ExercisedStatsForm.rtn_cash_p1
.Caption = Format(rtn_cash_p1, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p2
.Caption = Format(rtn_cash_p2, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p3
.Caption = Format(rtn_cash_p3, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p4
.Caption = Format(rtn_cash_p4, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p5
.Caption = Format(rtn_cash_p5, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p6
.Caption = Format(rtn_cash_p6, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p7
.Caption = Format(rtn_cash_p7, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p8
.Caption = Format(rtn_cash_p8, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p9
.Caption = Format(rtn_cash_p9, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p10
.Caption = Format(rtn_cash_p10, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p11
.Caption = Format(rtn_cash_p11, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p12
.Caption = Format(rtn_cash_p12, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p13
.Caption = Format(rtn_cash_p13, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p14
.Caption = Format(rtn_cash_p14, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p15
.Caption = Format(rtn_cash_p15, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p16
.Caption = Format(rtn_cash_p16, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p17
.Caption = Format(rtn_cash_p17, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p18
.Caption = Format(rtn_cash_p18, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p19
.Caption = Format(rtn_cash_p19, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p20
.Caption = Format(rtn_cash_p20, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p21
.Caption = Format(rtn_cash_p21, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p22
.Caption = Format(rtn_cash_p22, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p23
.Caption = Format(rtn_cash_p23, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p24
.Caption = Format(rtn_cash_p24, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p25
.Caption = Format(rtn_cash_p25, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p26
.Caption = Format(rtn_cash_p26, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p27
.Caption = Format(rtn_cash_p27, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p28
.Caption = Format(rtn_cash_p28, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p29
.Caption = Format(rtn_cash_p29, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p30
.Caption = Format(rtn_cash_p30, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p31
.Caption = Format(rtn_cash_p31, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p32
.Caption = Format(rtn_cash_p32, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p33
.Caption = Format(rtn_cash_p33, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p34
.Caption = Format(rtn_cash_p34, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p35
.Caption = Format(rtn_cash_p35, "$#,##0.00")
End With
With ExercisedStatsForm.rtn_cash_p36
.Caption = Format(rtn_cash_p36, "$#,##0.00")
End With
With ExercisedStatsForm.initial_call_band_dbc
.Caption = initial_call_band_dbc
End With
With ExercisedStatsForm.initial_call_band_efa
.Caption = initial_call_band_efa
End With
With ExercisedStatsForm.initial_call_band_eem
.Caption = initial_call_band_eem
End With
With ExercisedStatsForm.initial_call_band_iwm
.Caption = initial_call_band_iwm
End With
With ExercisedStatsForm.initial_call_band_iyr
.Caption = initial_call_band_iyr
End With
With ExercisedStatsForm.initial_call_band_mdy
.Caption = initial_call_band_mdy
End With
With ExercisedStatsForm.initial_call_band_spy
.Caption = initial_call_band_spy
End With
With ExercisedStatsForm.initial_put_band_dbc
.Caption = initial_put_band_dbc
End With
With ExercisedStatsForm.initial_put_band_efa
.Caption = initial_put_band_efa
End With
With ExercisedStatsForm.initial_put_band_eem
.Caption = initial_put_band_eem
End With
With ExercisedStatsForm.initial_put_band_iwm
.Caption = initial_put_band_iwm
End With
With ExercisedStatsForm.initial_put_band_iyr
.Caption = initial_put_band_iyr
End With
With ExercisedStatsForm.initial_put_band_mdy
.Caption = initial_put_band_mdy
End With
With ExercisedStatsForm.initial_put_band_spy
.Caption = initial_put_band_spy
End With
With ExercisedStatsForm.weight_dbc_
.Caption = weight_dbc_
End With
With ExercisedStatsForm.weight_efa_
.Caption = weight_efa_
End With
With ExercisedStatsForm.weight_eem_
.Caption = weight_eem_
End With
With ExercisedStatsForm.weight_iwm_
.Caption = weight_iwm_
End With
With ExercisedStatsForm.weight_iyr_
.Caption = weight_iyr_
End With
With ExercisedStatsForm.weight_mdy_
.Caption = weight_mdy_
End With
With ExercisedStatsForm.weight_spy_
.Caption = weight_spy_
End With
With ExercisedStatsForm.interval_1_dbc
.Caption = interval_1_dbc
End With
With ExercisedStatsForm.interval_1_efa
.Caption = interval_1_efa
End With
With ExercisedStatsForm.interval_1_eem
.Caption = interval_1_eem
End With
With ExercisedStatsForm.interval_1_iwm
.Caption = interval_1_iwm
End With
With ExercisedStatsForm.interval_1_iyr
.Caption = interval_1_iyr
End With
With ExercisedStatsForm.interval_1_mdy
.Caption = interval_1_mdy
End With
With ExercisedStatsForm.interval_1_spy
.Caption = interval_1_spy
End With
With ExercisedStatsForm.interval_2_dbc
.Caption = interval_2_dbc
End With
With ExercisedStatsForm.interval_2_efa
.Caption = interval_2_efa
End With
With ExercisedStatsForm.interval_2_eem
.Caption = interval_2_eem
End With
With ExercisedStatsForm.interval_2_iwm
.Caption = interval_2_iwm
End With
With ExercisedStatsForm.interval_2_iyr
.Caption = interval_2_iyr
End With
With ExercisedStatsForm.interval_2_mdy
.Caption = interval_2_mdy
End With
With ExercisedStatsForm.interval_2_spy
.Caption = interval_2_spy
End With
With ExercisedStatsForm.interval_3_dbc
.Caption = interval_3_dbc
End With
With ExercisedStatsForm.interval_3_efa
.Caption = interval_3_efa
End With
With ExercisedStatsForm.interval_3_eem
.Caption = interval_3_eem
End With
With ExercisedStatsForm.interval_3_iwm
.Caption = interval_3_iwm
End With
With ExercisedStatsForm.interval_3_iyr
.Caption = interval_3_iyr
End With
With ExercisedStatsForm.interval_3_mdy
.Caption = interval_3_mdy
End With
With ExercisedStatsForm.interval_3_spy
.Caption = interval_3_spy
End With
With ExercisedStatsForm.ratebucket
.Caption = ratebucket
End With
With ExercisedStatsForm.ratecall
.Caption = ratecall
End With
With ExercisedStatsForm.rateput
.Caption = rateput
End With
With ExercisedStatsForm.change_on_1_dollar_
.Caption = Format(change_on_1_dollar_, "Percent")
End With
With ExercisedStatsForm.interval_lbl_1
.Caption = (interval_lbl_1)
End With
With ExercisedStatsForm.interval_lbl_2
.Caption = (interval_lbl_2)
End With
With ExercisedStatsForm.interval_lbl_3
.Caption = (interval_lbl_3)
End With
Worksheets("Home").Range("b1").Select
Application.ScreenUpdating = True
ExercisedStatsForm.Show
End Sub
---------------------------------------
Sub ShowUserForm()
OptionsQuantityForm.Show
End Sub
---------------------------------------
Dim varArray
Sub filterCapture()
'
' filterCapture Macro
'
Dim t As Date
Dim myRange As Range
t = Now()
Application.ScreenUpdating = False
'
Sheets("EEM_CALLS").Select
ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=2, Criteria1:= _
"39101.00"
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollRow = 550
ActiveWindow.SmallScroll Down:=-296
ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=3, Criteria1:= _
"39085.00"
ActiveWindow.SmallScroll Down:=-232
Application.ScreenUpdating = True
Set myRange = Columns(4)
MsgBox Format(Now() - t, "hh:mm:ss")
End Sub
Sub SaveUsedRange()
varArray = ActiveSheet.Column(7)
End Sub
---------------------------------------
Dim varArray
Sub filterCapture()
'
' filterCapture Macro
'
Dim t As Date
Dim myRange As Range
t = Now()
Application.ScreenUpdating = False
'
Sheets("EEM_CALLS").Select
ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=2, Criteria1:= _
"39101.00"
ActiveWindow.SmallScroll Down:=24
ActiveWindow.ScrollRow = 550
ActiveWindow.SmallScroll Down:=-296
ActiveSheet.ListObjects("Table8").Range.AutoFilter Field:=3, Criteria1:= _
"39085.00"
ActiveWindow.SmallScroll Down:=-232
Application.ScreenUpdating = True
Set myRange = Columns(4)
MsgBox Format(Now() - t, "hh:mm:ss")
End Sub
Sub SaveUsedRange()
varArray = ActiveSheet.Column(7)
End Sub
---------------------------------------
Sub ZeroTable()
'
' Macro1 Macro
Range("AN4").Select
Selection.ClearContents
Range("AO4").Select
Selection.ClearContents
Range("AP4").Select
Selection.ClearContents
Range("AQ4").Select
Selection.ClearContents
Range("AR4").Select
Selection.ClearContents
Range("AS4").Select
Selection.ClearContents
Range("AT4").Select
Selection.ClearContents
Range("AU4").Select
Selection.ClearContents
Range("AV4").Select
Selection.ClearContents
Range("AW4").Select
Selection.ClearContents
Range("AX4").Select
Selection.ClearContents
Range("AY4").Select
Selection.ClearContents
Range("AZ4").Select
Selection.ClearContents
Range("BA4").Select
Selection.ClearContents
Range("BB4").Select
Selection.ClearContents
Range("BC4").Select
Selection.ClearContents
End Sub
---------------------------------------
---------------------------------------
---------------------------------------
Subscribe to:
Posts (Atom)