ユーザー名を取得

Windows7の場合、デスクトップフォルダへのパスは
C:\Users\ユーザー名\Desktop\ファイル名.拡張子
こうなってると思います。

ユーザー名はパソコンごとで違うので、他のパソコンだとマクロでファイルが開けない、なんてことがあり困ってました。
Workbooks.Openメソッドでは、ワイルドカードは使えないので。

どうにかできないものかと思いググってたら、ユーザー名を取得するコードを見つけました。

Dim WshNetwork As Object
Dim myName As String
Set WshNetwork = CreateObject("WScript.Network")
myName = WshNetwork.UserName
Set WshNetwork = Nothing

仕組みはよくわからないけど、これで変数myNameにユーザー名を格納することができました。

なので以下のようにすれば、どのPCでもWorkbooks.Openメソッドを使って指定したファイルが開けそうです。
Workbooks.Open Filename:=”C:\Users\” & myName & “\Desktop\ファイル名.拡張子”

もっと簡単な方法あるかもですけど。

11月6日(金) トレード結果

ブログのレイアウトを少し弄ってみました。

今週は郵政ボーナスもあり上々の出来。
来週も決算を中心にイベント盛りだくさん。

引っ越しと重なってバタバタしそうだけど、ミスなくトレードしたいです。

今日の収支 82300円

733502015年収支

再熱

昨日の勝利は、冷めかかっていたトレードへの情熱を呼び覚ましてくれた。

僕はトレードの世界で白眉にはなれない。
でも、この先数億稼ぐことくらいは十分可能だと思っている。

そう思えなきゃやってられないw

ただし、そうなるためには今以上の努力はもちろんのこと、トレードに対する強い情熱が必要。

マケ魔でも久々に読み返してみるかな…

トレード結果

トレードアイデアがいくつかあって、僕のスキルでも実装化することは可能なんだけど。
それには嫌いなデータのタンキング作業をしなければならない…

みんなが持っていない、ネットで公開されていないデータは強い武器になりますからね。
めんどくさがらずにやりましょう、お芋ちゃん!

今日の収支 16400円

271002015年収支

嬉しい誤算

夕方に結果を見てにんまり。
2割高くらいは十分あり得るとは思ってたけど、薄利も覚悟してたんで大満足の出来です。

ただ、こんなことならかんぽ生命をもっと申し込んでおくんだっタラレバ!
人間の欲って底なしですね…

トレード結果

メインもサブも好調でした。
ただでさえ大勝の日だったのに、郵政の上乗せで損益曲線が跳ねました。

このボーナス勝利に浮かれずに、明日からまた真摯に相場と向き合っていきたいと思います。

今日の収支 633500円

6335002015年収支

よしふみとからあげ

ヤングマガジンで掲載中。


よしふみとからあげ(1) [ 関口かんこ ]

地味に面白いです。
ヤンマガでは喧嘩稼業の次に好きかも。

主人公のよしふみ(社畜)としゃべるウーパールーパー(からあげ)のやり取りが微笑ましいです。
何にも考えずに読める癒し系ならぬ濡らし系漫画。

トレード結果

木曜日に返済し忘れた売り玉の損失が少しだけ減ってくれました。
もうオーダーミスはほんとに嫌…

今日も決算プレイが好調で、1トレードの利益は大きくないものの勝率がすごくよかったです。
決算期になるとロング・ショート戦略が不調になってくるので、今日みたいに決算プレイが補ってくれると超助かります。

さて、明後日はついに郵政。
ゆうちょ銀行700株、かんぽ生命200株、日本郵政700株。

これが僕の手玉だけど、黒澤さんの予想見てると嫌でも期待しちゃう…
純利で10万円お願いします!

今日の収支 146210円

131102015年収支