13:05 ET Dow -154.48 at 10309.92, Nasdaq -37.61 at 2138.44, S&P -19.130 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 13:05 ET Dow -154.48 at 10309.92, Nasdaq -37.61 at 2138.44, S&P -19.1313:05 ET Dow -154.48 at 10309.92, Nasdaq -37.61 at 2138.44, S&P -19.13

Thursday, March 18, 2010

Quantum Support - Bookmarks Concerning Everything You'd Gain Exposure to Having Worked in a Trading Capacity

Quantum Support - Financial Services, Information Technology & Business Development

Bookmarks

Saturday, March 13, 2010

Very Simple So One Can Focus On Only the Concept of Relative References - Excel VBA

Sub HideTheRows()
'
' HideTheRows Macro
'

'
ActiveCell.Offset(0, 0).Rows("1:9").EntireRow.Select
Selection.EntireRow.Hidden = True
End Sub

Friday, March 12, 2010

Excel Macro VBA - InputBox to Retrieve Range from User & Loop Down Column - Stopping When Cell Values Increase from Start Cell

Sub Looper()
Dim cellAddrss, cellValu, cell2Value As Variant
Dim Rng As Range

Set Rng = Application.InputBox(prompt:="Select the cell/range...", _
Title:="SWITCH CELL SELECTION", Default:=Selection.Address, Type:=8)

Rng.Select
J = 1
Do While Sheet5.Cells(J, 1) <> ""
ActiveCell.Offset(1, 0).Select
cellAddrss = ActiveCell.Address

If ActiveCell.Value = cellValu + 1 Then GoTo Out
cellValu = ActiveCell.Value
J = J + 1
Loop

Out:
ActiveCell.Offset(-1, 0).Select
End Sub

Wednesday, March 10, 2010

Adobe Flash - ActionScript Code for Animated Menu Bar

package dog.MainTimeline
{
import __AS3__.vec.*;
import fl.motion.*;
import flash.display.*;
import flash.events.*;
import flash.net.*;
import flash.utils.*;

dynamic public class as extends MovieClip
{
public var __motion_master_mcExport3D1:MotionBase;
public var timer:Timer;
public var ____motion_master_mcExport3D1_mat3DVec_0_:Vector.;
public var master_mc:MovieClip;
public var __animFactory_master_mcExport3D1:AnimatorFactory3D;

public function as()
{
addFrameScript(0, this.frame1);
addEventListener(Event.ADDED_TO_STAGE, this.__setPerspectiveProjection_);
if (this.__motion_master_mcExport3D1 == null)
{
this.__motion_master_mcExport3D1 = new MotionBase();
this.__motion_master_mcExport3D1.duration = 1;
this.__motion_master_mcExport3D1.overrideTargetTransform();
this.__motion_master_mcExport3D1.addPropertyArray("blendMode", ["normal"]);
this.____motion_master_mcExport3D1_mat3DVec_0_ = new Vector.(16);
this.____motion_master_mcExport3D1_mat3DVec_0_[0] = 0.998611;
this.____motion_master_mcExport3D1_mat3DVec_0_[1] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[2] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[3] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[4] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[5] = 1;
this.____motion_master_mcExport3D1_mat3DVec_0_[6] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[7] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[8] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[9] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[10] = 1;
this.____motion_master_mcExport3D1_mat3DVec_0_[11] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[12] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[13] = 10;
this.____motion_master_mcExport3D1_mat3DVec_0_[14] = 0;
this.____motion_master_mcExport3D1_mat3DVec_0_[15] = 1;
this.__motion_master_mcExport3D1.addPropertyArray("matrix3D", new Array(new Matrix3D(this.____motion_master_mcExport3D1_mat3DVec_0_)));
this.__animFactory_master_mcExport3D1 = new AnimatorFactory3D(this.__motion_master_mcExport3D1);
this.__animFactory_master_mcExport3D1.sceneName = "Scene 1";
this.__animFactory_master_mcExport3D1.addTargetInfo(this, "master_mc", 0, true, 0, true, null);
}
return;
}// end function

public function mouseF(event:MouseEvent) : void
{
var updateF:*;
var glowStickF:*;
var ecF:*;
var homeF:*;
var articlesF:*;
var financeF:*;
var busF:*;
var techF:*;
var exampleF:*;
var blogF:*;
var e:* = event;
updateF = function (event:MouseEvent) : void
{
event.updateAfterEvent();
return;
}// end function
;
glowStickF = function (event:MouseEvent) : void
{
master_mc.glow_mc.x = event.target.x;
return;
}// end function
;
ecF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.quantumsupport.biz/Ethan_Castanon.aspx");
navigateToURL(_loc_2, "_self");
return;
}// end function
;
homeF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.quantumsupport.biz/index.aspx");
navigateToURL(_loc_2, "_self");
return;
}// end function
;
articlesF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.quantumsupport.biz/Information.aspx");
navigateToURL(_loc_2, "_blank");
return;
}// end function
;
financeF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.quantumsupport.biz/Financial_Services.aspx");
navigateToURL(_loc_2, "_self");
return;
}// end function
;
busF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.quantumsupport.biz/Business_Development.aspx");
navigateToURL(_loc_2, "_self");
return;
}// end function
;
techF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.quantumsupport.biz/Information_Technology.aspx");
navigateToURL(_loc_2, "_self");
return;
}// end function
;
exampleF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://www.drcastanon.com");
navigateToURL(_loc_2, "_blank");
return;
}// end function
;
blogF = function (event:MouseEvent) : void
{
var _loc_2:* = new URLRequest("http://quantumsupport.blogspot.com");
navigateToURL(_loc_2, "_blank");
return;
}// end function
;
this.master_mc.glow_mc.x = stage.mouseX - 56;
addEventListener(MouseEvent.MOUSE_MOVE, updateF);
if (mouseX <= 56) { this.master_mc.glow_mc.x = 0; } else if (mouseX >= 787.5)
{
this.master_mc.glow_mc.x = 787.5;
}
this.master_mc.addEventListener(MouseEvent.MOUSE_DOWN, glowStickF);
this.master_mc.home_btn.addEventListener(MouseEvent.CLICK, homeF);
this.master_mc.finance_btn.addEventListener(MouseEvent.CLICK, financeF);
this.master_mc.ec_btn.addEventListener(MouseEvent.CLICK, ecF);
this.master_mc.technology_btn.addEventListener(MouseEvent.CLICK, techF);
this.master_mc.business_btn.addEventListener(MouseEvent.CLICK, busF);
this.master_mc.example_btn.addEventListener(MouseEvent.CLICK, exampleF);
this.master_mc.programming_btn.addEventListener(MouseEvent.CLICK, blogF);
this.master_mc.articles_btn.addEventListener(MouseEvent.CLICK, articlesF);
return;
}// end function

function frame1()
{
Stage.align = "TL";
Stage.ShowMenu = false;
this.timer = new Timer(25);
this.timer.addEventListener(TimerEvent.TIMER, this.followF);
this.timer.start();
return;
}// end function

public function followF(event:Event) : void
{
stage.addEventListener(MouseEvent.MOUSE_MOVE, this.mouseF);
return;
}// end function

public function __setPerspectiveProjection_(event:Event) : void
{
root.transform.perspectiveProjection.fieldOfView = 1;
root.transform.perspectiveProjection.projectionCenter = new Point(0, 0);
return;
}// end function

}
}

Nice Simple VBA Loop to Use in Microsoft Excel to Delete Empty Cells and Shift the Cells Beneath Upward

Sub loopDelete()

Dim upperLim As Integer

Dim count As Integer

upperLim = Application.InputBox("How many loops?")

count = 1

For count = 1 To upperLim Step 1

If ActiveCell.Value = "" Then

Selection.Delete Shift:=xlUp

ElseIf ActiveCell.Value <> "" Then

ActiveCell.Offset(1, 0).Select

End If

Next count

End Sub

Tuesday, March 9, 2010

Transcript of Testimony of James H. Simons - Before the House Committee on Oversight and Government Reform - Nov. 13, 2008

Testimony of James H. Simons
Before the House Committee on Oversight and Government Reform
November 13,2008
Good morning Chairman Waxman, Ranking Member Davis, and members of the Committee.
My name is James Simons, and I am the Chairman and CEO of Renaissance Technologies LLC.
Thank you for the invitation to appear before you today.
I appreciate and welcome your interest in understanding the underlying causes of the recent
financial crisis. This is indeed a serious and disturbing time for the markets, the broader
economy, and our nation as a whole. Individual Americans are hurting and are fearful for their
financial futures, and businesses of all sizes are facing problems. Hedge funds are having
trouble along with everybody else. Some smaller funds have failed, and some others, both big
and small, are struggling to stay afloat. Federal agencies are trying to do their best, but this is a
very difficult situation. I am pleased to be here to answer your questions about these issues, and
I stand ready to work with you and your staffs as the situation unfolds in the months ahead.
Before turning to the specific questions raised by your letter inviting me to testiff, I would like to
provide you with my perspective on how the crisis came about.
The Roots of the Crisis. The crisis has many inter-related causes, and blame can be laid at the
feet of many different parties. Encouraged by the willingness of institutions in the secondary
market to buy their wares, banks and mortgage companies were all too happy to originate
mortgages of lesser quality than previously had been thought appropriate, Having been sold to
the secondary buyers, these mortgages \¡/ere bundled up into packages, then sliced and diced in a
variety of imaginative ways by investment banks, which created and issued securities based on
these bundles, The rating agencies, paid by the issuers, rated these securities, which were then
sold to final buyers or, in some cases, held on the balance sheets of the banks and brokerages.
As time went on, the quality of the newly created mortgages deteriorated to remarkably low
levels, and the rating agencies became increasingly fanciful in their ratings. A1l this took place at
a time when the investment banks and brokerages had moved to a regime of "self-regulation," a
consequence of which was exceptionally leveraged balance sheets. It also took place at a time
when the (unregulated) market for cÍedit default swaps (CDS) expanded rapidly, enabling
holders of the improperly rated securities (and of the debt of others holding them) to purchase
further comfort. At the same time, a huge global pool of investment money, coupled with great
demand for more and more fixed income investment opportunities, pushed everybody in the
chain to create more and more mortgage-backed securities to sell, even if the underlying
mortgages were of questionable quality. All of this worked splendidly as long as home prices
continued to rise rapidly, but when they began to stall and reverse, the party was over. 'We
have
all seen the result.
There is much blame to be shared: the SEC and perhaps the Federal Reserve for taking such a
hands-off position on the leverage posture of the investment banks and the uncontrolled nature of
the CDS market; the players all along the chain of creation and distribution of the paper, each of
whom should have blown a whistle rather than passing the problem on to the next guy; and
finally, and in my opinion the most culpable, the rating agencies, which failed in their duty and
allowed sows' ears to be sold as silk purses.
a -LYour
letter asked me to address several issues specifically relating to the hedge fund industry,
and I will do that in a moment. First, let me tell you a little about myself and my company, a
somewhat atypical investment management firm, Renaissance Technologies LLC
("Renaissance").
Background on Myself and my Company. Renaissance's investment approach is driven by
my background in mathematics. Before I ever entered the business world, I was a
mathematician. I have a PhD from Berkeley, won the 1975 VeblenPnze of the American
Mathematics Society (given every four years for work in geometry and topology), and taught
mathematics at the Massachusetts Institute of Technology and Harvard University before
becoming the chairman of the Mathematics Department at the State University of New York at
Stony Brook. Along the way, I spent four years as a code cracker for the National Security
Agency.
Renaissance, an SEC-registered Investment Adviser since 1998, manages what are termed
quantitative funds - funds whose trading is determined by mathematical formulas designed to
predict market behavior, Individual trades are generated by computers, based on work
continually developed by our researchers. Naturally, human beings carefully monitor the trade
execution process, making sure that all parts of the system are behaving properly. We operate in
only highly liquid, publicly listed securities, such as stocks, bonds, currencies, and commodities,
and do this on exchanges throughout the world. This means, for example, that we do not trade in
credit default swaps or collateralized debt obligations, neither.of which satisfies the above
criteria. In the stock traìing of our Medallion Fund, we hold balanced portfolios in each country,
i.e.,portfolios very close to being equally long and short. Our trading models tend to buy stocks
that are recently out of favor and sell those recently in favor. Thus, to some extent, our actions
-3-
have the effect of dampening extreme moves in either direction, and, as a result, reducing
volatility in those stocks. An example of this contrarian tendency is the fact that during the sixweek
period ending this September, Medallion held long positions in many of the most troubled
of the financial stocks, including Lehman Brothers and Washington Mutual. We of course lost
money on those trades!
Renaissance manages three fund families: Medallion, RIEF and RIFF. The first is our flagship
fund, which we have operated for twenty years with great success. In the early part of this
decade, we determined that the fund had grown too large, and we began to return capital to
investors who were not employees of the firm. That process was completed in 2005, and since
then the fund has been almost entirely owned by the people who operate it - Renaissance
employees. 'We
charge ourselves fees because fund investment is not allocated in the same
proportion as is employee compensation. For example, my share of Medallion is far greater than
is my share of employee compensation. Thus, the fee mechanism moves income away flom the
largest owners of the firm to the rest of the employees. Nearly all of the income of the firm and
its employees is based on the performance of Medallion, a fund whose investors are almost
exclusively its managers.
In recent years, Renaissance started two new funds aimed at outside investors: the Renaissance
Institutional Equities Fund (RIEF) and the Renaissance Institutional Futures Fund (RIFF). The
first is net long one dollar of U.S.-traded stocks for each dollar of equity in the fund and is
designed to be a lower-volatility and higher-return substitute for an index fund, The second is a
slow trading fund, investing in commodities, currencies, bonds, and stock indices, and is
designed to deliver an attractive return at relatively low volatility. RIEF has done a fine job
during its three years plus of existence. RIFF, started 13 months ago, did well during its first
4-
nine months but has been challenged by the turbulence of this fall, during which its returns were
disappointing. Both of these frrnds, designed for institutional investors, are lightly leveraged and
charge fees less than half of those charged by mainstrearn hedge funds. These institutional funds
are a new business for Renaissance, and while their financial contribution to the firm has been
exceptionally modest, we have high hopes for the long term.
I will now tum to the questions the Committee raised.
Do Hedge Funds Cause Systemic Risk? As I have already mentioned, the behavior of
institutions in several financial sectors contributed to the recent crisis, but, in my view, the hedge
fund sector was not among them. While there are exceptions to any rule, I believe that hedge
funds by and large have made an important contribution to the financial industry, and, as
indicated in what follows, are unlikely as a single class to be a substantial contributor to systemic
risk. Generally speaking, hedge funds have provided to the markets an increased level of
liquidity, reduced volatility, improved price discovery, and enhanced the returns of many large
endowments and pension funds. Moreover, by pursuing a rather diverse set of strategies such as
long/short equities trading, convertible bond arbitrage, merger arbitrage, statistical arbitrage,
global macro, distressed debt and workout activities, and old-fashioned deep value investing,
hedge funds are sufficiently spread out that, as a class by itself, they do not seem to present a
source of systemic risk. I say this with the knowledge that hedge funds indeed employ leverage,
and there are doubtless individual examples where this is overdone. Nonetheless, the leverage
posture of each participant in the industry is monitored carefully by its lenders and is controlled
far more stringently than is the ieverage posture of many participants in the investment banking
industry. The latter is subject to no such monitoring and in many cases achieved leverage levels
far in excess of those of hedge funds. The results of such excess are now well known.
-5-
Do Hedge Funds Require Further Regulation? Let me first note that hedge funds are
presently regulated in a variety of ways. For example, the Investment Advisers Act of 1940
imposes anti-fraud requirements on all hedge fund managers. Moreover, they are subject to a
variety of securities position reporting requirements under the Exchange Act. Unlike other
financial institutions that handle investments by the general public, hedge funds (by law) are
accessible only to large and sophisticated investors. Therefore, new regulations focusing on
customer protection, such as apply to mutual funds and brokerage firms, are probably not
necessary or even desirable. On the other hand, I do think that regulation focused on ensuring
market integrity and market stability would be useful and welcome. I will briefly address this
subject below in the section on transparency.
Should Hedge Funds be Registered with the SEC? There has been a gteat deal of discussion
over the last few years about whether hedge fund managers should be required to register with
the SEC as investment advisers. This debate has been a moot point for us, because we
voluntarily registered in 1998. Our business model is relatively simple, and we have not
considered SEC registration to be an undue burden, but other, more tlpical, hedge fund
managers likely have been deterred from such registration because the regulatory authorities
have not always administered the Investment Advisers Act in away that takes account of many
hedge fund managers' business models. If the Committee pursues a registration requirement for
hedge fund managers, I would encourage you to see to it that the design and implementation of
the requirement fit the way our particular industry works'
Should Hedge Funds be more Transparent? Proposals for greater transparency into hedge
funds' investments also have received a great deal of attention lately. We agree that
transparency to appropriate regulators of all market participants can be helpful in monitoring
6-
systemic risk and manipulative practices, In spite of my belief that hedge funds by themselves
are unlikely to be a source of systemic risk, it could be the case that aggregate positions of hedge
funds, together with those of other industry participants, could sometimes present that
possibility. A proposal the Committee may wish to consider is to require hedge funds' positions
to be reported to an appropriate regulator and then to allow the Federal Reserve Bank of New
York, or some similar such authority, to have access to aggregate position information and to
recommend appropriate action should the situation warrant it. I stress, however, that information
so provided by individual funds or institutions should never be released to the general public in
disaggregated form. Such disclosure can serve no useful pu{pose and indeed can cause harm to
small investors, who, unfamiliar with the strategies leading to certain individual positions, may
act upon an eÍoneous understanding of the data.
Does the Compensation Structure of Hedge Funds Lead to Excessive Risk Taking? While
this question does not really apply to us, as almost all of our income is based on profits on our
own capital, generally speaking I would say the answer is no. In the first place, contrary to what
one might think, hedge funds are not a particularly volatile asset class. For example, over the
past ten years the annual volatility of the capital-weighted HFI, the standard hedge fund index,
wasT.2Yo,whereas that of the S&P index was 15.4o/o. From these statistics, one can see that, on
the whole, hedge fund managers turn out to be relatively cautious. Yes, they receive a
performance allocation of 20o/o or 25Yo of profits each year, but if the year.is a loser, those losses
have to be earned back before there are any such allocations in future years. Since most
managers wish to remain in business for a long time, they are unlikely to run the risk of a large
loss (which would lead to massive redemptions and the end of the fund) in the hopes of having
one great year. Moreover, it is typically the case that amanager's largest investment is in his
-7 -
own fund. That is certainly the situation at Renaissance and at most other funds with which I am
familiar.
Is Special Tax Treatment for Hedge Fund Managers'Warranted? With the exception of
offshore deferred compensation, a practice recently prohibited and one in which we never
participated, I know of no speci altaxtreatment for hedge fund managers. It is true that much of
their compensation is via profit allocation from their funds, and this is taxed in the same manner
as profits earned by the fund's investors, but that arrangement is standard in all partnerships,
including, for example, partnerships engaged in manufacturing, services, real estate, and natural
resources businesses. As to whether such income to managers ought to be treated in that manner,
I have no opinion except to observe that partnership taxation has always worked that way. Of
course, if it is good public policy to alter that treatment, it should apply across the board to all
types of partnerships, not simply to hedge funds.
Before concluding, I would like to take this opportunity to reflect on how we may best get out of
this hole, and to make a specific proposal, the implementation of which may prevent us from
ever getting back in.
I believe the most important thing we can do in the near term is to keep as many people as
possible living in the homes they now occupy, even if their mortgages are in default and they
have negative equity in their property. There have been a number of plans put forward to
achieve this end, and I will not opine on which is best, but I will opine on the great importance of
that result. Not only would it provide an important measure of stability to millions of families
who already will be coping with an economy niarked by growing unemploynent and other
destabilizing factors, but it will maintain the values of their homes at a far better level than would
-8-
be the case in foreclosure, thus mitigating the impairment to the trillions of dollars of securities
collateralized by mortgages on these homes. As for the longer'term, I propose the following.
A New Rating Organization. Historically, the bond rating agencies worked for the bond
buyers, being paid through subscriptions to the agencies' publications. This model changed in
the 1970s to one in which the agencies were paid by the bonds' issuers. In spite of the obvious
conflict of interest, the new model worked reasonably well for conventional bonds subject to
conventional financial analysis. The situation changed considerably, however, with the advent
of fi nancially engineered products.
I very much believe in the value of these products, but it is crucial that organizations rating them
are appropriately staffed with personnel well trained in quantitative methods, and, even more
importantly, that the organizations owe their allegiance to the buyers, not the issuers.
I therefore would encourage the major organízations who are the traditional holders of these
bonds, such as CaIPERS, TIAA-CREF and PIMCO, to band together to sponsor a new, not-forprofit
rating organiz,ation, focusing on derivative securities. Representatives of these
organizations could serye on the board of the new organization. Another option might be for
Congress to charter such an organization, in which case representatives of the private entities
might be joined on the board by specified offìcials from the Federal Reserve or other appropriate
goverïrment agencies, Revenues for the new organizationcould come from fees, paid by the
buyer, whenever a transaction took place in a bond rated by the new organization. I believe that
these fees would be miniscule relative to the value of the bond, and every buyer very likely
would insist that merchandise being purchased bear a rating from the new organizalion.
-9
As a result, these complex instruments would be subject to proper analysis and rating, the
interests of buyers and raters once again would be aligned, and the probability of reoeeurrence of
a problem anywhere near the extent of that which we are now facing would be dramatically
reduced.
Again, I appreciate the opportunity to testiffbefore the Committee, and I hopE my testimony has
been helpful.
-10-

Sunday, March 7, 2010

This is confidential - But, My Writing is so Sloppy that it is Illegible

Saturday, March 6, 2010

Sub CycleThrough()
Dim Counter As Integer
Dim Origin As String
Dim BigNum, colNum, BigReduction As Integer
Dim rng As Range
step = InputBox("What is your vertical step?", DefaultValue, 100, 100)
BigNum = InputBox("How many loops?,How Many Times?", DefaultValue = 100, 100, 100)
BigReduction = BigNum
Set rng = Application.InputBox(prompt:="What is your range?", Type:=8)
If rng Is Nothing Then
MsgBox "Operation Cancelled"
Else
rng.Select
End If
GoTo move

what:

Exit Sub
move:
BigReduction = BigNum
For Counter = 1 To BigReduction
BigNum = BigNum + step
Selection.Copy
ActiveCell.Offset(1 + step, 0).Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

If MsgBox("Stop Macro?", vbYesNo) = vbYes Then GoTo what

Next Counter

End Sub

Thursday, February 25, 2010

Adobe Flash - ActionScript 3.0 for a Flash Menu Bar with Button and Mouse Events

var timer:Timer = new Timer(25);
timer.addEventListener(TimerEvent.TIMER, followF);
timer.start();

function followF(e:Event):void{
   stage.addEventListener(MouseEvent.MOUSE_MOVE, mouseF);
}
function mouseF(e:MouseEvent):void{
           master_mc.glow_mc.x = stage.mouseX - 56;
           addEventListener(MouseEvent.MOUSE_MOVE, updateF);
           if (mouseX <= 56)
           {
               master_mc.glow_mc.x = 0;
            }
            else if (mouseX >= 787.5)
            {
            master_mc.glow_mc.x = 787.5;
            }


function updateF(e:MouseEvent):void{
            e.updateAfterEvent();
}
//-----------------------Button Code
master_mc.addEventListener(MouseEvent.MOUSE_DOWN, glowStickF);
function glowStickF(e:MouseEvent):void{
master_mc.glow_mc.x = e.target.x;
}
master_mc.home_btn.addEventListener(MouseEvent.CLICK, homeF);
master_mc.finance_btn.addEventListener(MouseEvent.CLICK, financeF);
master_mc.ec_btn.addEventListener(MouseEvent.CLICK, ecF);
master_mc.technology_btn.addEventListener(MouseEvent.CLICK, techF);
master_mc.business_btn.addEventListener(MouseEvent.CLICK, busF);
master_mc.example_btn.addEventListener(MouseEvent.CLICK, exampleF);
master_mc.programming_btn.addEventListener(MouseEvent.CLICK, blog);
master_mc.articles_btn.addEventListener(MouseEvent.CLICK, articlesF);

function ecF(e:MouseEvent):void
{
var ec:URLRequest = new URLRequest("http://www.quantumsupport.biz/Ethan_Castanon.aspx");
navigateToURL(ec, "_self");
}
function homeF(e:MouseEvent):void
{
var home:URLRequest= new URLRequest("http://www.quantumsupport.biz/index.aspx");
navigateToURL(home, "_self");
}
function articlesF(e:MouseEvent):void
{
var links_and_code:URLRequest=new URLRequest("http://www.quantumsupport.biz/links_and_code.html");
navigateToURL(links_and_code, "_blank");
}
function financeF(e:MouseEvent):void
{
var finance:URLRequest=new URLRequest("http://www.quantumsupport.biz/Financial_Services.aspx");
navigateToURL(finance, "_self");
}
function busF(e:MouseEvent):void
{
var business:URLRequest = new URLRequest("http://www.quantumsupport.biz/Business_Development.aspx");
navigateToURL(business, "_self");
}
function techF(e:MouseEvent):void
{
var technology:URLRequest= new URLRequest("http://www.quantumsupport.biz/Information_Technology.aspx");
navigateToURL(technology, "_self");
}
function exampleF(e:MouseEvent):void
{
var dadsiteexample:URLRequest= new URLRequest("http://www.drcastanon.com");
navigateToURL(dadsiteexample, "_blank");
}
function blog(e:MouseEvent):void
{
var bloglink:URLRequest = new URLRequest("http://quantumsupport.blogspot.com");
navigatetonewURL(bloglink,"_blank");
}
}

Wednesday, February 24, 2010

.

Tuesday, February 23, 2010

Properly Using a Sub Procedure in Microsoft Office Excel - Visual Basic for Applications

Option Explicit
Sub callMacros()

MacroInteger 7

MacroString "a String"

MacroIntegerString 4, "some string"

End Sub

Sub MacroInteger(I As Integer)

MsgBox "Integer i=" & I

End Sub

Sub MacroString(S As String)

MsgBox "String value=" & S

End Sub

Sub MacroIntegerString(I As Integer, S As String)

MsgBox "I=" & I & ", S=" & S

End Sub

VBA - Loop Downward Sequentially by 13 Rows and Enter a Formula that Changes Sequentially and Format it by Subscripting Some Characters

Sub CycleThrough()
Dim Counter As Integer
Dim Origin As String
Dim BigNum, colNum, BigReduction As Integer
Dim rng As Range
Dim ii As Integer
Dim e, output As String
e = "T"
On Error GoTo what
step = InputBox("What is your vertical step?", DefaultValue, 100, 100)
BigNum = InputBox("How many loops?,How Many Times?", DefaultValue = 100, 100, 100)
BigReduction = BigNum
Set rng = Application.InputBox(prompt:="What is your range?", Type:=8)
If rng Is Nothing Then
MsgBox "Operation Cancelled"
Else
rng.Select
End If
GoTo move

what:

Exit Sub
move:
ii = 0
BigReduction = BigNum
For Counter = 1 To BigReduction
BigNum = BigNum + step
ii = ii + 1
output = e & ii

ActiveCell.Value = output
With ActiveCell.Characters(Start:=2, Length:=2).font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 22
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
ActiveCell.Offset(step, 0).Range("a1").Select

If MsgBox("Stop Macro?", vbYesNo) = vbYes Then GoTo what

Next Counter

End Sub

Create a Subscript by Macro

Sub Macro12()
'
' Macro12 Macro
'

'
Range("A204").Select
ActiveCell.FormulaR1C1 = "T14"
With ActiveCell.Characters(Start:=1, Length:=1).font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 22
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
With ActiveCell.Characters(Start:=2, Length:=2).font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 22
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("D204").Select
End Sub

Macro - Format Painter - Copy - Jump Downward 13 Rows and Paste Formatting

Sub format_painter()
'
' format_painter Macro
'

'
Selection.Copy
ActiveWindow.SmallScroll Down:=16
ActiveCell.Offset(13, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Mathematica Link to Microsoft Office Excel for Interconnecting the Two - Extremely Powerful Combination

Mathematica Link for Excel 3.2

Bringing the Power of Mathematica to Excel

With Mathematica Link for Excel, you can have it all: All of
the power and sophistication of Mathematica. All of the
familiarity and convenience of Excel. Mathematica Link for
Excel eliminates the complexities of bridging the two programs,
giving you the best of both worlds.

Mathematica Link for Excel adds over a thousand functions and
options to Excel and lets you interactively explore them using the
Mathematica function wizard. Excel formulas can suddenly perform
symbolic computations, find complex roots, plot equations, and much more.
Displaying Mathematica graphics and typesetting equations in
Excel is as easy
as entering a formula. Data and equations can be visualized in new and
insightful ways that are not possible in Excel alone.

Key Features

Mathematica Link for Excel is a fully bidirectional link
that can be used to:

Create spreadsheet formulas that call Mathematica from within
Excel
Write code in Mathematica that interacts with and automates
Excel
Call Mathematica code as if it were an Excel macro
Develop customized Excel import and export routines in
Mathematica
Copy and paste between Mathematica and Excel
Display Mathematica graphics and typeset expressions in
Excel

Forget about creating cumbersome temporary data files—instead, you
can easily copy and paste data between Mathematica and Excel.
Experience unparalleled "side-by-side" use of both programs as you
programmatically read and write data from Mathematica notebooks
to Excel workbooks, even ones that are currently open in Excel. You
can also convert Mathematica notebooks into Excel macros in
just a few simple steps.

Get the best of both worlds with Mathematica Link for Excel.

About the Developer

Episoft is a California-based corporation specializing in easy-to-use
productivity, connectivity, and analysis tools for today's extensible
desktop. In addition to commercial software, Episoft provides customized
software solutions and on-site training to a broad range of industries.
Past clients include General Electric, Lucent Technologies, Aerospace
Corporation, Beringer Winery, and the United States Department of Defense.

Episoft was founded in 1997.

Product Support

Mathematica Link for Excel is developed and supported by Episoft, Inc.

Episoft, Inc.

40258 Highway 41, Suite A

Oakhurst, CA 93644

email inquiry@episoft.com

Mathematica Link for Excel 3.2 requires Mathematica 6 or 7
and
Excel 2000 or higher, and is available for Windows 2000/XP/Vista.

Mathematica Link for Excel is © 1998-2009 Episoft, Inc.

Monday, February 22, 2010

Robust Userform Macro - Load it Up

Application Run Method - Powerful & Universal in VBA

To Use the Application.Run Method
You can use the Application.Run method to run Visual Basic Sub procedures or Microsoft Excel version 4.0 macros from other Visual Basic procedures. The Application.Run method requires one named argument: the name of the macro or Sub procedure to be run. (However, other optional arguments may also be included.) This name can be a text string (for example, "TestXLM") or it can be a variable that is equal to the name of the macro.

For example, to run a Microsoft Excel version 4.0 macro called TestXLM, you could use this method:
Application.Run ("TestXLM")

If you have the variable "MacroToRun" set to "TestXLM," you could use this method:
Application.Run (MacroToRun)

Thank you,

Ethan Castanon
Quantum Support – The Union of Finance & Technology
17732 Beach Blvd., Suite D
Huntington Beach, CA 92647
949-945-8665
Email: ethan@quantumsupport.biz
Web: http://www.quantumsupport.biz

Select Case - VBA - Microsoft Excel Visual Basic for Applications Programming - Programming Concepts

Create a New Workbook by Macro

Sub NewBook()

Dim NwBkName As Variant
Dim NewBook As Workbook
Set NewBook = Workbooks.Add

NewBook.SaveAs Filename:="C:\Users\crowbar\Documents\fund work\final\temp.xlsx"

NewBook.Activate

Automate Cut and Paste - In Cases Where Their is a Clear Pattern -

Sub CutNPaste()
ActiveCell.Select
sclng = ActiveCell.Copy
ActiveCell.Offset(1, -1).Select
ActiveCell.PasteSpecial xlPasteAll

Delete Rows Based on Criteria

Sub Find_and_delete()
Dim rng As Range
Dim what As String
Dim strMsg As String
Dim lok4 As String
Dim count As Integer
count = 0
lok4 = Application.InputBox("What variable?")
Do
Set rng = ActiveSheet.UsedRange.Find(lok4)
If rng Is Nothing Then
Exit Do
Else: Rows(rng.Row).Delete
count = (count + 1)

End If
Loop
MsgBox "The number of deleted cells was " & count

End Sub

Thank you,

Ethan Castanon
Quantum Support – The Union of Finance & Technology
17732 Beach Blvd., Suite D
Huntington Beach, CA 92647
949-945-8665
Email: ethan@quantumsupport.biz
Web: http://www.quantumsupport.biz

Excel - Move To a Range Away at a Specified Interval and Automate Cut & Paste Operations

Sub adder()
'
' adder Macro
'

'
Selection.Copy
ActiveCell.Offset(7, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(7, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
End Sub

Thank you,

Ethan Castanon
Quantum Support – The Union of Finance & Technology
17732 Beach Blvd., Suite D
Huntington Beach, CA 92647
949-945-8665
Email: ethan@quantumsupport.biz
Web: http://www.quantumsupport.biz

Excel - VBA - Microsoft Office Excel 2010 - Automation - Customization - UserForms Retrieving Computed Results

Excel - VBA - Microsoft Office Excel 2010 - Perform Operations Sequentially Downward at Any Specified Jump Factor and Any Entered Loop Count

asp.net - c# - sql

DeleteCommand="DELETE FROM [aedha_pts] WHERE [PatientID] = ?"
InsertCommand="INSERT INTO [aedha_pts] ([PatientID], [FirstName], [LastName], [DOB], [Issue], [Street], [City], [State], [Zip], [Phone1], [Phone2], [Email], [Insurance], [PaymentForm], [PaymentAmount], [COGS], [EvalDate], [DelivDate], [Warranty], [Notes]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
ProviderName="<%$ ConnectionStrings:quantbusConnectionString.ProviderName %>"
SelectCommand="SELECT [PatientID], [FirstName], [LastName], [DOB], [Issue], [Street], [City], [State], [Zip], [Phone1], [Phone2], [Email], [Insurance], [PaymentForm], [PaymentAmount], [COGS], [EvalDate], [DelivDate], [Warranty], [Notes] FROM [aedha_pts]"
UpdateCommand="UPDATE [aedha_pts] SET [FirstName] = ?, [LastName] = ?, [DOB] = ?, [Issue] = ?, [Street] = ?, [City] = ?, [State] = ?, [Zip] = ?, [Phone1] = ?, [Phone2] = ?, [Email] = ?, [Insurance] = ?, [PaymentForm] = ?, [PaymentAmount] = ?, [COGS] = ?, [EvalDate] = ?, [DelivDate] = ?, [Warranty] = ?, [Notes] = ? WHERE [PatientID] = ?">

Excel VBA - Functions

Function EndingMktVal(EndW As Single, ETFprcAtExp, CallStk, CallExPrice, CallPriceAtEntry, CallCalled, PutStk, PutCalled, PutExPrice, PutPriceAtEntry)

Dim EndValETF, PutPrem, CallPrem, CallDmg, PutDmg As Currency
Dim RedEndQ As Variant

RedEndQ = ((EndW / 100) * 100)
EndValETF = RedEndQ * ETFprcAtExp
CallPremium = RedEndQ * CallPrc
PutPremium = RedEndQ * PutPrc
CallDmg = ((RedEndQ * (ETFprcAtExp - CallStk)) + CallPremium)
PutDmg = ((RedEndQ * (PutStk - ETFprcAtExp)) + PutPremium)

If (CallCalled = "No" Or CallCalled = "no" And PutCalled = "No" Or PutCalled = "no") Then
EndingMktVal = EndValETF + CallInMoney + PutInMoney
ElseIf (CallCalled = "Yes" Or CallCalled = "yes" And PutCalled = "No" Or PutCalled = "no") Then
EndingMktVal = EndValETF + PutPremium + CallDmg
ElseIf (CallCalled = "No" Or CallCalled = "no" And PutCalled = "Yes" Or PutCalled = "yes") Then
EndingMktVal = EndValETF + CallPremium + PutDmg
ElseIf (CallCalled = "Yes" Or CallCalled = "yes" And PutCalled = "Yes" Or PutCalled = "yes") Then
EndingMktVal = EndValETF + CallDmg + PutDmg

End If
End Function

==================================================================

Function SNorm(z)

Application.ScreenUpdating = False

c1 = 2.506628
c2 = 0.3193815
c3 = -0.3565638
c4 = 1.7814779
c5 = -1.821256
c6 = 1.3302744
If z > 0 Or z = 0 Then
w = 1
Else: w = -1
End If
y = 1 / (1 + 0.2316419 * w * z)
SNorm = 0.5 + w * (0.5 - (Exp(-z * z / 2) / c1) * _
(y * (c2 + y * (c3 + y * (c4 + y * (c5 + y * c6))))))

Application.ScreenUpdating = True

End Function

'**********************************************************************
'* Black-Scholes European Call Price Computation *
'**********************************************************************

Function Call_Eur(s, x, t, r, sd)

Application.ScreenUpdating = False
Dim a As Single
Dim b As Single
Dim c As Single
Dim d1 As Single
Dim d2 As Single

a = Log(s / x)
b = (r + 0.5 * sd ^ 2) * t
c = sd * (t ^ 0.5)
d1 = (a + b) / c
d2 = d1 - sd * (t ^ 0.5)
Call_Eur = s * SNorm(d1) - x * Exp(-r * t) * SNorm(d2)

Application.ScreenUpdating = True

End Function

'*********************************************************************
'* Black-Scholes European Put Price Computation *
'*********************************************************************

Function Put_Eur(s, x, t, r, sd)

Application.ScreenUpdating = False

Dim a As Single
Dim b As Single
Dim c As Single
Dim d1 As Single
Dim d2 As Single

a = Log(s / x)
b = (r + 0.5 * sd ^ 2) * t
c = sd * (t ^ 0.5)
d1 = (a + b) / c
d2 = d1 - sd * (t ^ 0.5)
CallEur = s * SNorm(d1) - x * Exp(-r * t) * SNorm(d2)
Put_Eur = x * Exp(-r * t) - s + CallEur

Application.ScreenUpdating = True

End Function
Equals (=)
Less than (<) Less than or equal to (<=) Greater than (>)
Greater than or equal to (>=)
Not equal to (<>)

Excel - VBA - Named Ranges

Working With Names In Visual Basic

You can use VBA code to work with defined names. To add a name, use

ThisWorkbook.Names.Add Name:="SomeName", _

RefersTo:=Worksheets("Sheet2").Range("A1:A10")

This will assign the Name SomeName to the range A1:A10 on Sheet2. If you add a Name that already exists, the Name is automatically deleted and recreated with the new reference. It is not necessary to delete the Name before recreating it.

By default, names created manually or with VBA code are visible -- they will appear in the Name Box drop down and in the Names dialog. You can, however, make the name hidden so that it isn't visible to the user. A hidden Name can be used in any manner just like a normal, visible Name. To make a name hidden, you set the Visible parameter to False. For example,

ThisWorkbook.Names.Add Name:="SomeName2", _

RefersTo:=Worksheets("Sheet2").Range("B1:B10"), _

Visible:=False

The name SomeName2 can be used exactly as a visible name, but will not appear to the user. The only way to hide a Defined Name is via VBA code. There is nothing in the Excel user interface that allows you to hide a Name.

To delete a name using VBA code, use code like the following:

ThisWorkbook.Names("TheName").Delete

Using Defined Names in VBA code is different than using them in worksheet cells. You must get the value of the Name using the RefersTo or RefersToRange properties. If a Name doesn't refer to a cell or range of cells (e.g., it refers to a constant), an attempt to use RefersToRange will fail. To get the value of a Name that contains a constant, use the RefersTo property.

V = ThisWorkbook.Names("TheName").RefersToRange

If the name refers to a range of 2 or more cells, you can assign it to a Range type variable. For example,

Dim R As Range

Set R = ThisWorkbook.Names("BigName").RefersToRange

Debug.Print R.Address

If the name refers to a constant, you'll need to strip out some characters to get the actual value. For example, if the name MyName refers to the text constant Chip Pearson, the RefersTo property will return the text ="Chip Pearson". You need to strip out the leading equals sign and the enclosing quotes. You can do this with code like the following:

Dim S As String

S = ThisWorkbook.Names("MyName").RefersTo

S = Mid(S, 3, Len(S) - 3)

Debug.Print S

If the name refers to a numeric constant, there will be a leading equal sign but no quotes. Thus, you'll need to strip off the leading equals sign. The code below illustrates this.

Dim S As String

S = ThisWorkbook.Names("MaxPages").RefersTo

S = Mid(S, 2)

Debug.Print S

We can put all this together into a function that will return what the given name refers to, be it a range, text constant, or numeric constant.

Function GetNameRefersTo(TheName As String) As String

Dim S As String

Dim HasRef As Boolean

Dim R As Range

Dim NM As Name

Set NM = ThisWorkbook.Names(TheName)

On Error Resume Next

Set R = NM.RefersToRange

If Err.Number = 0 Then

HasRef = True

Else

HasRef = False

End If

If HasRef = True Then

S = R.Text

Else

S = NM.RefersTo

If StrComp(Mid(S, 2, 1), Chr(34), vbBinaryCompare) = 0 Then

' text constant

S = Mid(S, 3, Len(S) - 3)

Else

' numeric contant

S = Mid(S, 2)

End If

GetNameRefersTo = S

End Function

Macros, Macros, Macros - Excel - Visual Basic for Applications Programming

Automation is the future -
Below you will find VBA macros to be used in Microsoft Office Excel with their associated descriptions -
----------------------------------------------------------------------------------------------------------
Load up an Excel UserForm with Drop Down Combo Boxes

=================================================================
Private Sub CommandButtonSubmit_Click()
Dim port As Currency
Dim bg_dbc_st, bg_eem_st, bg_efa_st, bg_iwm_st, bg_iyr_st, bg_mdy_st, bg_spy_st As Currency
Dim md_dbc_st, md_eem_st, md_efa_st, md_iwm_st, md_iyr_st, md_mdy_st, md_spy_st As Currency
Dim nd_dbc_st, nd_eem_st, nd_efa_st, nd_iwm_st, nd_iyr_st, nd_mdy_st, nd_spy_st As Currency
Dim beginNum, endNum, thirteen_add, loop_counter As Integer
Dim dbc_st, eem_st, efa_st, iwm_st, iyr_st, mdy_st, spy_st As Single
Application.ScreenUpdating = False
Worksheets("Home").Range("bz2").Select
loop_counter = ActiveCell.Value
ActiveCell.Value = (ActiveCell.Value + 1)

If start_int_cmbo.Value = "T1" Then
    beginNum = 1
ElseIf start_int_cmbo.Value = "T2" Then
    beginNum = 2
ElseIf start_int_cmbo.Value = "T3" Then
    beginNum = 3
ElseIf start_int_cmbo.Value = "T4" Then
    beginNum = 4
ElseIf start_int_cmbo.Value = "T5" Then
    beginNum = 5
ElseIf start_int_cmbo.Value = "T6" Then
    beginNum = 6
ElseIf start_int_cmbo.Value = "T7" Then
    beginNum = 7
ElseIf start_int_cmbo.Value = "T8" Then
    beginNum = 8
ElseIf start_int_cmbo.Value = "T9" Then
    beginNum = 9
ElseIf start_int_cmbo.Value = "T10" Then
    beginNum = 10
ElseIf start_int_cmbo.Value = "T11" Then
    beginNum = 11
ElseIf start_int_cmbo.Value = "T12" Then
    beginNum = 12
ElseIf start_int_cmbo.Value = "T13" Then
    beginNum = 13
ElseIf start_int_cmbo.Value = "T14" Then
    beginNum = 14
ElseIf start_int_cmbo.Value = "T15" Then
    beginNum = 15
ElseIf start_int_cmbo.Value = "T16" Then
    beginNum = 16
ElseIf start_int_cmbo.Value = "T17" Then
    beginNum = 17
ElseIf start_int_cmbo.Value = "T18" Then
    beginNum = 18
ElseIf start_int_cmbo.Value = "T19" Then
    beginNum = 19
ElseIf start_int_cmbo.Value = "T20" Then
    beginNum = 20
ElseIf start_int_cmbo.Value = "T21" Then
    beginNum = 21
ElseIf start_int_cmbo.Value = "T22" Then
    beginNum = 22
ElseIf start_int_cmbo.Value = "T23" Then
    beginNum = 23
ElseIf start_int_cmbo.Value = "T24" Then
    beginNum = 24
ElseIf start_int_cmbo.Value = "T25" Then
    beginNum = 25
ElseIf start_int_cmbo.Value = "T26" Then
    beginNum = 26
ElseIf start_int_cmbo.Value = "T27" Then
    beginNum = 27
ElseIf start_int_cmbo.Value = "T28" Then
    beginNum = 28
ElseIf start_int_cmbo.Value = "T29" Then
    beginNum = 29
ElseIf start_int_cmbo.Value = "T30" Then
    beginNum = 30
ElseIf start_int_cmbo.Value = "T31" Then
    beginNum = 31
ElseIf start_int_cmbo.Value = "T32" Then
    beginNum = 32
ElseIf start_int_cmbo.Value = "T33" Then
    beginNum = 33
ElseIf start_int_cmbo.Value = "T34" Then
    beginNum = 34
ElseIf start_int_cmbo.Value = "T35" Then
    beginNum = 35
ElseIf start_int_cmbo.Value = "T36" Then
    beginNum = 36
End If

If end_int_cmbo.Value = "T1" Then
    endNum = 1
ElseIf end_int_cmbo.Value = "T2" Then
    endNum = 2
ElseIf end_int_cmbo.Value = "T3" Then
    endNum = 3
ElseIf end_int_cmbo.Value = "T4" Then
    endNum = 4
ElseIf end_int_cmbo.Value = "T5" Then
    endNum = 5
ElseIf end_int_cmbo.Value = "T6" Then
    endNum = 6
ElseIf end_int_cmbo.Value = "T7" Then
    endNum = 7
ElseIf end_int_cmbo.Value = "T8" Then
    endNum = 8
ElseIf end_int_cmbo.Value = "T9" Then
    endNum = 9
ElseIf end_int_cmbo.Value = "T10" Then
    endNum = 10
ElseIf end_int_cmbo.Value = "T11" Then
    endNum = 11
ElseIf end_int_cmbo.Value = "T12" Then
    endNum = 12
ElseIf end_int_cmbo.Value = "T13" Then
    endNum = 13
ElseIf end_int_cmbo.Value = "T14" Then
    endNum = 14
ElseIf end_int_cmbo.Value = "T15" Then
    endNum = 15
ElseIf end_int_cmbo.Value = "T16" Then
    endNum = 16
ElseIf end_int_cmbo.Value = "T17" Then
    endNum = 17
ElseIf end_int_cmbo.Value = "T18" Then
    endNum = 18
ElseIf end_int_cmbo.Value = "T19" Then
    endNum = 19
ElseIf end_int_cmbo.Value = "T20" Then
    endNum = 20
ElseIf end_int_cmbo.Value = "T21" Then
    endNum = 21
ElseIf end_int_cmbo.Value = "T22" Then
    endNum = 22
ElseIf end_int_cmbo.Value = "T23" Then
    endNum = 23
ElseIf end_int_cmbo.Value = "T24" Then
    endNum = 24
ElseIf end_int_cmbo.Value = "T25" Then
    endNum = 25
ElseIf end_int_cmbo.Value = "T26" Then
    endNum = 26
ElseIf end_int_cmbo.Value = "T27" Then
    endNum = 27
ElseIf end_int_cmbo.Value = "T28" Then
    endNum = 28
ElseIf end_int_cmbo.Value = "T29" Then
    endNum = 29
ElseIf end_int_cmbo.Value = "T30" Then
    endNum = 30
ElseIf end_int_cmbo.Value = "T31" Then
    endNum = 31
ElseIf end_int_cmbo.Value = "T32" Then
    endNum = 32
ElseIf end_int_cmbo.Value = "T33" Then
    endNum = 33
ElseIf end_int_cmbo.Value = "T34" Then
    endNum = 34
ElseIf end_int_cmbo.Value = "T35" Then
    endNum = 35
ElseIf end_int_cmbo.Value = "T36" Then
    endNum = 36
End If

On Error GoTo Blanks
bg_dbc_st = (DBC_interval_w8_start.Value / 100)
bg_eem_st = (EEM_interval_w8_start.Value / 100)
bg_efa_st = (EFA_interval_w8_start.Value / 100)
bg_iwm_st = (IWM_interval_w8_start.Value / 100)
bg_iyr_st = (IYR_interval_w8_start.Value / 100)
bg_mdy_st = (MDY_interval_w8_start.Value / 100)
bg_spy_st = (SPY_interval_w8_start.Value / 100)
Blanks:
MsgBox "Blanks values aren't acceptable. Please make entries: zero is ok for blanks."
Exit Sub

If (100 * (bg_dbc_st + bg_eem_st + bg_efa_st + bg_iwm_st + bg_iyr_st + bg_mdy_st + bg_spy_st) <> 100) Then GoTo Pass

Worksheets("Home").Range("bz2").Select
loop_counter = ActiveCell.Value
ActiveCell.Value = loop_counter + 1
Worksheets("Home").Cells(3, loop_counter + 79).Value = (bg_dbc_st * 100)
Worksheets("Home").Cells(4, loop_counter + 79).Value = (bg_eem_st * 100)
Worksheets("Home").Cells(5, loop_counter + 79).Value = (bg_efa_st * 100)
Worksheets("Home").Cells(6, loop_counter + 79).Value = (bg_iwm_st * 100)
Worksheets("Home").Cells(7, loop_counter + 79).Value = (bg_iyr_st * 100)
Worksheets("Home").Cells(8, loop_counter + 79).Value = (bg_mdy_st * 100)
Worksheets("Home").Cells(9, loop_counter + 79).Value = (bg_spy_st * 100)
thirteen_add = 5
For a_counter = beginNum To endNum
    thirteen_add = (thirteen_add + 13)
    begin_c_val = (thirteen_add + 5)
    Sheets("Home").Cells(begin_c_val, 5).Select
    ActiveCell.Value = bg_dbc_st * Sheets("Home").Cells(thirteen_add, 22)
    Sheets("Home").Cells(begin_c_val + 1, 5).Select
    ActiveCell.Value = bg_eem_st * Sheets("Home").Cells(thirteen_add, 22)
    Sheets("Home").Cells(begin_c_val + 2, 5).Select
    ActiveCell.Value = bg_efa_st * Sheets("Home").Cells(thirteen_add, 22)
    Sheets("Home").Cells(begin_c_val + 3, 5).Select
    ActiveCell.Value = bg_iwm_st * Sheets("Home").Cells(thirteen_add, 22)
    Sheets("Home").Cells(begin_c_val + 4, 5).Select
    ActiveCell.Value = bg_iyr_st * Sheets("Home").Cells(thirteen_add, 22)
    Sheets("Home").Cells(begin_c_val + 5, 5).Select
    ActiveCell.Value = bg_mdy_st * Sheets("Home").Cells(thirteen_add, 22)
    Sheets("Home").Cells(begin_c_val + 6, 5).Select
    ActiveCell.Value = bg_spy_st * Sheets("Home").Cells(thirteen_add, 22)
Next a_counter

Pass:
MsgBox "The weights do not add up to 100%. Please make the necessary corrections, and resubmit."
Exit Sub
Sheets("Home").Cells(1, 1).Select
Application.ScreenUpdating = True
MsgBox "start_int_cmbo box value is " & start_int_cmbo.Value & vbCrLf & "start number equals " & beginNum & vbCrLf & "end number equals " & endNum & vbCrLf & "bg_dbc_st value is " & bg_dbc_st & vbCrLf & "Loop Counting Value is: " & loop_counter & vbCrLf & vbInformation

End Sub

Saturday, January 23, 2010

Programming

Thursday, January 21, 2010

But the "Masters of the Minutia" Say "The Indicators Reveal We Are in the Early Stages of a Recovery" - I Would Like Them to Submit to IQ Tests

"Masters of the Minutia" is the Designation I Proscribe All of the Purported Authorities in Various Disciplines Who Either Know Not of Their Profound Mental Deficiency or Care Not of Their Profound Moral Deficiency, as evidenced by what would then be intentional lying motivated by self-interest.

The Fed lies on all of its released statistics because it needs to understate inflation to reduce its interest payments on the trillions of dollars of outstanding Treasury bills, notes and bonds - in addition to avoiding what they have brought within 5 inches of our doorstep - an impending, hyperinflationary great depression that would be the result of other countries dumping the 50%+ U.S. dollars that exist in circulation outside of the United States.

The United States doesn't have any way to repay all of its debt but to devalue the dollar, which destroys those countries' investments in our country.

In any event, I'd just like our "leaders" to be honest. Lying doesn't solve the problem, regardless of deranged economic policies that state boosting public sentiment will miraculously pull the economy out of Marianas Trench: That's like saying that the ostrich's practice of sticking its head into a hole to avoid danger is an effective policy.

.

Thursday, March 18, 2010

Bookmarks

Academic Research on Derivatives

Algorithmic Trading

Awesome Excel Tutorials - Vital

Banking

Blogs

CNBC Million Dollar Challenge Trivia Answers

Calculators

Calculators - Online

Certifications

Charting Sites

Code

Codes

Commodities Vocabulary

Computer OS Info -

Computer Security

Contracts

Credit Crisis

Currency Fundamental News

Definitions

Degrees

Derivatives

Descriptive Statistics for Finance

Dictionaries

Downloads

EPIC MARKET DATA

Economic Calendar

Economic Data

Economic Market Commentary

Economic Research

Economic Think Tanks

Economics Blog

Economics Data

Economics Education

Economics Research

Education

Employment

English Grammar Punctuation

Etc

Excel

Excel Plugins & Add-ins

Excel Solving

Excel Trading

Excel Vba Programming

Excel Vba Programming Math

Exchanges

Finance Blogs

Finance Books

Finance Technicals Charts

Financial Calculators

Financial Forecasts

Financial Mathematics

Financial Mathematics Mathematica/Matlab

Forex

Freeware - Mobile

Global Economic Calendar

Global Economics Data

Google Tools

Government Economic Reports - Official

Government Economic Sites

Great Obscure Market Statistics

Hacks

Indices

Info

Interactive Brokers Technical Pages

Investment Information

Licences

Links

Manuals for Physical Calculators

Market Analytics

Market Data

Market Regulation

Market Research

Markets

Markets I

Math

Math Games

Mathematica