2556866 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

楽天ブログ 買っちゃった

【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね! --/--
おめでとうございます!
ミッションを達成しました。
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x
2009/04/27
XML
カテゴリ:
「毎日5万円を株で稼ぎ続ける方法 」を検証するためには、サンプルExcelブックの9時10分の状態を保存する必要あるんだよね。

まずSheet1をSheet2にコピーして保存するマクロを作った。



Sub Macro_COPY()

Sheets("Sheet1").Select
Range("A1:AD59").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ActiveWorkbook.SaveAs Filename:="D:\株\sample.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub



次に上のマクロを9時10分に実行するマクロを作る。


Sub am910()

Application.OnTime TimeValue("09:10:00"), "Macro_COPY", TimeValue("00:00:30")

End Sub





後は適当なタイマーソフトでパソコンをシャットダウンする。

これで家に居なくても9時10分時点の売買サイン銘柄を夜に確認できるから
毎日検証できるようになるな。

楽天証券「毎日5万円を株で稼ぎ続ける方法 」の過去日記





お気に入りの記事を「いいね!」で応援しよう

Last updated  2009/04/27 08:00:13 PM
コメント(0) | コメントを書く


PR

Category

Keyword Search

▼キーワード検索

Recent Posts

Rakuten Card

Headline News

Calendar

Favorite Blog

サラリーマンってム… ロデ男0166さん
僕のIT活用と勝手な話 LungYaiさん
おためしブログ~自… Tanukidadさん
ひっこりんの冒険 ひっこりんさん
今日のこの一頭(本物… れいろーさん

Freepage List

Free Space














© Rakuten Group, Inc.