日経225オプション取引で１億円を稼ぐまで

先週末にＩＶの時間推移のグラフの記事の中で、データ記録の自動化の対応中のようなことを書きましたがこれが思いのほか時間がかかりました。で、やっと骨格ができたので嬉しさもあり記事をアップします。

これまでの私のマクロに関する知識はといえば、「マクロの記録」で操作を記録し、記録したソースを少し修正する程度のスキルでした。そのスキルをベースにして、データ自動記録のマクロをつくるのは少々荷が重かったようです。
最初は、いつものように「マクロの記録」を使って処理を作ったのですが、この処理をベースに自動化をすると、不具合だらけになりました。
例えば次のような不具合がありました。
・シートを切り替えると動かない
・ならばシート名を指定して実行しても動かない
　（メンテナンス性向上のため、セルに名前をつけてそれを使用するようにしてたんですが、それがうまくない）
・で、セルの名前でなく直接指定すると動くようになったものの、記録処理が走るとシートが切り替わってしまう
などなどの不具合でした。
ネットを検索すると、サンプルがいくつか出てくるのですが、難しくて理解できず、理解できないから使うことも出来ず…

そんなわけで、一念発起してＶＢＡをある程度ちゃんと勉強してみました。
特に役に立ったのは次のサイトでした。
http://www.happy2-island.com/excelsmile/
　　↑概略をつかむのにとっても良いサイトでした
http://excelvba.pc-users.net/index.html
　　↑体系的に書かれています。リファレンスとしても良さそうです。

そして、その知識をもとにしてやっと動くところまでこぎつけました。
とっても嬉しいです（そういうわけで、ブログアップです）

処理のポイント
・ログ記録シートとグラフを分離（別々のシートにわけ、メンテナンス性を向上させた(つもり)）
・処理の定期的な実行は、 Application.OnTime を使って実現した
・Application.CutCopyMode = False　を使って、クリップボードのデータをクリアする処理を入れた
　（入れてないと変なコピペがされたり処理が動かなかったりします）
・Application.ScreenUpdating　で、画面更新を行わずに処理をするようにした
　（これを入れると処理中に変なシート切り替わりがなくなります）

欠点なんですが
・手動のコピペなどの処理を実施中に、この処理が流れると、クリップボードがクリアされてコピペできなくなる
※他にもあるかもしれませんが、現在のところ顕在化していません

参考：今回作ったソースの骨格は以下の通り
※なにせ初心者が作ったソースですので、不具合あっても責任持てませんが…　<(_ _)>

---

Option Explicit

Public mytime As Date

---

Sub LOG_取得時刻セット()
mytime = Now + TimeValue("00:05:00")
Application.OnTime mytime, "LOG_取得処理＿親"
End Sub

---

Sub LOG_取得終了()
Application.OnTime mytime, "LOG_取得処理＿親", , False
End Sub

---

Sub LOG_取得処理_親()
Application.Run "LOG_取得処理実施"
Call LOG_取得時刻セット
End Sub

---

Sub LOG_取得処理実施()
'
' LOG_取得処理実施 Macro
'
Application.ScreenUpdating = False
Application.CutCopyMode = False
Worksheets("ログ").Range("G:G").Insert
Worksheets("ログ").Range("F:F").Copy
Worksheets("ログ").Range("G:G").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

---