« 2007年3月 | トップページ | 2007年5月 »

2007年4月29日 (日)

▼ダイエット大作戦(ジョギング再開)

いや気がついたら4月ももう終わりですね。風邪を患ってから走れていませんでしたが今週の木曜からジョギングを再開しました。といっても土は雨だったので木、金の2日ですが、体が振り出しに戻ったので準備体操のストレッチ10分を含め40分程度の運動です。心持ち体脂肪が減ってきたような気が(気のせい?)。。。

今回に限らず過去のダイエットも大抵、帰宅後の夜(食事前)に走るのですが、週末は17:30ごろの人気の少なくなった薄暗い中を走ります。たまに、16:00ごろに走ると、ジョギングコース(自分で勝手に決めているだけ)の周囲の木々や花々や空気の匂いで季節の移り変わりが感じられて気持ちいいですよね。

天気もよさそうだしゴールデンウィーク中に1、2kg減量できたらいいなぁ。

ダイエット大作戦20070429

2007年4月28日 (土)

¥Money(投信生活070428)

前回、4月購入分の分配金がほぼ出揃ったと書きましたが、最後の野村アセット 低位株オープン(低位株オ)の分配金結果が出ました。予想よりだいぶ少ない25円でしたが、この間の基準価額の落ち込み状況から心配していましたがとりあえず出てよかったよかった、購入時よりも基準価額も上がったことだしプラスプラス。

先週落ち込んだ基準価額も今週だいぶ上昇に転じたのか最終損益もプラスが増えました。売却できずに塩漬け状態になってしまうか心配していましたが、これで売却の目処も立ちます。3月保有分はグロソブのみだったし長期保有を考えていたのでほとんど基準価額もみていなかったのですが、いや、株式投資信託の基準価額は動きが激しいですね。このまま上昇基調に乗ってほしいものです。

現在の運用成績(2007/4/28)

<ちょっと脱線>
今日からゴールデンウィークに突入なので、ネット自動ログインツールに本格着手しようかな。前回書いた自動ログインツール改め自動操作ツールへの機能追加はほぼ完了していますが、やはり公開するとなるとそれなりの準備が必要ですからね。あと、下記のアンケート形式でコメントして頂ければ、機能追加を考えようかなと思いますのでもしよかったらよろしくお願いします。

■こんなことが出来たらいいなアンケート --------------
♪良く利用するネットサービス
(例:オンラインバンキング、価格比較、ネットオークション...)

♪どうゆうことがしたいか、できたらいいか(具体的に)
(例:検索結果をExcel一覧化したい...)

---------------------------------------------

2007年4月22日 (日)

▼ダイエット大作戦(-2Kgは維持か)

今週も走れていない。体重は85.8Kgとほぼ安定していたのだが、体脂肪が若干上がり気味なのは筋力が落ちたか?ところで体脂肪計は正確なのかぁ?大体朝一に計測するのだが帰宅後などの体が起きている状態だと30%とまったく数値が異なる。うむむ。。。しかし、運動せずにこの状態は良いのか悪いのか。。。やばい、健康診断が近づいてきた。何とかあと1、2kgは落としたいものです。やはり、ジョギングなど走らないと。今週もとりあえずダンベルだけは毎日10分程度継続。

ダイエット大作戦20070422

2007年4月21日 (土)

¥Money(投信生活070421)

4月購入分の分配金がほぼ出揃いましたが、結果は惨敗。三菱UFJ 日本成長株オープン(ブルーム)の分配がセロ!?なんでー。購入した投信の基準価額も株系がほとんどなので、今週はよくなかったですね。上がってはどかんと下がりと。最終損益はピクテ ピクテ・グローバル・インカム(グロイン)でなんとかプラスを保っている状態です。5月に期待するしかないか。

現在の運用成績(2007/4/21)

<ちょっと脱線>

翌日の日経を見れば載っているのですがやはり当日の夜にチェックしたくなるのが基準価額ですよね。そこで毎日の基準価額を自動で取得するVBAツールを作成してみたのですが、自分で言うのもなんですがなかなか便利です。近日公開しようと思います。以前公開したネット自動ログインツールももう少し汎用的にして、ログインだけではなく、以下の作業ができるように拡張中です。こんなことがしたいというご要望があれば是非コメントをお寄せくださいね。

  ・指定したサイトに公開されている画像/音楽/動画/ZIPなどのファイルを一括ダウンロードする

  ・指定したサイトをExcel一覧化してデータベース化したり、定型レポートや情報収集に活用する

  ・指定したサイトの文言をピンポイントで取得する。例えばある特定の製品価格やDVD発売予定日など

2007年4月18日 (水)

@アニメ(2007春アニメOP、ED2)

2007春アニメのOP、EDを毎日聴いています。さすがに番組が多いのでOP、EDも多いわけですが数えたら、第2クールなどで新たに流れたOP、EDも含めて、76曲くらいありました。一聴していい曲だなというのはあまり無いですね。ま、これは個人の趣味の問題ですのでご批判もあることでしょうが。まだ聴き込みが足りないのでリピートしていくうちに好きな曲が多くなるかもしれません。

これぞOP曲というアップテンポでかっこいい曲が多いかなという印象です。精霊の守り人/SHINE/L'Arc~en~CielはOPアニメーションと相まってとても爽快な気持ちにさせてくれます。魔法少女リリカルなのは StrikerS/SECRET AMBITION/水樹奈々はいつもの感じでこれまた売れそうですし、クレイモア/レゾンデートル/ナイトメアはギターリフがかっこ良くて好きです。EDのクレイモア/断罪の花~Guilty Sky~/小坂りゆも作品の雰囲気にあったいい曲だなと思いますね。

今回初めて歌を聴いたのですが以外にうまいのだなと思ったのが鋼鉄三国志/久遠/宮野真守だったり、BLUE DRAGON/Fly So High/山田優だったり。暗い作品にとても合っている悲しくも美しいぼくらの/アンインストール/石川智晶もお薦めです(EDも同時にどうぞ)。

OP、ED収集家(?)である私は、同じOP、EDでも編曲が違ったり、長めに放送されたりしたものも録音したりしています。ネギま!!などはグループ毎にたくさんバージョンがあって大変(笑)。また、挿入歌にも面白いのあったりして、しっかり収集しています。けっこうセリフが重なったりするので苦労するのですが。古いところではQuietNight C.E.73/ミーアキャンベル(田中理恵)が衝撃的でした。比較的最近ではプレ王などで大人気ですが、涼宮ハルヒの憂鬱の以下の3曲はやっぱり印象的でしたね。

    恋のミクル伝説/朝比奈みくる
    God knows.../平野綾
    Lost my music/平野綾

今期では、一部分しか流れていないのですが瀬戸の花嫁/涙一輪/瀬戸燦(桃井はるこ)はいい曲っぽいのでフルに流れる放送回を密かに期待しています。

DVDプレーヤーからパソコンに取り込んでメモリープレーヤーで楽しんでいるのですが、その辺の詳細はまた後日にでも書いてみたいと思います。

推薦曲(お早めに)

■ぼくらのOPhttp://www.youtube.com/watch?v=utYwFpkS6nc&mode=related&search=

アンインストール Music アンインストール

アーティスト:石川智晶
販売元:ビクターエンタテインメント
発売日:2007/06/13
Amazon.co.jpで詳細を確認する

■クレイモアOPhttp://www.youtube.com/watch?v=VdWnrKtgby0&mode=related&search=

レゾンデートル(「レゾンデートル」Video Clip収録)(DVD付) Music レゾンデートル(「レゾンデートル」Video Clip収録)(DVD付)

アーティスト:ナイトメア
販売元:バップ
発売日:2007/06/06
Amazon.co.jpで詳細を確認する

■クレイモアEDFullhttp://www.youtube.com/watch?v=LrdCHD5uyUs&mode=related&search=

断罪の花~Guilty Sky~(DVD付) Music 断罪の花~Guilty Sky~(DVD付)

アーティスト:小坂りゆ
販売元:エイベックス・マーケティング・コミュニケーションズ
発売日:2007/05/30
Amazon.co.jpで詳細を確認する

■キスダムEDhttp://www.youtube.com/watch?v=SlsIoPKMqw8

君がいる限り Music 君がいる限り

アーティスト:ステファニー
販売元:SE
発売日:2007/05/30
Amazon.co.jpで詳細を確認する

■ロミオ×ジュリエットOPhttp://www.youtube.com/watch? v=8lwvGEhn1Tk&mode=related&search=

祈り~You Raise Me Up Music 祈り~You Raise Me Up

アーティスト:LENA PARK
販売元:UNIVERSAL SIGMA(P)(M)
発売日:2007/06/20
Amazon.co.jpで詳細を確認する

■アイドルマスター ゼノグラシアEDhttp://www.youtube.com/watch?v=vd_P74UaQOA

Music 悠久の旅人~Dear Boy

アーティスト:Snow*
販売元:ランティス
発売日:2007/05/16
Amazon.co.jpで詳細を確認する

■精霊の守り人OPEDhttp://www.youtube.com/watch?v=bj3hSG-U_xQ

愛しい人へ Music 愛しい人へ

アーティスト:タイナカサチ
販売元:GENEON ENTERTAINMENT,INC(PLC)(M)
発売日:2007/06/06
Amazon.co.jpで詳細を確認する

■ハヤテのごとくOPFullhttp://www.youtube.com/watch?v=fg48B5L97tc

ハヤテのごとく!(初回限定盤)(DVD付) Music ハヤテのごとく!(初回限定盤)(DVD付)

アーティスト:KOTOKO
販売元:GENEON ENTERTAINMENT,INC(PLC)(M)
発売日:2007/05/23
Amazon.co.jpで詳細を確認する

■エル・カザドOPhttp://www.youtube.com/watch?v=C0_sXyqRJK4

光の行方 Music 光の行方

アーティスト:savage genius
販売元:Viictor Entertainment,Inc.(V)(M)
発売日:2007/05/16
Amazon.co.jpで詳細を確認する

■瀬戸の花嫁EDFullhttp://www.youtube.com/watch?v=9inkxTV4sWs

明日への光 Music 明日への光

アーティスト:樋井明日香
販売元:エイベックス・マーケティング・コミュニケーションズ
発売日:2007/05/02
Amazon.co.jpで詳細を確認する

■ハルヒEDダンスhttp://www.youtube.com/watch?v=aPU0OOzqlpU&mode=related&search=

2007年4月15日 (日)

▼ダイエット大作戦(成果なし)

先週風邪を引いてからというもの運動ができていません。まだ、咳が残っていて体もダイエット前の鈍った状態に戻ってしまっていてすぐには走れずなにより気力が戻らないです。そんな状態でも基礎代謝を上げる為に必要な筋力は付けようとダンベルは一日おきくらいにはやりました。あとビリーズ・ブートキャンプを参考に、立ったまま腹筋を鍛える動きを真似てみたりと屋内で何とか運動してみました。このところ気候も暑いくらいだし、咳も殆ど出なくなってきたのでそろそろウォーキングから始めようかなと思っています。現在、86.2Kg。

ダイエット大作戦20070415

※今週は2回ほど測定し忘れています。

2007年4月14日 (土)

¥Money(投信生活070414)

今回は資産運用について書いてみたいと思います。

昨年12月に、とあるきっかけから国際 グローバル・ソブリン・オープン(毎月決算型)(以降グロソブ)を購入する機会を得ました。これまではCITI BANKで外貨預金をやった経験があるのですが、投信は初めてでした。特に予備知識もなく、知り合いの薦めから地銀で購入した訳ですが、後でノーロード投信というものがあると知りました。グロソブも販売会社によってはノーロードで販売していると知り、大分損をしたものだなぁと分かりました。それからというもの、ノーロード投信、信託財産留保額がゼロのものなどを手当たり次第に調べました。調べてみると結構あるものなのですね、これと配当が大きいものに狙いを定めてピックアップしました。全くの素人で運用実績も専門用語の知識も無くてどこまで儲けられるか不安もあるけれど日々の楽しみが増えたという感じです。これからもっと勉強して、株取引にも挑戦していこうと思っています。

今現在運用している銘柄の運用成績についてはこれ(4/13時点)です。定期的に報告していこうと思います。よろしく。

2007年4月11日 (水)

@アニメ(2007春アニメOP、ED)

春アニメの放映もだいたい一巡りしたでしょうか。いやぁ結構チェックしたつもりですが益々本数が増えてきましたね。2番組同時録画DVDレコーダーでも厳しくなってきました。チェックしたアニメのOP,EDは以下の通りですが、まだ、1話目で登場していないものが2、3曲ありますね。
今期はロボットアニメにリアルなものが多いかなという印象です。また、大人も楽しめそうな骨太な題材で細やかな描写の本格的なものから、単純に気負いもなく見れるドタバタもの、ゲーム出身のものなどバラエティに富んでいますね。OP、EDの収集家(?)である私は、あまりアニメ本編には興味がない(とりあえず録画はしているが)のですが、そんな中でも、1話目から「これは面白いかも」と期待させてくれるのがアイドルマスターとラブ★コンですね。これ以外も期待していますよ。製作者&声優の皆さん!

注)あくまでも日時、放送局は千葉のものです。発売日は変更される可能性があります(最新情報はAmazon等で確認してね)

■キノの旅  2007/3/30 18:30(金)  ~  東京MX
    OP:all the way|下川みくに 発売日:2003/06/01
    ED:はじまりの日|前田愛 発売日:2005/03/16

■天元突破グレンラガン  2007/4/1 8:30(日)  ~  東京
    OP:空色デイズ|中川翔子 発売日:2007/06/27
    ED1:UNDERGROUND|HIGH VOLTAGE 発売日:2007/05/02
    ED2:happily ever after|中川翔子 発売日:2007/06/27
    ED3:みんなのピース|アフロマニア 発売日:2007/07/18

■ハヤテのごとく!  2007/4/1 10:00(日)  ~  東京
    OP1:ハヤテのごとく!|KOTOKO 発売日:2007/05/23
    OP2:七転八起☆至上主義!|KOTOKO 発売日:2007/10/17
    ED1:Proof|MELL 発売日:2007/05/30
    ED2:Get my way!|川田まみ 発売日:2007/08/08
    ED3:Chasse|詩月カオリ 発売日:2007/11/21
    ED4:木の芽風|IKU 発売日:2008/03/19

■一騎当千~Dragon Destiny~  2007/4/2 0:30(月)  ~  チバ
    OP:HEART&SOUL|雁行真依 発売日:2007/04/25
    ED:硝子の花|衣織 発売日:2007/04/25

■ヒロイック・エイジ  2007/4/2 1:42(月)  ~  チバ
    OP:gravitation|angela 発売日:2007/05/09
    ED:Azurite|浦壁多恵 発売日:2007/05/23

■瀬戸の花嫁  2007/4/2 1:42(月)  ~  チバ
    OP:Romantic summer|SUN & LUNAR 発売日:2007/04/25
    ED:明日への光|樋井明日香 発売日:2007/05/02
    ED2:Dan Dan Dan|SUN & LUNAR 発売日:2007/08/02
    挿入歌:涙一輪|瀬戸燦 発売日:2007/04/25
    挿入歌:Lunarian|LUNAR 発売日:2007/05/23
    挿入歌:your gravitation|SUN 発売日:2007/05/23
    挿入歌:戦いの歌|江戸前留奈 発売日:2007/06/27
    挿入歌:英雄の歌|瀬戸燦 発売日:2007/06/27

■桃華月憚  2007/4/3 1:30(火)  ~  BS朝日
    OP:ゆめおぼろ|犬飼真琴(喜多村英梨)守東桃香(伊瀬茉莉也)川壁桃花(早見沙織) 発売日:2007/06/20
    ED:この世界がいつかは|川壁桃花(早見沙織) 発売日:2007/06/20

■エル・カザド  2007/4/3 1:30(火)  ~  東京
    OP:光の行方|savage genius 発売日:2007/05/16
    ED:romanesque|FictionJunction YUUKA 発売日:2007/04/18

■セイント・ビースト~光陰叙事詩天使譚~  2007/4/3 2:00(火)  ~  チバ
    OP:Divine love|JAM Project featuring きただにひろし 発売日:2007/04/25
    ED:光陰叙事詩天使譚 ~エンジェル・クロニクルズ~|鈴木達央、寺島拓篤、羽多野渉、緑川光、宮田幸季 発売日:2007/05/23

■クレイモア  2007/4/4 1:41(水)  ~  日本
    OP:レゾンデートル|ナイトメア 発売日:2007/06/06
    ED:断罪の花~Guilty Sky~|小坂りゆ 発売日:2007/05/16

■キスダム  2007/4/4 1:30(水)  ~  東京
    OP1:時空を超えて|ⅡMIXΔDELTA 発売日:2007/06/06
    OP2:A Runner at Daybreak|ⅡMIXΔDELTA 発売日:2007/09/14
    ED1:君がいる限り|ステファニー 発売日:2007/05/30
    ED2:BECAUSE OF YOU|ステファニー 発売日:2007/08/29

■OverDrive  2007/4/4 2:00(水)  ~  東京
    OP:WINDER~ボクハココニイル~|少年カミカゼ 発売日:2007/05/16
    ED1:最果てのパレード|メリー 発売日:2007/04/18
    ED2:恋涼み|DEL 発売日:2007/08/08

■魔法少女リリカルなのは StrikerS  2007/4/4 2:30(水)  ~  チバ
    OP1:SECRET AMBITION|水樹奈々 発売日:2007/04/18
    OP2:MASSIVE WONDERS|水樹奈々 発売日:2007/08/22
    ED1:星空のSpica|田村ゆかり 発売日:2007/05/09
    ED2:Beautiful Amulet|田村ゆかり 発売日:2007/08/01

■神曲奏界ポリフォニカ  2007/4/4 4:15(水)  ~  TBS
    OP:Apocrypha|eufonius 発売日:2007/04/25
    ED:コンコルディア|kukui 発売日:2007/05/23

■大江戸ロケット  2007/4/4 23:30(水)  ~  チバ
    OP:お江戸流れ星Ⅳ|PUFFY 発売日:2007/07/18
    ED:100miles~虹を追いかけて|サンタラ 発売日:2007/06/20
    ED2:I Got Phythm|ナチュラル ハイ 発売日:2007/08/08

■ながされて藍蘭島  2007/4/5 1:20(木)  ~  チバ
    OP:Days|堀江由衣 発売日:2007/05/02
    ED1:Say cheese!|堀江由衣 発売日:2007/05/02
    ED2:恋する天気図|堀江由衣 発売日:2007/08/17

■アイドルマスター ゼノグラシア  2007/4/5 1:30(木)  ~  東京
    OP1:微熱S.O.S!!|橋本みゆき 発売日:2007/04/25
    OP2:残酷よ希望となれ|結城アイラ 発売日:2007/08/08
    ED:悠久の旅人~Dear boy|Snow* 発売日:2007/05/16
    挿入歌:恋だもん~初級編~|高槻やよい(小清水亜美) 発売日:2007/03/21
    挿入歌:LIVE for LOVE|天海春香(井口裕香) 発売日:2007/03/21
    挿入歌:ムーンライト・ラビリンス|橋本みゆき 発売日:2007/04/25
    挿入歌:夏空のブローチ|天海春香(井口裕香) 発売日:2008/02/06

■機神大戦 ギガンティック・フォーミュラ  2007/4/5 1:50(木)  ~  チバ
    OP:United Force|栗林みな実 発売日:2007/05/16
    ED:TSUBASA|瀬名 発売日:2007/05/23

■この青空に約束を  2007/4/5 1:50(木)  ~  チバ
    OP:この青空に約束を|KAORI 発売日:2007/04/25
    ED:青空のファンタジア|村田あゆみ 発売日:2007/04/25

■シャイニング・ティアーズ×ウィンド  2007/4/7 1:30(土)  ~  東京MX
    OP:Shining tears|保志総一朗 発売日:2004/11/26
    ED:光のシルエット|保志総一朗 発売日:2004/11/01

■風の少女エミリー  2007/4/7 7:25(土)  ~  NHK教育
    OP:風の少女|堀江美都子 発売日:2007/04/25
    ED:風のそらみみ|EPO 発売日:2007/04/25

■BLUE DRAGON  2007/4/7 9:00(土)  ~  東京
    OP1:FRIEND|橘慶太 発売日:2007/05/02
    OP2:ムネニキボウヲ|遼花 発売日:2008/01/16
    ED1:Fly So High|山田優 発売日:2007/06/13
    ED2:Kokoro|SS501 発売日:2007/08/01
    ED3:Hana|光岡昌美 発売日:2007/11/28
    ED4:セピア|D-51 発売日:2008/02/06

■ラブ★コン  2007/4/7 17:30(土)  ~  TBS
    OP1:キミ+ボク=LOVE?|テゴマス 発売日:2007/05/16
    OP2:Hey! Say!|Hey! Say! 7 発売日:2007/08/01
    ED1:キッス~帰り道のラブソング~|テゴマス 発売日:2007/05/16
    ED2:Bon Bon|Hey! Say! 7 発売日:2007/08/01

■地球へ・・・  2007/4/7 18:00(土)  ~  TBS
    OP:endscape|UVERworld 発売日:2007/05/30
    OP2:JET BOY JET GIRL|高橋瞳 発売日:2007/08/01
    ED:Love is...|加藤ミリヤ 発売日:2007/06/20
    ED2:This Night|CHEMISTRY 発売日:2007/08/01

■陸上防衛隊まおちゃん  2007/4/8 23:30(日)  ~  チバ
    OP:Brand new day|Aice5 発売日:2007/04/25
    ED:Eternity|Aice5 発売日:2007/04/25

■sola  2007/4/8 20:30(日)  ~  TBS
    OP1:敏感な風景|Ceui 発売日:2007/05/23
    OP2:colorless wind|結城アイラ 発売日:2007/04/25
    ED1:mellow melody|Ceui 発売日:2007/05/23
    ED2:見上げるあの空で|結城アイラ 発売日:2007/08/08

■ウェルベールの物語  2007/4/9 0:30(月)  ~  東京MX
    OP:Theme of Wellber|土橋安騎夫 発売日:2007/06/06
    ED:絆-eternal rainbow|E.O.D 発売日:2007/06/06

■英國戀物語エマ~第二幕~  2007/4/10 2:10(火)  ~  チバ
    OP:Silhouette of a Breeze Celtic version|梁邦彦 発売日:2007/07/18
    ED:Rondo of Lily bell|梁邦彦 発売日:2007/07/18

■ぼくらの  2007/4/10 23:30(火)  ~  東京MX
    OP:アンインストール|石川智晶 発売日:2007/06/13
    ED1:Little Bird|石川智晶 発売日:2007/06/13
    ED2:Vermillion|石川智晶 発売日:2007/08/22

■ひとひら  2007/4/4 1:30(水)  ~  チバ
    OP:夢、ひとひら|浅見ユウコ 発売日:2007/04/25
    ED:スマイル|水橋舞 発売日:2007/04/25

■おおきく振りかぶって  2007/4/13 1:40(金)  ~  TBS
    OP1:ドラマチック|Base Ball Bear 発売日:2007/05/23
    OP2:青春ライン|いきものがかり 発売日:2007/08/08
    ED1:メダカが見た虹|高田梢枝 発売日:2007/05/23
    ED2:ありがとう|SunSetSwish 発売日:2007/08/22

■精霊の守り人  2007/4/7 8:05(土)  ~  NHK衛星第2
    OP:SHINE|L'Arc~en~Ciel 発売日:2008/08/27
    ED:愛しい人|タイナカサチ 発売日:2007/06/06

■DARKER THAN BLACK-黒の契約者-  2007/4/7 2:10(土)  ~  TBS
    OP1:HOWLING|abingdon boys school 発売日:2007/05/16
    OP2:覚醒ヒロイズム|アンティック-喫茶店- 発売日:2007/08/22
    ED1:ツキアカリ|Riefu 発売日:2007/05/23
    ED2:Dreams|HIGH and MIGHTY COLOR 発売日:2007/08/01

■ロミオ×ジュリエット  2007/4/14 2:40(土)  ~  TBS
    OP:祈り~You Raise Me Up|LENA PARK 発売日:2007/06/20
    ED1:サイクロン|12012 発売日:2007/06/06
    ED2:Good bye, yesterday|Mizrock 発売日:2007/07/25

■怪物王女  2007/4/13 2:10(金)  ~  TBS
    OP:BLOOD QUEEN|美郷あき 発売日:2007/05/09
    ED:跪いて足をお嘗め|ALI PROJECT 発売日:2007/06/13
    挿入歌:原罪のAperitif|川澄綾子 発売日:2007/08/22

■鋼鉄三国志  2007/4/6 2:15(金)  ~  東京
    OP:Nostalgia|camino 発売日:2007/05/23
    ED:久遠|宮野真守 発売日:2007/05/23

■風の聖痕  2007/4/13 2:30(金)  ~  チバ
    OP:blast of wind|木氏沙織 発売日:2007/05/30
    ED1:ひとりきりの空|木氏沙織 発売日:2007/05/30
    ED2:瞬きのキヲク|藤村歩、猪口有佳、伊藤静 発売日:2007/08/18

■彩雲国物語 第2シリーズ  2007/4/7 9:00(土)  ~  NHK衛星第2
    OP:はじまりの風|平原綾香 発売日:2006/11/15
    ED:明日へ|照屋実穂 発売日:2007/06/06

■らき☆すた  2007/4/8 0:00(日)  ~  チバ
    OP:もってけ!セーラーふく|泉こなた(平野綾)、柊かがみ(加藤英美里)、柊つかさ(福原香織)、高良みゆき(遠藤綾) 発売日:2007/05/23
    挿入歌:三十路岬|小神あきら(今野宏美) 発売日:2007/08/29

■スカルマン  2007/4/29 2:45  ~  BSフジ
    OP:ひかりのまち|TOKIO 発売日:2007/03/28
    ED:明日は明日の君が生まれる|Chocolove from AKB48 発売日:2007/06/06

■電脳コイル  2007/5/12 18:30(土)  ~  NHK教育
    OP:プリズム|池田綾子 発売日:2007/05/23
    ED:空の欠片|池田綾子 発売日:2007/05/23

2007年4月10日 (火)

▼ダイエット大作戦(風邪ひいてしまいました)

先週から開始したダイエット大作戦ですが、懸念していた通り風邪をひいてしまいました。家族が次々に風邪をひいていく中で私だけ難を逃れていたのですが。最初の3日間はジョギングをして、雨だったのと休養を入れたかったので1日走らず、木、金とジョギングしたところで土、日、月とダウンしてしまいました。とりあえずこれまでの推移を記載します。体重計測(体脂肪も)が朝一だったりジョギング後の入浴直前だったりとまちまちなので上がったり下がったりしています。そろそろ体調も復活しそうなのでまたやりますよ~。

ダイエット大作戦20070409

4/10現在84.6Kgです。ちなみに、ジョギングは3Km程度を40分かけて走り、その後5Kg×2のダンベルで、寝た状態から腹筋運動を20回程度やってました。食事は運動後に摂っていましたが運動後ということもあり、あまり多く取れなくなったようです。

2007年4月 7日 (土)

◆Outlook VBA(複数メールの添付ファイルを一括保存)

今回はOutlookメールの添付ファイルを保存する機能について書いてみたいともいます。前回のカスタマイズ記事でカスタムメニューの画像を出していたのでネタばれだったかもしれませんね。

1つのメールに添付されているファイルを保存する機能は標準でありますね。メニュー「ファイル」→「添付ファイルの保存」→「すべての添付ファイル」です。でも複数メールの添付ファイルを一括保存する場合、あれっできない?Microsoftさん!?。。。

2010.9.10加筆
保存先に同じファイル名が存在したら重複しないように枝番を付加するように改良したヴァージョンは
こちら

ということで作成したのが以下の処理です。

Sub 選択メールの添付ファイルを指定フォルダに一括保存()
    Dim cDir As String, oSel As Object, oF As Object
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
    Dim myNameSpace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim mySendFolder As Outlook.MailItem
    Dim myCopiedItem As Outlook.Items
    Dim lMax As Integer, i As Integer
    Dim MyTitle As String
    Dim Leng As Long, hWnd As Long, ret As Long
   
    Dim myAttachments As Outlook.Attachment
    Dim MsgTxt As String, a As String
    Dim myExlApp As Object, Files As Object
    Dim lSubject As String
   
    On Error Resume Next
    Set myOlApp = CreateObject("Outlook.Application")
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
   
    Set myExlApp = CreateObject("excel.Application")
    cDir = myExlApp.GetSaveAsFilename("DUMMY", "全ファイル(*.*),*.*", , "保存先フォルダ指定")
    If cDir = "False" Or cDir = "FALSE" Then GoTo p_exit
   
    cDir = Mid(cDir, 1, InStrRev(cDir, "\") - 1)
   
    '現在のウィンドウタイトル取得
    hWnd = GetActiveWindow()
    MyTitle = String(250, Chr(10))
    Leng = Len(MyTitle)
    ret = GetWindowText(hWnd, MyTitle, Leng)

    '選択されたメールの添付ファイルを保存
    For Each oSel In myOlSel
        i = i + 1
        ret = SetWindowText(hWnd, oSel & "(" & i & "/" & myOlSel.Count & ")" & "を処理中...")
        For Each oF In oSel.Attachments
            oF.SaveAsFile cDir & "\" & oF.DisplayName
        Next
       
    Next
   
    ret = SetWindowText(hWnd, MyTitle)
    MsgBox "終了しました。総数:" & i
    ret = Shell("c:\windows\explorer.exe " & cDir, vbNormalFocus)

p_exit:
    Set myExlApp = Nothing
    Set oSel = Nothing
    Set oF = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
   
End Sub

解説すると、例のごとくSet myOlApp = CreateObject("Outlook.Application")でOutlookオブジェクトを作成し、Set myOlSel = myOlExp.Selectionで選択されているメールを取得します。Set myExlApp = CreateObject("excel.Application")でExcelのオブジェクトを生成し、ExcelのGetSaveAsFilename関数をフォルダ指定に流用しています。ここは"shell.application"のbrowseforfolderでも良いし他にもあるかもしれません。ちなみに、予めChDirをしたかったのですが、Outlookは有効にならないようです。For Each oSel In myOlSelで選択したメール分処理を繰り返します。さらに、For Each oF In oSel.Attachmentsでメールに添付された複数ファイル分処理を繰り返します。あとは、前回説明したタイトルバーの変更処理が含まれていますが割愛します。

以上が添付ファイルの一括保存についての説明でした。OutlookVBAについては今回で終了とします。また、ネタが見つかったら書いてみたいと思います。

※私が作成したVBAツールです。よかったら使ってみてください。

2007年4月 4日 (水)

◆Outlook VBA(タイトルバーの動的変更)

今回はOutlookのタイトルバーを動的に変更してみます。
なぜタイトルバーを変更したいのかというと、ExcelはステータスバーにてApplication.StatusBar="ほげほげ"で変更できますが、Outlookは2007に至るまで出来ないようです(私が知らないだけかも)。私はよく、時間のかかる処理の場合、ステータスバーに進行状況を表示するのですが、Outlookはそれが出来ないじゃありませんか。そこで、ステータスバーの変わりにタイトルバーに進行状況を表示してしまえと考えたわけです。

しかし、前述のとおり簡単には変更できません。WindowsAPIを使用します。以下に例を示します。

    '現在のウィンドウタイトル取得
    hWnd = GetActiveWindow()
    MyTitle = String(250, Chr(10))
    Leng = Len(MyTitle)
    ret = GetWindowText(hWnd, MyTitle, Leng)

    '長い処理
    For Each oSel In myOlSel
        i = i + 1
        ret = SetWindowText(hWnd, oSel & "(" & i & "/" & myOlSel.Count & ")" & "を処理中...")

        内容省略。。。。

       
    Next
   
    ret = SetWindowText(hWnd, MyTitle)
    MsgBox "終了しました。総数:" & i

解説すると、GetWindowText関数で予め現在のタイトルバーの文言を取得しておきます。ウィンドウハンドルが必要なのでGetActiveWindow関数でアクティブウィンドウを取得します。次に長い処理の間にSetWindowText関数でタイトルバーに情報を設定します。上記は、複数選択されたメールを処理する際に”メール件名(分子/分母)”を表示させる例です。そして、最後に取得しておいたタイトルバーを元に戻して終了です。

変更されているタイトルバーの画像

WindowsAPIの宣言は以下の通り。

'アクティブウィンドウハンドルを取得する
Private Declare Function GetActiveWindow Lib "USER32" () As Long
'ウィンドウタイトル取得
Private Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA" (ByVal hWnd&, ByVal lpString$, ByVal cch&) As Long
''ウィンドウタイトル変更
Private Declare Function SetWindowText Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

今回はここまでとします。結構簡単でしたね。次回のネタは未定です。それでは。

※私が作成したVBAツールです。よかったら使ってみてください。

◆Outlook VBA(Outlookのカスタマイズと配布方法)

今回はOutlook VBAのカスタマイズと配布方法について書いてみたいと思います。

前回は「Visual Basic Editor」のVbaProject.OTMに標準モジュールを追加して処理を記述して、マクロから実行したところまででしたね。それでは、Outlook VBAの処理を実行する方法として、2通りご紹介します。まずは標準ツールバーにアイコンを追加してマクロを割り当てて見ましょう。

ツールバーにアイコン追加画像

Outlookのツールバー上で右クリックし、「ユーザ設定」画面→「コマンド」タブのマクロを選択すると、前回作成した選択メールの情報をExcel一覧化が表示されているので、左ボタンでぐっとつかみツールバー上にドラッグ&ドロップすればOKです。

この方法は自分だけでマクロを使う場合は良いですが、不特定多数の人に使用してもらうにはちょっとやっかいです。VBAマクロを配布するには、標準モジュールを「エクスポート」して.basファイルを作成し、他人に配布してから、配布した人間に上記のアイコン設定をしてもらわなければなりません。次に紹介するのはカスタムメニューの追加方法です。

Outlookメニューにカスタムメニュー追加画像

これを実現するには処理を書かなければなりません。私の記念すべき第1回目に書いたSub Application_Startup()に以下の処理を記述します。

    Const cMenu As String = "menu bar"
    Const cCtl1 As String = "Toolsメニュー(&M)"
    Const cCtl2 As String = "選択メールの添付ファイルを指定フォルダに一括保存"
    Const cCtl3 As String = "下書きメールに添付ファイルを添付して送信トレイに一括格納"
    Const cCtl4 As String = "選択メールを一括送信"
    Const cCtl5 As String = "選択メールの情報をExcel一覧化"
    Const cCtl99 As String = "バージョン情報"
   
    Dim oExp As Outlook.Explorer
    Dim oBar As Office.CommandBar
   
    Set oExp = Outlook.ActiveExplorer
    Set oBar = oExp.CommandBars.Item(cMenu)
   
    For Each myControl In oBar.Controls
        If cCtl1 Like myControl.Caption & "*" Then
            myControl.Delete
        End If
    Next
    Set myControl = oBar.Controls.Add(msoControlPopup, , , 7, True)
               
    With myControl
        .Caption = cCtl1
       
        Set mySubControl = .Controls.Add(msoControlButton, , , , True)
        With mySubControl
           .Caption = cCtl2 & "(&H)"
           .FaceId = 721
           .Style = msoButtonIconAndCaption
           .Tag = cCtl2
           .Visible = True
           .OnAction = cCtl2
        End With
       
        Set mySubControl = .Controls.Add(msoControlButton, , , , True)
        With mySubControl
           .Caption = cCtl3 & "(&K)"
           .BeginGroup = True
           .FaceId = 3739
           .Style = msoButtonIconAndCaption
           .Tag = cCtl3
           .Visible = True
           .OnAction = cCtl3
        End With
       
        Set mySubControl = .Controls.Add(msoControlButton, , , , True)
        With mySubControl
           .Caption = cCtl4 & "(&S)"
           .FaceId = 2617
           .Style = msoButtonIconAndCaption
           .Tag = cCtl4
           .Visible = True
           .OnAction = cCtl4
        End With
       
        Set mySubControl = .Controls.Add(msoControlButton, , , , True)
        With mySubControl
           .Caption = cCtl5 & "(&E)"
           .BeginGroup = True
           .FaceId = 366
           .Style = msoButtonIconAndCaption
           .Tag = cCtl5
           .Visible = True
           .OnAction = cCtl5
       End With
      
        Set mySubControl = .Controls.Add(msoControlButton, , , , True)
        With mySubControl
           .Caption = cCtl99 & "(&A)"
           .BeginGroup = True
           .FaceId = 3998
           .Style = msoButtonIconAndCaption
           .Tag = cCtl99
           .Visible = True
           .OnAction = cCtl99
       End With
    End With

    Set oExp = Nothing
    Set oBar = Nothing
    Set myControl = Nothing
    Set mySubControl = Nothing
End Sub

ま、ちょっと余計な処理が含まれていますが気にしないでください。解説すると、Set oExp = Outlook.ActiveExplorerでOutlookオブジェクトを生成し、Set oBar = oExp.CommandBars.Item(cMenu)でメニューオブジェクトを生成します。以降はoBarに対してメニュー項目を追加していくというわけです。コマンド自体はExcelとほぼ同じですね。以上を実装すると、Outlookを起動すると画像のようなメニュー項目が追加されるようになり、そのメニューからマクロを実行することができます。で、配布方法ですが、C:\Documents and Settings\@@@@\Application Data\Microsoft\Outlook配下に存在するVbaProject.OTMファイルを配布し、配布先の上記フォルダに格納してもらえばよいわけです。ただし、少し注意が必要ですが、既に配布先PCでVBAマクロを作成したりしているとVbaProject.OTMファイルが存在していることになります。その場合は導入まえに退避してもらうなどの対処が必要になります。

このほかにも、メニューではなくカスタムツールバーを作成する方法などもありますが、ネットで探索してみてください。便利ツールもいくつか存在するみたいですので。

今回はここまでとします。次回はOutlookのタイトルバーをカスタマイズしてみます。

※私が作成したVBAツールです。よかったら使ってみてください。

2007年4月 2日 (月)

▼ダイエット大作戦(近頃だいぶメタボ)

ここ1、2年めっきり運動不足(まったく運動していない)で体重が増える一方だ。休日はピアノに耳コピー、DVDにネット投資にブログと家でゴロゴロしながらの怠惰な生活。

高校の頃は陸上でへろへろになりながら部活に精を出していた。食べても食べてもぜんぜん太らないので自分は太らない体質なのかな?などと思っていたが、なんてことは無い今思えば毎日死ぬほど練習していたからだったのだ。案の定、高校を卒業して陸上を止めたら一年で5Kg太った。

ところで最近やたらとビリー君の名をテレビで耳にする。そうだあのビリーズ・ブート・キャンプというやつだ。7日間でみるみる体が絞れるという謳い文句が妙に魅かれる。体験者の体を見ると、昔は自分もああだったなぁなどと郷愁に浸ってしまう。

実は自分も過去にダイエットの成功体験を持っている。自分の場合はダンベルとランニングと食事制限(炭水化物ダイエット)の併用だ。冬場の12月くらいから4月までの期間で80Kgを73Kg(-7Kg)くらいまで落としたことがある。毎年、春の健康診断に向けてダイエットするのだが、どうすればだいたいどのくらいでどのように体重が減っていき体も絞れてくるのか分かっている。ただ、体重を落としては、夏場リバウンドして、また冬場落としてを2、3年繰り返していたが、ある時まったく運動をしなくなったらこれまでの体重上限(80Kg)を軽く突破し、今では87.4Kgとなってしまった。走ればいつでも痩せられると楽観視していたらこの有様だ。

これはまずい、スーツがきつい、息がキレる、体が重く感じ(当然だが)て何事にも億劫だ。ちょっと走れば電車に乗れそうだが次でいいやと思ってしまう。常駐先からたまに会社に戻ると「あれっ太った」と言われる。これはまずすぎる。。。

陽気も良くなってきたし、健康診断もあと2ヶ月弱に迫ってきた。よーし、またダイエットやるぞ!ということで週1回ダイエット大作戦の報告をします。皆さんもご一緒に健康になりましょう!急激に体重を落とすのは良くないと言われているので、まずは84Kgを目標にしてみようと思います。それが達成できたら80Kg、78Kg、75Kg。。。。

とりあえず4/1からジョギング40分(内準備体操10分)+ダンベル5Kg×2をあれこれ10分程度始めました。ただ今の体重87.4Kg。

« 2007年3月 | トップページ | 2007年5月 »