2009-07 on yuki9902::blog

トリックアート

Fri, 31 Jul 2009 23:27:51 +0900

トリックアートは子供の頃に楽しくて沢山見ました。
作者を意識したことは少なかったので、今回は大人の目線楽しみました。
かなり知っているものが多いですけど、ミニチュアに見える風景写真が実際に見えて楽しかった。
あと、四角錘に遠近法で建物の絵を描いたものの実物が楽しかったです。

子供か

Fri, 31 Jul 2009 17:31:28 +0900

実は昨晩全く寝付けなかった。
まるで子供だね。

まあほんとのところ、とある人のことが気になって寝付けなかったんですけど。

今日はよく歩いた。

もう疲れたので、シャワーで汗を洗い流して、くつろぎタイム。

晩ご飯どうしようかな。

ゴージャスです

Fri, 31 Jul 2009 16:27:35 +0900

ビジネスホテルのつもりで予約して、実際チェックインすると、ゴージャスです。

オタクの聖地

Fri, 31 Jul 2009 13:49:42 +0900

秋葉原です。
オタクになれるかな。

私とガンダム

Fri, 31 Jul 2009 10:53:55 +0900

みれ

感無量

Fri, 31 Jul 2009 10:51:12 +0900

うう、感無量です。

とりあえず

Fri, 31 Jul 2009 10:33:56 +0900

とりあえず、目的を達成

「萩原美緒オフィシャルブログ「すきすきだいすき」」の紹介

Thu, 30 Jul 2009 21:38:57 +0900

ちょっとお願い。下のリンククリックして。

萩原美緒オフィシャルブログ「すきすきだいすき」

まだ駆け出し中の声優さんのブログです。

アメーバブログでのつながりで、ランキング競争中らしいので、クリックして読んであげてください。

2013/03/25

萩原美緒さんは事務所が変わり、華山みおさんとして活躍しています。

華山みおのブログ

忘れて

Thu, 30 Jul 2009 21:27:21 +0900

けがを忘れて、足にお湯をかけてしまった。

ちょっと痛い。

足だからきれいに洗っとかなきゃ。

明日の旅キット

Thu, 30 Jul 2009 17:15:59 +0900

明日の旅キット。
カバンが大きいのしかなかったから、今日買ってきた。

仕切りが多いから意外に入らなかった。orz

まあカメラと着替えがあればなんとかなるさ。

痛いです

Thu, 30 Jul 2009 17:05:32 +0900

右足の小指を角にぶつけて、爪がはがれた。

ちりちり痛いです。

でも、明日のお台場行きはやめません。

雨らしいですが、行きます。

痛い人です。

いたっ！！！

Thu, 30 Jul 2009 12:34:11 +0900

足の小指を角にぶつけた。

へっ、とか軽く流してたら、なんかうずく。

ちりちりと痛い。

で、見ると、爪がはがれて血がでている。

いや～、痛いけど、とりあえず消毒を。

l woke up later.

Thu, 30 Jul 2009 12:26:57 +0900

爆睡

残業できない体になってしまっています。

９月からSection Leader の代行にならざるを得ないのですが、たぶん体が持たないでしょうね。

前に過酷なSectionのLeader業務をしたときに、心を病んでしまって以来、心も体もついてきません。

１０月にはまた病んでいると思います。

爆睡

Thu, 30 Jul 2009 10:47:17 +0900

いや～、起きたら１０：３０ではないですか。

よっぽど疲れていたんではないですか。

さて明日の準備をしなくては。

一日延期

Thu, 30 Jul 2009 01:55:38 +0900

残業疲れで東京行きを一日延期。

んで、さっき航空チケットやホテルの予約をした。

とりあえずお台場のガンダムだけはしっかりと見ときます。

おっさん３０年来の夢。

フルスケールのガンダム。

yahoo動画でビルドアップ途中の映像が配信されているのを見ながら、仕事をしながらでも気持ちは常にお台場に。

ガンプラ工場にずっと展示して欲しいな。

1日延期

Thu, 30 Jul 2009 01:19:55 +0900

残業疲れで、早朝出発が無理っぽいので、一日遅らせることにしました。

それで、早朝特割の飛行機で行くことにしました。予約済み。新幹線より安いし、何より三分の一の時間で済みます。

お台場と秋葉原でうろうろしてみます。

ポケットアイテム

Wed, 29 Jul 2009 23:35:19 +0900

愛用のケータイW52P

ワンセグなんかは付いていません。

メールとネット、カメラ、簡易メモ、おサイフケータイがあれば今のところ事足りています。

デザインとフリップフラップを気に入って購入。

傷だらけでかわいそうです。

もう２年使いました。

先日バッテリ交換したのであと２年は使えるかな。

ねむい

Wed, 29 Jul 2009 22:10:46 +0900

まだ職場で、スケジュール調整で対応中。

眠い、ドーピングした効果が切れてしまいました。

明日、東京に行きたいのに、何も準備してないし。

眠い。

ドーピングが過ぎたか

Wed, 29 Jul 2009 21:10:03 +0900

リポビタンDライトを会社に着いたときに摂取。

通勤中はB’zでテンションあげて。

夕方まで仕事を爆走。

で、いま、コンビニで買ったおにぎりで晩御飯。

一息ついて、すごい虚脱感。

昔から好きなのさ

Wed, 29 Jul 2009 21:00:17 +0900

コンビニで見かけると買ってしまうカップヌードル。

飽きもせずまた買ってきた。

祈祷

Wed, 29 Jul 2009 11:56:10 +0900

昨日から続いたバタバタ、とりあえず午前中で解消。

午後からは黙々と作業だな。

これなら明日のお台場見学も無事にいけれそうだ。

でも、まだ新幹線もホテルも予約してない。

片道4時間だから、日帰りが不可能ではないけど・・・。

とりあえずは午後が平穏無事であることを祈る！

疲れた。

Tue, 28 Jul 2009 23:39:04 +0900

予定していた作業が全くできずに、不具合対応に追われた。

今日の予定分は明日の朝、始業前につぶしてしまわなくては。

木曜日にお台場に行けるんだろうか・・・。

１年前の不具合

Tue, 28 Jul 2009 23:30:13 +0900

１年前の不具合が今日の２０時に報告されてきた。

速攻対応したけど、今日しなければならないことができなかった。今日やらなければならなかったことは明日の朝、いつもかなり早いけど、対応しよう。

疲れた。

あううう

Tue, 28 Jul 2009 21:01:56 +0900

1年前の仕事でミスってたのが、今さっき判明。

お客様から電話が。

即効対応したけど。

原因も判明。

当時、とある緊急対応で作業したのが原因で、ほかの箇所を削除してしまうという制作のミス。

それのチェックで見落としした私もミス。

あううう。

めぞん一刻

Tue, 28 Jul 2009 18:31:13 +0900

めぞん一刻のフィギュアが当たるらしいです。

カフェオレはちょっと苦いです。

自ら作ったサービス残業

Tue, 28 Jul 2009 17:17:30 +0900

今日はコメントをいっぱい書いた。

仕事そっちのけで・・・。

いかん、いかん、今日中に仕上げなければならない仕事があるというに。

今日は22時くらいまで仕事して帰ろうっと。

yuki9902::blog

Tue, 28 Jul 2009 14:04:55 +0900

yuki9902::blog

このブログには、2005年からの文章やら写真やらがあります。

職場の知り合いに言わせると難しすぎて何を書いているか判らないそうです。

あと一時期の内容が痛すぎて暗くなるといわれました。

痛い内容は削除したので、普通に読めると思います。

自分の芯にある写真っていうものを見てもらえるとうれしいな。

湿度65%、室温30℃

Tue, 28 Jul 2009 10:42:49 +0900

堪えられません。

暑いというより、水をかぶったみたいにぐっしょりです。

エアコンの風でむき出しの皮膚は乾燥してしまいます。

肌荒れがひどく、どうも湿気が高いのにエアコンの風に当たることが原因かもしれません。

ハンドクリームを腕に塗ろうっと。

むふ

Tue, 28 Jul 2009 09:56:26 +0900

むふ、夏休み～。

去年はなかったからな。

今年は財布に余裕もあるし、お台場でガンダム見るだけでなく、何しようかな。

30半ばのおっさんがいけるところなんて限られてるけどね。

夏休みをゲット

Tue, 28 Jul 2009 08:35:14 +0900

今年は早めに夏休みをとることにしました。

7/30,7/31,8/3です。

ちょっとお台場のガンダムを見てこようと思います。

去年は夏休みをとらなくて、一人誰もいない会社で黙々と働いていて、体がバテバテになり、精神もやられて2回目の心療内科通い。

今年は7月のはじめに診察してもらったときに、もうカウンセリングは必要ないとの事で、あとはメタボリックの治療だけ。

ほんとに今年は自分の時間を楽しまなくちゃ。

桂ヒナギク

Mon, 27 Jul 2009 23:25:41 +0900

ああ、ついにこっちの方向に手を出してしまった。格好良いのでどうしても欲しかったんです。

やった、夏休みゲット

Mon, 27 Jul 2009 18:32:37 +0900

おっしゃー！夏休みゲット！！

今週末の7/30、7/31、8/3だ。

お台場ガンダムを見に行くよ。

オリンピック招致のマークが入る前に見に行くよ。

これからホテルとか新幹線のTicketを予約しなくちゃ。

やる気なし～

Mon, 27 Jul 2009 15:41:17 +0900

仕事中。

すこしサボり気味。

ソッチノケ～　～～～(／￣▽)／　～ф"" ““ф～

甥っ子のお泊り練習

Mon, 27 Jul 2009 10:57:36 +0900

弟の息子、甥っ子が昨日から我が家でお泊り中。

今年で小学2年生。

私もお婆も日中は仕事でいないので、お爺が一人で面倒を見ています。

今日は曾婆も介護ケアセンターに行っていていません。

お爺は孫がかわいくてしょうがないので任せとけばいいんで、心置きなく仕事をしときます。

いまだ独り身の私は、心は子供と一緒かな。

一緒になって遊んでいるからなぁ。

大きなお友達じゃなく、いつまでも童心を忘れない大人って呼んで。

リラックス

Sun, 26 Jul 2009 21:50:26 +0900

明日にはまだ時間があるので、好きなお酒でリラックス。

ひととき

Sun, 26 Jul 2009 21:46:15 +0900

[caption id=“attachment_765” align=“alignnone” width=“306” caption=“Otard XO”][/caption]

明日にはまだ時間があるので、ちょっと好きなお酒でリラックス。

ふぅ。

ガンプラ

Sun, 26 Jul 2009 20:50:21 +0900

HGUC RX-78-2 Ver. G30th

作りました。

墨入れ、頭部の塗装。

1/144は小さすぎてうまく塗装できません。

私の指先と道具では1/100が限界ですね。

できた

Sun, 26 Jul 2009 20:30:47 +0900

[caption id=“attachment_761” align=“alignnone” width=“461” caption=“HGUC RX-78-2 GUNDAM Ver.G30th”][/caption]

墨入れと頭部の塗装。細かすぎて目では判別がつかないところがあるけど、マクロレンズで撮影すると見える見える。

塗装を考えると私の指先では1/100が限界ですね。

GH-GDBFの左後のショックアブソーバー

Sun, 26 Jul 2009 01:07:10 +0900

左後のショックアブソーバーを交換してきました。

また新車時の感覚が戻ってきました。リヤのバタつきがなくなり、しっかりとトラクションが路面に伝わるようになって、アクセルオンでしっかりと前に進みます。

何で左後だけなんだろうか。人を乗せるときに左後に乗せることが多いからだろうか。

RX-78-2 G30th 作成中

Sun, 26 Jul 2009 00:55:28 +0900

[caption id=“attachment_753” align=“alignnone” width=“461” caption=“RX-78-2 作成中”][/caption]

作成中

HGUC RX-78-2 GUNDAM Ver. G30th

Sat, 25 Jul 2009 20:32:01 +0900

[caption id=“attachment_749” align=“alignnone” width=“461” caption=“ガンプラのおまけ”][/caption]

Vブック（ガンダムの操作マニュアル）が、ガンプラ買ったらもらえたよ。

1/144のガンダム、むちゃくちゃ良くできてる。

墨入れしながら組み立て中。

完成したら披露するよ。

ショックアブソーバ交換中

Sat, 25 Jul 2009 11:13:25 +0900

只今、スバルのディーラーで、ショックアブソーバを交換中です。

４万キロごとの交換って、結構大変だよ。
１年半に１回だから。

エンジンの吹き上がりにもたつきがあるのは、エンジンオイルが劣化してるから、前回の交換から５千キロ走ったので、ついでにエンジンオイルも交換です。

ショックアブソーバ交換は左後だけだけど、右もばたつきそうだなぁ。

Ameba blog

Sat, 25 Jul 2009 02:31:44 +0900

伊藤静さんのブログを見るに当たって、Amebaに登録しました。

Amebaは比較的blogが書きやすいのと、コメント、ペタ（Web拍手や足跡みたいなもん）が使いやすい。またユーザー数が多く、同じサービス内での巡回数がかなり多いということが分かりました。

しばらく、Amebaでもblogを書いていますが、かなりの訪問者数があります。少しタイトルとブログ名を工夫すれば、かなりの数の訪問者数が見込めます。

タレントさん、声優さんなどのブログも多く、かなり興味深いですね。ちょこちょこ、巡回するうちに、意外に自分が声優ファンであると気がつきましたよ。声優の中島沙樹さんからペタをもらったときは結構うれしかった。

芸能人ブログが人気あるのもよく分かる気がします。自称芸能人の中には虚構だろうと思われる人も多いけど、有名な人の方が意外にプライベートをあっけらかんとさらしていることも多いので、すごい親近感が湧くことがあります。コメントを直接読んでくれる人も多いので、さらに親近感が湧くかな。

あと録画のテレビとは違ってオンタイム、リアルタイムの情報が流れてくるのがおもしろいよ。

といって、ここをおろそかにしてはいけませんね。

Source review of VB.net programing

Sat, 25 Jul 2009 02:15:07 +0900

PG初心者が作ったぐちゃぐちゃSourceのアプリを、また別のPG初心者が改造して、その初心者が退職するにあたり、引き継ぎと最後にせっかくなのでSource reviewをしました。

Source reviewしながら、問題箇所をばっさりと捨て去って、一からプログラミングし直し。

彼が三週間かけて作ったSourceは跡形もなく、半日で作り替えました。

教えながら、しゃべりながら、プログラミングというのは、結構体力を使うもんです。

終わったときは、ちょっと喉が痛かった。

Source review

Fri, 24 Jul 2009 15:34:32 +0900

プログラミング初級者がVB.netで作ったアプリを、別のプログラミング初級者が改造する仕事がありました。

その作業員が退職するにあたり、引継ぎを行いつつ、Source reviewを行いました。

大元が不出来のアプリなので、思い切ってロジックを見直しつつ、新たなコードをガシガシ書きました。

初級者が3週間掛けて改造した部分を、半日ですべて書き直しました。

解説しながらだったので、のどが渇いて、ちょっと痛いです。

500th Entry

Thu, 23 Jul 2009 08:45:25 +0900

前に500記事を超えてたんですが、見せられない記事を整理したら今回が500記事目になりました。

見せられないのは病んでたころの痛々しい日記とか。自分にとって何かプラスになるものでもない不必要な記憶なのでずばっと消してしまいました。

近々、今はまっていることぐらいしか現時点の記事はないけどね。

「ハヤテのごとく」と「伊藤静」。気がついたら通信販売に支払ったお金は、すごい金額になっていました。レンズとPSPを買ったのとアマゾンのギフト券を送ったのが大きいですが。それでもなおさらにBDタイトルを5万円分ぐらい注文してます。さらには4万円ぐらいBDタイトルを注文しようとしています。散財に歯止めがかからない。勢いに乗って「フィギュア」を注文してしまいそうで、ちょっと自分が怖い。

ねむい～

Thu, 23 Jul 2009 08:23:24 +0900

しっかり睡眠をとっているんですけど、眠いです。

1日の平均睡眠時間は5.5時間です。

その昔は3.5時間ぐらいでしたが、30歳ぐらいからは体が持たないので5.5時間にしてます。

それでも最近は眠いので8時間くらいは眠りたいところです。

でも時間がもったいないと思ってしまいます。

夏休みをとってゆっくり休みたいね。

アバター表示に対応

Wed, 22 Jul 2009 14:43:44 +0900

グローバルアバター(GRAVATAR)に対応してます。このブログで使用しているメールアドレスとGravatarに登録したメールアカウントが一致すれば、Gravatarに登録したアバター画像が自動で表示されます。

日食見えた

Wed, 22 Jul 2009 11:28:22 +0900

久々に日食が見えました。うす曇だったので肉眼でも確認できました。

三日月よりも細く大きく欠けています。ケータイ、広角つけたデジ一で撮影しましたが、ケータイは光が入りすぎて形が判らず、デジ一は点ですがかろうじて欠けているのが判ります。

まだ見えていると思います。日食時間はこれまでにない1時間という長い時間なので、見てない人は今すぐ見てみましょう。

日食極大

Wed, 22 Jul 2009 11:20:40 +0900

見えました。

うす曇りだったので肉眼でも見ることができました。

ケータイのカメラではこれが限界。

わからないですね。

デジ一でも撮りましたが、広角しかもっていなかったので、点です。

まあ、太陽の写真は本職に任せましょう。

現在

Wed, 22 Jul 2009 10:16:07 +0900

ここの空は曇ってて、太陽の形すらわからない状況。

11時過ぎが最大なのでそれまでに雲が薄くなるかな・・・。

検索率激減

Wed, 22 Jul 2009 08:55:20 +0900

ブログツールをMovable TypeからWordpressに換えてから、検索エンジンでのヒット率が激減しました。

3年ぐらい使ってきたページ階層（ディレクトリ）を変更したので無理もないですが、同じように検索されるようになるまで多分3ヶ月以上かかるものだと思います。こまめに記事を書いていれば、そのうちニッチなキーワードで最上位にランクされるとは思いますけど。

色々なところにリンクやトラックバックをしていけばいいのでしょうが、むしろ限定的な読者のほうが安心して書けるので良いかな。負け惜しみ。。。。

今日の空

Wed, 22 Jul 2009 08:14:39 +0900

今日は皆既日食ですが、生憎曇り空です。

なんとか太陽の形が分かるので、もしかしたら肉眼で観測できるかもしれません。
間もなく時間ですね。

DTCP-IP

Tue, 21 Jul 2009 23:39:05 +0900

DiXiM Digital TV (DTCP-IP対応メディアプレーヤー)が発売され、ようやく一般のパソコンでもBDレコーダーなどに録り貯めた映像を見ることができるようになりました。

動作環境にはHDCPとCCOPに対応したハードウェアとドライバソフトが必要なります。

約1年前に環境移行した甲斐もあって問題なくクリア。

早速、DiXiM Digital TVをオンラインで購入し、Windows VISTA Ultimate x64 (AMD Phenom X4) にインストールしました。

DTCP-IP Media Player Application

Tue, 21 Jul 2009 17:29:35 +0900

DiXiM DigitalTV ついにDTCP-IP対応のPC用メディアプレーヤーソフトが発売されましたね。

これでHDDレコーダーに録り溜めたコピー制御つきコンテンツがPCで見られるようになります。

日本特有のデジタル放送のコンテンツ利用規制は、長らくPC市場を凍りつかせてました。テレビ局や大手制作会社が意固地になって既得権益の保護、デジタル映像機器への著作権補償料を要求したため、メーカーを擁護する総務省とコンテンツホルダー（ただし一部の悪徳業者のこと）を擁護する文化庁との喧嘩にまで発展しました。この揉め事の間に総務省の思惑通り地デジへ移行が進まなかったことが、総務省に火をつけてしまい、本気でコンテンツホルダー業者に行政指導が入ったようなうわさがあります。だんだんとテレビ業界が衰退してきたことも影響し、テレビ局の発言力は小さくなってきています。むしろコンテンツ配信でいかに収益を上げるかのビジネスモデルの転換が急務になって来たようです。今一度テレビ人口を確保するためにはテレパソを復活させるしかなくなったようです。

リポビタンD ライト

Tue, 21 Jul 2009 10:47:21 +0900

なんとなく体調が優れない。

ここ１ヶ月ぐらい比較的元気だったのですが。

病気をしていないときがない、体調が悪くないときがない、というのがこの３年間だったのですけれど。

神経系の病気を治して、メタボリックシンドロームの各症状を治療しつつ、ここのところ比較的元気だったんですが、１週間ぐらい朝起きたら体が重い。

今日はリポビタンDライトを飲んで、少しやる気が戻ってきた。

血圧が下がっているのがやっぱり朝辛い原因かな。

高血圧よりはましだけど。

いやーまたサスペンション交換です・・・。

Mon, 20 Jul 2009 18:44:12 +0900

３５０００キロでリヤサスペンションを交換したんですが、７５０００キロになって、またリヤサスペンション交換です。

もともとの製品の耐久性が低いのが問題ですが、サーキット走行に適したチューニングされた製品なので、寿命はこんなもんでしょう。

シリンダー内のオイルを交換できるものではないので、新品交換です。

またしても

Mon, 20 Jul 2009 18:35:30 +0900

インプレッサ（GH-GDBF）の左リヤサスペンションが、またコトコトと鳴り始めました。

またしてもショックアブソーバーがへたってしまったようです。まだ保証期間内なので新品交換します。

KYBの製品のようですが、GDBのパーツ入札時に指摘された品質の問題がやはりクリアできていないようです。本体の性能に見合う耐久性を持っていないのが実情です。富士重工も当初価格が見合うならビルシュタインを採用するつもりだったようですが、本体価格に対して高価すぎたらしく、仕方なしに日本メーカーのショックアブソーバーになったようです。ショックアブソーバーに関しては、日本はまだまだ遅れていて、世界のトップクラスにはほど遠いです。

外品でもビルシュタインに交換してみたいな。。。

「ハヤテのごとく」が

Mon, 20 Jul 2009 00:55:50 +0900

「ハヤテのごとく」を見てたら、近くに雷が落ちて映像が。。。。

また大雨で、映像が飛びまくった。

最悪。

まあ、地上波でも録画してるから何とかなるのか。

どっちにしろBlu-Ray買うから良いか。

LUPICIA DARJEELING FIRST FLUSH 2009 PREMIUM

Mon, 20 Jul 2009 00:23:49 +0900

[caption id=“attachment_720” align=“alignnone” width=“461” caption=“LUPICIA DARJEELING FIRST FLUSH 2009 PREMIUM”][/caption]

皆既日食の日が近づいてきましたね。

Sun, 19 Jul 2009 20:44:20 +0900

前に皆既日食を見たのは25年ぐらい前だったかな。

溶接用のゴーグルを通して見たよな。

今回は夏で皆既日食がかなり広い範囲で見られるようなので、見たことない人は一瞬薄暗くなるあの現象を楽しんでください。

今回は平日の仕事中だし、どうやらここの天気では曇りだから見られないようだね。

残念。

また7年もすれば部分日食が見られるかも知れないし。

世界天文年の今年いろいろ楽しそうなんですけどね。

Bluray Soft

Fri, 17 Jul 2009 22:00:10 +0900

狼と香辛料IIの全四巻、ハヤテのごとく２一巻のそれぞれ初回限定版を予約した。あと狼と香辛料のNitendoDSゲームを含めて4万円ぐらいの出費。まあ、来年の春頃までの予約だからいいかな。

それより狼と香辛料のBlurayBoxを買うかな・・・。

ソフトって結構お金かかる。

うう、だるい

Fri, 17 Jul 2009 09:27:48 +0900

気分的なものでなくて、頭が痛くて体がだるくて重い。熱はないようなので風邪ではないだろうけど、疲れが出てきたんだろうね。３連休だからゆっくり休めるかな。

雨天

Fri, 17 Jul 2009 08:18:49 +0900

雨、そんな時も私は好きです。

今日はたまった疲れがどっと出てきて、頭が痛いのと体がだるい。
熱はないようですが。

明日から３連休ですね。
雨天ですから家でゆっくり疲れをとらなくちゃね。

世の中は

Thu, 16 Jul 2009 14:47:34 +0900

ネットアクセス数が激減しているのでしょう。

ネットがスムーズです。

その代わり、ＤＱ９関係のサイトのアクセスは激増。

某通販サイトのコメント欄は炎上してしまう状態。

ＤＱ９をいまだ手に入れていないです。

最近ＲＰＧを面倒くさいと感じてしまうので。

今日の夕方

Wed, 15 Jul 2009 22:51:10 +0900

午後から曇ってましたが、夕焼けがきれいでした。

スコール

Wed, 15 Jul 2009 14:19:20 +0900

お昼に、ざざざと通り雨。

少しは気温が下がってすごしやすくなったかな。

昨日も遅くまで仕事してたので、午後からかなり眠い。

外気温が下がるとエアコンの効きもよくなるので、うつらうつらとしちゃうよ。

(O)ふぁ・・

いやーん、スコールが

Wed, 15 Jul 2009 13:36:48 +0900

朝、あんなにすっきりと晴れていたのに、お昼にごろに、空が真っ暗。

途端に、びゅーびゅー風が吹き始め、雨粒がザザザと窓をたたきました。

スコールが降っちゃいました。

今は雨雲が東のほうへ遠ざかっていき、雨は上がっています。

少し気温が下がって楽になったかな。

夏空を見て

Wed, 15 Jul 2009 11:00:17 +0900

ここ３年ぐらいモルジブに行きたいと思ってるんですが、出不精、というか旅行下手なもので尻が上がらないです。モルジブはリゾートホテルで６泊ぐらいでも２０万円台で行けるようですね。一人で行くのもなんですが、やっぱり行って見なきゃわかりませんもんね。

行ってみようかな。

夏空

Wed, 15 Jul 2009 10:41:26 +0900

今日は、夏！って空になって、暑いですが気分は清々しいです。

夏の紺色のような澄み切った空、好きです。

これに白い砂浜、エメラルドグリーンの海があるとさらに最高です。

沖縄とか、余裕があればモルジブとか行きたいな。

ぐったり

Wed, 15 Jul 2009 01:16:17 +0900

Excel VBAの所為で、ぐったり。好きじゃない、すかっとしないPG。やりたいことができないのがもどかしい。

あかん

Tue, 14 Jul 2009 23:32:58 +0900

Excelってなんであんなに癖があるんだろうか。

VBAの実装がOLE経由で、ネイティブ実行でないというのが、様々な制限を生んでいるのかな。

とりあえず、今日もすっごい疲れた。

JavaとかVB.Netの方が簡単じゃん。

巷では

Tue, 14 Jul 2009 13:00:35 +0900

DQ9がはやっているようで、土曜日からネット人口が激減しているみたいですね。

私はやってませんが。

ブロガーたちもこぞってDQ9ですもんね。

面白い現象だ。

呑みに行きたい

Tue, 14 Jul 2009 08:39:13 +0900

伊藤さん（声優）のブログ見てたら、非常に呑みに行きたくなった。

酒好きだけど、遠方の自動車通勤なので、飲み歩くことはままならないです。

ビジネスホテルや漫喫や車中泊をしなくてはならないのがネック。

家に帰っても呑むのは難しいな、平日は翌朝早いので酒が残ると危ないしね。

また、炭酸の入ったお酒が苦手なんですよね。

一口で、顔面蒼白でリバースしちゃうから。。。

ウィスキー、ブランデー、焼酎のロックかストレートならボトル半分とかいけるんですが。

最近は誰も誘ってくれなくなりましたね。

若い人たちのグループには入れないし。。。

１：１

Mon, 13 Jul 2009 08:32:44 +0900

朝からなんて暑さでしょう。

どっと汗が噴出してきます。

お台場の１：１ガンダムが完成して公開されていますね。

見に行きたいな。

１：１のガンダムは、子供のころからの夢、強い期待ですから。

夏休みをとって見に行こうかな。

ガンダム大地に立つ

Sun, 12 Jul 2009 23:29:15 +0900

すみません、ありきたりなタイトルです。

PS3のPlay Station HOMEで予想どおりガンダムが出現しました。 PS3の画面をキャプチャするのが面倒くさいので、デジカメで撮ってみました。

バーチャルな世界でガンダムが立っても、おもしろくない。だってそんなのすでにゲームの中でできてるじゃん。

それよりお台場に立っている1:1のガンダムを見に行きたい。手の向きとか微妙に変ですけど。

ガンプラなら1:30かPGのVer2.0が出たら欲しい。

今日も

Sun, 12 Jul 2009 00:44:51 +0900

今日は土曜日、心療内科に行くために朝早くから起きて出かけました。

金曜日の朝には寝ぼけてて、土曜と思い込み病院に行こうとしてました。部屋を出た時にはっとして気がついて、今日はまだ金曜日ということを思い出して、会社に行く準備をいそいそと。

30代半ばになるとプログラムはきついですね。脳神経が全く追いつかないです。

さて、今日は 07:30 - 出発 08:10 - 山崎デイリーストアで「ロールちゃん」と「コロッケサンド」を購入 08:15 - 病院の駐車場で、朝飯 08:45 - 心療内科で診察 09:30 - 診察終了 09:50 - ビックカメラの開店に並ぶ 10:15 - ドラクエ９を一生懸命買っている人を哀れにみる 11:10 - ビックカメラから出る 11:30 - デオデオに立ち寄る 12:30 - 家に帰って昼飯 13:10 - 昼寝 14:55 - 近くの歯医者へ 15:50 - 歯医者を出る 16:40 - ブリジストンタイヤ館でタイヤ購入 17:30 - タイヤ交換終了 18:15 - 帰宅 : : ブランデーでほろ酔いで激眠。

スリックからラジアル

Sat, 11 Jul 2009 22:44:40 +0900

つんつるてんになっていたタイヤを交換しました。

POTENZA RE050 235/45R17

一本あたりの価格38,000円です。

四本で16万円に近いです。

うほ、たけー。

でも一本3万円少々にまけてもらいました。

なので、工賃やら廃タイヤ代やらで13万円少々です。

まあ、このタイヤ、通常は店頭置きしてないので、注文取り寄せです。

POTENZA RE050 - Bridgestone -

Sat, 11 Jul 2009 19:32:17 +0900

タイヤ交換しました。

一本の定価38,000円ですけど。約30,000円で購入して、組み替えとバランス取り、タイヤ廃棄料とあわせて130,000円少々でした。

新品のタイヤはいいっすね。静かだし、突き上げもないし、コーナーの限界も高いし。

結局、前のタイヤは完全に溝が無くなるまで使いました。雨の日は全くグリップしませんでした。晴れた日は、ワインディングに持ち込んでブレーキでブレークさせて、スキール音を立てて遊んでました。良い感じにグリップが抜けていくのでおもしろいけど、速度領域はかなり低くなります。

まだやってます

Fri, 10 Jul 2009 22:37:49 +0900

久々にたかがVBAなのに全力でプログラミングして、疲れました。

エクセルめ、トラップがいっぱい仕掛けてあるじゃないか。

きついぜ。

数週間分の仕事を一度にしたような疲れです。

やっぱりこの業界は定年３５歳なのかな。

エアコンの風が体に痛い

Fri, 10 Jul 2009 21:04:29 +0900

まだ職場にいます。

エアコンの風が体に当たり、筋肉が収縮して痛いです。。。。

血流がよどんでいます。

しばらくほうっておくと、神経系の病気につながるので、今日は帰ったら体を温めてやらないと。。。

高千穂牧場カフェ・オ・レ

Fri, 10 Jul 2009 08:21:31 +0900

大体の缶コーヒーやカフェラテの商品は、乳脂肪と糖分が結びついたコロイドが舌の酸味を感じる部分に入って、酸っぱい後味が残ります。
この味覚の穴は人によって違うようで、この酸味を感じない人は多いようです。

そんななか、私が後味を気にせず飲めるのが、この「高千穂牧場カフェ・オ・レ」です。

数少ない楽しみです。

花畑牧場

Fri, 10 Jul 2009 00:58:28 +0900

アマゾンで注文していた花畑牧場の「生キャラメル」が届きました。

荷物の受け取りは家人にしてもらっていて、ちゃんと冷蔵庫に入っていました。

よく冷えているキャラメルを早速一粒。

すぐに口の中の温度で溶け出して、濃厚な味が口いっぱいに広がり、あっというまになくなってしまいます。

おいしい。

また冷蔵庫にしまってまた明日。

でも、明日仕事から帰ってきたら無くなってるんだろうな・・・。

smcPENTAX DA 35mm F2.8 Macro Limited

Fri, 10 Jul 2009 00:41:04 +0900

小さいレンズが欲しくて買いました。 ASP-Cサイズだとsmc PENTAX FA 50mm F1.4が75mm相当になるので意外に不便。 smc PENTAX DA★ 55mm F1.4 [IF] SDMだと最短撮影距離が長く、被写体に近づいて撮るのが難しい。そこで、標準マクロが欲しくなったわけです。これだと52.5mm相当で等倍撮影が可能です。

いまさら

Thu, 09 Jul 2009 18:11:19 +0900

商品企画の会議に会社のトップが入ってきて、業態の話を始めるのですが、どうもアマゾンみたいになりたいらしい。（トップはアマゾンを知らない）

他社の商品販売を受託して、当社の通販システム（今はまだない）で売りたいとおっしゃる。

うーん、毎年同じような話がでるけど、具体的に何が売りたいの？

どこか商品を持っているクライアントがいるの？

基盤作るのに「予算はない」とのことなので、いきなり頓挫。。。

うちには物販するノウハウは皆無です。

なにせ、OAシステムの受託開発と人材派遣しかしたことないから。

とりあえず、OEMで商品確保してアマゾンマーケットプレースとか楽天に登録して、通販のノウハウをつまなきゃね。

物流とか決済システムとか、本当、皆無だから。

HDR

Thu, 09 Jul 2009 11:33:35 +0900

HDR(High Dynamic Range)画像の作成が気になっています。 24bit(各色8bit)のJPEG画像では、カメラ内現像時にかなりの色情報を失ってしまうわけです。フィルム時代もポジフィルムはダイナミックレンジが5~7ev程度(適正露出から-2ev～+3evといわれてました)しかありませんでしたが、JPEGはそれよりさらにダイナミックレンジが狭いのです。 CCDやCMOSから取り出されるRAWファイルは、およそポジフィルムと同等以上のダイナミックレンジがあるようです。記録されているRAWのダイナミックレンジは機種ごとにさまざまなようです。

まあこのRAWから適正、オーバー、アンダーの画像を取り出して合成したあとJPEGに出力すると、RAWのダイナミックレンジ内ですが、擬似的な広いダイナミックレンジを確保できます。当然JPEGの8bitに丸められるので全体的に濃い色になることもあれば、非常に眠い絵になることもあります。合成した処理中の画像のトーンカーブの調整をしてほしい部分の色の諧調性を確保したり、不必要なところはコントラストを確保したりします。これらはRAW現像ソフトを用いればかなりの部分で補えます。

ビデオ撮影に興味あり

Thu, 09 Jul 2009 00:51:56 +0900

ビデオ撮影が最近気になります。

まだVHSやベータの頃（中学ぐらい）には、学校に機材が揃っていて、編集卓やスタジオなどもありましたか、比較的自由に使わせてもらっていました。

その後、８mm、Hi8、DV、DVDがありましたが、現在はデジタルベータカム（プロ用途）、HDV（主にプロ用途）、AVC(BD/DVD/SDメモリ)の時代ですね。

デジタル一眼レフがCMOSセンサーを搭載し標準的にHDビデオ撮影機能を持つようになって、忘れてたビデオ撮影にちょっと興味が湧いてきた感じです。

デジタル一眼レフのレンズは、一般的なビデオカメラのレンズに比べ圧倒的に解像力、コントラスト、色再現、低収差が優れ、はるかに描写力が高いのです。

デジイチではHDビデオ撮影中の操作性の悪さやショルダーホールドができず手持ち撮影が難しい、音声との同期、録音機材の接続性の悪さなどの欠点がありますが、ちょっと初めて見るには意外に安上がりなのかも知れません。

普通のデジイチで、高速連写を使うと、まるで動画のような撮影が可能です。

K20Dの連写機能で試してみようかと思います。

デジタルカメラのファインダー

Wed, 08 Jul 2009 11:56:43 +0900

APS-Cサイズのデジタルカメラになって、ファインダーがものすごく見にくくなっています。

ペンタプリズムを縮小し、ファインダー像を接眼レンズで拡大するあまり、倍率が高くなってしまいファインダー内が暗くなります。さらには接眼部が小さいためファインダー内の見渡しが非常に悪い。めがねを掛けるとケラれて、各種情報が見えなくなります。

私の場合、乱視がひどいため視度補正レンズをつけたファインダーでも像が２重３重にみえてピントあわせができませんので、めがねを掛けることが必須となります。

先日、67用アイカップMIIを購入して、視度補正レンズを入れてみたのですが、めがねを掛けないと乱視で像がずれるし、裸眼でも情報部分がケラれるし、めがねを掛けたらさらに遠くなってケラれるし。

今のカメラの問題点は小さくすることにあります。ペンタプリズムは大きくするべきです。フィルムの時代と違ってデジタル一眼レフは小さく作る必要性はまったくないと思うのです。ユーザーが限定的で、コンパクトでは限界になった人が使うため、細かな性能に気を使うべきなのです。

熱烈歓迎わんだーらんど - 咲 saki -

Wed, 08 Jul 2009 09:08:39 +0900

今、頭の中でサビの部分がエンドレスループ。

これも伊藤静さんが出演されているアニメのエンディングテーマです。歌は、伊藤静さん、小清水亜美さん、釘宮理恵さん、植田佳奈さん、白石涼子さんの５人で歌ってますね。

マージャン用語が出てくるので７０年代８０年代のコミックソングを思い出しますわ。テンパイ、即リー、一発ツモなんて。

雨

Wed, 08 Jul 2009 08:33:37 +0900

雨の日。

今日も雨。

雨の日は好き。

周りの音を掻き消して、聞こえるのは近くを通る車の水しぶきの音。

それでも湿気が音を消していく。

空は白く、低いのか高いのかさえもわからない。

バックミラーに見える自分の車のウィンング。

雨粒がウィングで整流された空気に吸い込まれる。

信号をぼーっと眺める。

雨、今日一日の朝。

疲れてたのかな

Wed, 08 Jul 2009 06:36:51 +0900

知らないうちに眠ってた。レム睡眠になったときは歯を磨かなきゃと思いながらも動けず、そのまままた深く眠りに落ちていって、今朝は少し寝坊。目覚ましもかけてなかった。

Play Station HOME

Tue, 07 Jul 2009 12:34:34 +0900

Play Station HOME で「初音ミク」がライブ（？）をしてました。

名前を聞けども、見たことはなかったのです。

昨日はじめてみました。

動いているのは面白いですね。

歌もちゃんと歌に聞こえます。

自分で設定したりして遊ぶには面白そうです。

で、話は変わって、PS3が熱暴走してハングアップします。

Play Station HOME と熱暴走

Tue, 07 Jul 2009 09:11:10 +0900

Play Station HOME は処理が重いんですね。 FANがすぐに全開で回り始めます。まだ見たことのない「初音ミク」とは何ぞやと、そのライブ？を見るために２時間前から電源を入れてHOMEでひたすら開演を待ちます（ダウンロードします）。

１曲だけですが、「初音ミク」が踊って歌ってました。直接の感想は避けます。

さてほかに HOME のど真ん中に「BANDAI NAMCO」の看板がついたでっかい囲いが突っ立てます。建設現場のような雰囲気です。たぶん３０周年を迎えた「アレ」が中にはあるのだと思います。

七夕

Tue, 07 Jul 2009 08:34:45 +0900

七夕ですにゃ。

旧暦でいうとまだ１ヶ月ぐらい先の話ですが。盆入りの行事です。儒教やら仏教やらの行事が混らがらってますけど。笹を依代としてささげたことが始まり（この時期は山に大量に笹が生えるので伐採して燃していた）で、今では願い事を書いて燃していますね。

うちのほうでは、盆行事の意味合いが強いので旧暦の７月７日に近い西暦の８月７日に七夕です。また旧暦の７月１３日に近い８月１３日にお盆となります。

そもそも宗教的な意味合いより季節行事であるので旧暦のほうがマッチしています。七夕は立秋よりあとの行事なので秋の季語だそうです。空も８月の中にはきれいに晴れてますからね。

BDドライブ

Mon, 06 Jul 2009 16:45:46 +0900

PCにBDドライブを搭載しました。

BR-PI816FBS-BK (BUFFALO Pioneer製ドライブ SATA)を購入しました。

これまで長らくPanasonic製のDVD-RAMドライブ(ATAPI)とNEC製のDVD-+R/RWドライブ(ATAPI)を使ってました。 DVD-RAMはデータを保存したものにカートリッジ式のDVD-RAMメディアがあったのと、NEC製ドライブがうるさいので音楽CDやDVD-Videoを再生する場合に使ってました。 NECのドライブは、CD-R/RWの書き込みができるために使っていたのと、読み込み速度がPanasonicのドライブより早かったので使ってました。どちらもCRPMに対応はしていたのでデジタル放送を記録したDVD-Rなどの再生はできました。 BDドライブの搭載でPanasonicのドライブもNECのドライブも現役引退です。

PS3のHDD換装

Mon, 06 Jul 2009 16:05:53 +0900

WD5000BEVT (WesternDigital製SATA 2.5インチHDD 500GB)を購入して、PlayStation3のHDDを交換しました。もともと60GBモデルでしたが、特に不自由してるわけではないのですが、そのうちメディアプレーヤーの母艦になるであろうと思って、交換してみました。

換装後に気になったのは、2回ほどPlayStation Homeがハングアップしたことです。ハングアップは連続して発生したので、時期的なものを考えると熱暴走のような気がします。 PS3は一番初期のモデルで発熱量も消費電力も大きいです。ゲームをしているときにハングアップしたわけではないので、もしかしたらPlay Station Homeにバグがあるのかも知れませんが。。。熱暴走は1年前にも経験したような気がします。

肌荒れが治らない・・・。

Mon, 06 Jul 2009 12:52:52 +0900

高温で湿気の多いところに行くとすぐに肌に吹き出物ができてしまいます。

アレルギー体質を改善しようと食生活には気をつけていますし、私生活の環境も気をつけています。

しかし、職場環境はコントロールできないですね。

どうしても外気の湿気を取り入れてしまい、気流にムラが多く、体温が上がり発汗が多くなるので、肌荒れを起こします。

あとお昼ごはんを食べた直後になるので、アレルゲンが含まれているような気がします。

たぶん卵なのでしょうね。

Excel VBA セル内の文字列のチェックと変換

Mon, 06 Jul 2009 11:49:00 +0900

WordPressのプラグインで、WP-Syntaxっていうソースコードを整形して表示するものがあります。これならいちいちHTMLタグやエスケープシーケンスを入れずに済むのでサンプルを公開しやすくなるかな。

このコードは実際に動きます。

Excelのマクロでコード編集を表示して貼り付けてください。後はシートにボタンを貼り付けて、先頭の２つのプロシージャーを呼び出せばＯＫです。中に"N2S"という関数がありますが、Nullチェックをしています。何か作って置き換えてください。

Option Explicit

'定数
Public Const COMMAND_CHECKCELL_WIDEALPHABET = 1
Public Const COMMAND_CHECKCELL_WIDENUMBERS = 2
Public Const COMMAND_CHECKCELL_WIDEMARKS = 3
Public Const COMMAND_CHECKCELL_WIDECOMMA = 4
Public Const COMMAND_CHECKCELL_WITHOUTINCLUDEDCHAR = 5

Public Const COMMAND_CONVERT_WIDEALPHABET = 1
Public Const COMMAND_CONVERT_WIDENUMBERS = 2
Public Const COMMAND_CONVERT_WIDEMARKS = 3
Public Const COMMAND_CONVERT_WIDECOMMA = 4

'色
Public Const COLOR_PINK = 16711935
Public Const COLOR_BLUE = 16776960

'セルのフォント情報の保存
'メンバーは何が入ってくるかわからないのでとりあえず「Variant」
Type tyFontInfo
 vBold As Variant
 vColor As Variant
 vColorIndex As Variant
 vFontStyle As Variant
 vItalic As Variant
 vName As Variant
 vShadow As Variant
 vSize As Variant
 vStrikethrough As Variant
 vSubscript As Variant
 vSuperscript As Variant
 vUnderline As Variant
End Type

'イベント共通処理
'チェック
Public Function gExecCellCheck(ByVal lCommand As Long) As Boolean
 On Error GoTo ErrProc

 Dim lRow As Long
 Dim lCol As Long
 Dim objWs As Excel.Worksheet

 Set objWs = Application.ThisWorkbook.ActiveSheet
 lRow = Application.ActiveCell.Row
 lCol = Application.ActiveCell.Column
 Application.ScreenUpdating = False
 
 Select Case lCommand
 Case COMMAND_CHECKCELL_WIDEALPHABET, _
 COMMAND_CHECKCELL_WIDENUMBERS, _
 COMMAND_CHECKCELL_WIDEMARKS, _
 COMMAND_CHECKCELL_WIDECOMMA
 If CheckCell_WideThin(objWs, lRow, lCol, lCommand) Then
 Else
 'チェック対象が見つからなかった
 End If
 
 Case COMMAND_CHECKCELL_WITHOUTINCLUDEDCHAR
 If CheckCell_WithOutIncludedChar(objWs, lRow, lCol) Then
 End If
 
 Case Else
 
 End Select
 
 Application.ScreenUpdating = True
 MsgBox "チェック終了", vbOKOnly + vbInformation
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "gExecCellCheck")
 Resume ExitProc
End Function

'イベント共通処理
'変換
Public Function gExecCellConvert(ByVal lCommand As Long) As Boolean
 On Error GoTo ErrProc

 Dim lRow As Long
 Dim lCol As Long
 Dim objWs As Excel.Worksheet

 If vbYes = MsgBox("変換処理をすると元に戻すことができません。" & vbCrLf & _
 "事前にバックアップを作ることを推奨します。" & vbCrLf & vbCrLf & _
 "変換処理を行いますか？", vbYesNo + vbQuestion) Then
 Else
 GoTo ExitProc
 End If
 Application.ScreenUpdating = False
 
 Set objWs = Application.ThisWorkbook.ActiveSheet
 lRow = Application.ActiveCell.Row
 lCol = Application.ActiveCell.Column
 
 If Convert_Letter(objWs, lRow, lCol, lCommand) Then
 MsgBox "変換終了", vbOKOnly + vbInformation
 Else
 '変換の失敗
 MsgBox "変換できませんでした。", vbOKOnly + vbExclamation
 End If
 
ExitProc:
 Application.ScreenUpdating = True
 Exit Function
ErrProc:
 Call ErrFunc(Err, "gExecCellConvert")
 Resume ExitProc
End Function

'選択中のセルの書式を保存した後、変更
Private Function CheckCell_WithOutIncludedChar(ByVal objWs As Excel.Worksheet, _
 ByVal lRow As Long, _
 ByVal lCol As Long) As Boolean
 CheckCell_WithOutIncludedChar = False
 On Error GoTo ErrProc
 
 Dim strCellValue As String
 Dim lCnt As Long
 Dim arrErrStringIdx() As Long
 
 ReDim arrErrStringIdx(0)
 
 strCellValue = objWs.Cells(lRow, lCol).value
 If CheckLetter_WithOut_OSIncluded(strCellValue, arrErrStringIdx) Then
 Else
 For lCnt = 0 To UBound(arrErrStringIdx)
 If objWs.Cells(lRow, lCol).Characters(arrErrStringIdx(lCnt), 1).Font.Color = COLOR_PINK Then
 objWs.Cells(lRow, lCol).Characters(arrErrStringIdx(lCnt), 1).Font.Color = 0
 ElseIf objWs.Cells(lRow, lCol).Characters(arrErrStringIdx(lCnt), 1).Font.Color = 0 Then
 objWs.Cells(lRow, lCol).Characters(arrErrStringIdx(lCnt), 1).Font.Color = COLOR_PINK
 Else
 End If
 CheckCell_WithOutIncludedChar = True
 Next
 End If
 
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "CheckCell_WithOutIncludedChar")
 Resume ExitProc
End Function

'機種依存文字以外のチェック
Private Function CheckCell_WideThin(ByVal objWs As Excel.Worksheet, _
 ByVal lRow As Long, _
 ByVal lCol As Long, _
 ByVal lMode As Long) As Boolean
 CheckCell_WideThin = False
 On Error GoTo ErrProc
 
 Dim strCellValue As String
 Dim lCnt As Long
 Dim arrWideStringIdx() As Long
 Dim arrThinStringIdx() As Long
 Dim flgCheckOK As Boolean
 
 strCellValue = objWs.Cells(lRow, lCol).value
 
 Select Case lMode
 Case COMMAND_CHECKCELL_WIDEALPHABET
 flgCheckOK = Check_WideToThin_Alphabet(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case COMMAND_CHECKCELL_WIDENUMBERS
 flgCheckOK = Check_WideToThin_Numeric(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case COMMAND_CHECKCELL_WIDEMARKS
 flgCheckOK = Check_WideToThin_Mark(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case COMMAND_CHECKCELL_WIDECOMMA
 flgCheckOK = Check_WideToThin_Comma(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case Else
 
 End Select
 
 If flgCheckOK Then
 Else
 GoTo ExitProc
 End If
 
 '全角チェック
 For lCnt = 0 To UBound(arrWideStringIdx)
 If objWs.Cells(lRow, lCol).Characters(arrWideStringIdx(lCnt), 1).Font.Color = COLOR_PINK Then
 objWs.Cells(lRow, lCol).Characters(arrWideStringIdx(lCnt), 1).Font.Color = 0
 ElseIf objWs.Cells(lRow, lCol).Characters(arrWideStringIdx(lCnt), 1).Font.Color = 0 Then
 objWs.Cells(lRow, lCol).Characters(arrWideStringIdx(lCnt), 1).Font.Color = COLOR_PINK
 Else
 End If
 Next
 '半角チェック
 For lCnt = 0 To UBound(arrThinStringIdx)
 If objWs.Cells(lRow, lCol).Characters(arrThinStringIdx(lCnt), 1).Font.Color = COLOR_BLUE Then
 objWs.Cells(lRow, lCol).Characters(arrThinStringIdx(lCnt), 1).Font.Color = 0
 ElseIf objWs.Cells(lRow, lCol).Characters(arrThinStringIdx(lCnt), 1).Font.Color = 0 Then
 objWs.Cells(lRow, lCol).Characters(arrThinStringIdx(lCnt), 1).Font.Color = COLOR_BLUE
 Else
 End If
 Next
 
 CheckCell_WideThin = True
 
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "CheckCell_WideThin")
 Resume ExitProc
End Function

'機種依存文字の判別
'機種依存文字のインデックスを返す。
Private Function CheckLetter_WithOut_OSIncluded(ByVal strCheck As String, _
 ByRef arrErrStringIdx() As Long) As Boolean
 CheckLetter_WithOut_OSIncluded = False
 
 Dim lCheckLength As Long
 Dim lCharacter As Long
 Dim lIdx As Long
 Dim lCnt As Long
 
 On Error GoTo ErrProc
 
 lCheckLength = Len(strCheck)
 
 lCnt = 0 'カウンターをリセット
 lIdx = 0 '配列のインデックスをリセット
 ReDim arrErrStringIdx(lIdx) '配列をリセット
 
' Excelの"Asc"はSignedで正負を含む10進数を返します。
' 1:NEC選定特殊文字 -30823 ～ -30912
' 2:IBM選定特殊文字 -1472 ～ -949
 For lCnt = 1 To lCheckLength
 lCharacter = Asc(Mid(strCheck, lCnt, 1))
 If (lCharacter <= -30823 And lCharacter >= -30912) Or (lCharacter <= -949 And lCharacter >= -1472) Then
 ReDim Preserve arrErrStringIdx(lIdx) '配列をリセット
 arrErrStringIdx(lIdx) = lCnt '配列に機種依存文字のインデックスをセット[～文字目]
 lIdx = lIdx + 1
 End If
 Next
 
 If lIdx > 0 Then
 CheckLetter_WithOut_OSIncluded = False
 Else
 CheckLetter_WithOut_OSIncluded = True
 End If
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "CheckLetter_WithOut_OSIncluded")
 Resume ExitProc
End Function

'アルファベットチェック
Private Function Check_WideToThin_Alphabet(ByVal strCheck As String, _
 ByRef arrWideStringIdx() As Long, _
 ByRef arrThinStringIdx() As Long) As Boolean
 Check_WideToThin_Alphabet = False
 On Error GoTo ErrProc
 
 Dim lCheckLength As Long
 Dim lCharacter As Long
 Dim lWideIdx As Long
 Dim lThinIdx As Long
 Dim lCnt As Long
 
 lCheckLength = Len(strCheck)
 lCnt = 0
 lWideIdx = 0
 lThinIdx = 0
 ReDim arrWideStringIdx(lWideIdx)
 ReDim arrThinStringIdx(lThinIdx)
 
 'A:65～Z:90/a:97～z:122
 'Ａ:-32160～Ｚ:-32135/ａ:-32127～ｚ:-32102
 For lCnt = 1 To lCheckLength
 lCharacter = Asc(Mid(strCheck, lCnt, 1))
 If (lCharacter <= 90 And lCharacter >= 65) Or (lCharacter <= 122 And lCharacter >= 97) Then
 ReDim Preserve arrThinStringIdx(lThinIdx) '配列をリセット
 arrThinStringIdx(lThinIdx) = lCnt '配列に半角英字のインデックスをセット[～文字目]
 lThinIdx = lThinIdx + 1
 Check_WideToThin_Alphabet = True
 End If
 If (lCharacter <= -32135 And lCharacter >= -32160) Or (lCharacter <= -32102 And lCharacter >= -32127) Then
 ReDim Preserve arrWideStringIdx(lWideIdx) '配列をリセット
 arrWideStringIdx(lWideIdx) = lCnt '配列に全角英字のインデックスをセット[～文字目]
 lWideIdx = lWideIdx + 1
 Check_WideToThin_Alphabet = True
 End If
 Next
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "Check_WideToThin_Alphabet")
 Resume ExitProc
End Function

'数字チェック
Private Function Check_WideToThin_Numeric(ByVal strCheck As String, _
 ByRef arrWideStringIdx() As Long, _
 ByRef arrThinStringIdx() As Long) As Boolean
 Check_WideToThin_Numeric = False
 On Error GoTo ErrProc
 
 Dim lCheckLength As Long
 Dim lCharacter As Long
 Dim lWideIdx As Long
 Dim lThinIdx As Long
 Dim lCnt As Long
 
 lCheckLength = Len(strCheck)
 lCnt = 0
 lWideIdx = 0
 lThinIdx = 0
 ReDim arrWideStringIdx(lWideIdx)
 ReDim arrThinStringIdx(lThinIdx)
 
 '0:48～9:57
 '０:-32177～９:-32168
 For lCnt = 1 To lCheckLength
 lCharacter = Asc(Mid(strCheck, lCnt, 1))
 If lCharacter <= 57 And lCharacter >= 48 Then
 ReDim Preserve arrThinStringIdx(lThinIdx) '配列をリセット
 arrThinStringIdx(lThinIdx) = lCnt '配列に半角数字のインデックスをセット[～文字目]
 lThinIdx = lThinIdx + 1
 Check_WideToThin_Numeric = True
 End If
 If lCharacter <= -32168 And lCharacter >= -32177 Then
 ReDim Preserve arrWideStringIdx(lWideIdx) '配列をリセット
 arrWideStringIdx(lWideIdx) = lCnt '配列に全角数字のインデックスをセット[～文字目]
 lWideIdx = lWideIdx + 1
 Check_WideToThin_Numeric = True
 End If
 Next
 
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "Check_WideToThin_Numeric")
 Resume ExitProc
End Function

'記号チェック
Private Function Check_WideToThin_Mark(ByVal strCheck As String, _
 ByRef arrWideStringIdx() As Long, _
 ByRef arrThinStringIdx() As Long) As Boolean
 Check_WideToThin_Mark = False
 On Error GoTo ErrProc
 
 Dim lCheckLength As Long
 Dim lCharacter As Long
 Dim lWideIdx As Long
 Dim lThinIdx As Long
 Dim lCnt As Long
 
 lCheckLength = Len(strCheck)
 lCnt = 0
 lWideIdx = 0
 lThinIdx = 0
 ReDim arrWideStringIdx(lWideIdx)
 ReDim arrThinStringIdx(lThinIdx)
 
 '+,-,*,=
 '＋,－,＊,＝
 For lCnt = 1 To lCheckLength
 lCharacter = Asc(Mid(strCheck, lCnt, 1))
 
 Select Case lCharacter
 
 Case 42, 43, 45, 61
 ReDim Preserve arrThinStringIdx(lThinIdx) '配列をリセット
 arrThinStringIdx(lThinIdx) = lCnt '配列に半角記号のインデックスをセット[～文字目]
 lThinIdx = lThinIdx + 1
 Check_WideToThin_Mark = True
 
 Case -32383, -32388, -32362, -32389
 ReDim Preserve arrWideStringIdx(lWideIdx) '配列をリセット
 arrWideStringIdx(lWideIdx) = lCnt '配列に全角記号のインデックスをセット[～文字目]
 lWideIdx = lWideIdx + 1
 Check_WideToThin_Mark = True
 
 Case Else
 
 End Select
 
 Next
 
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "Check_WideToThin_Mark")
 Resume ExitProc
End Function

'カンマチェック
Private Function Check_WideToThin_Comma(ByVal strCheck As String, _
 ByRef arrWideStringIdx() As Long, _
 ByRef arrThinStringIdx() As Long) As Boolean
 Check_WideToThin_Comma = False
 
 On Error GoTo ErrProc
 
 Dim lCheckLength As Long
 Dim lCharacter As Long
 Dim lWideIdx As Long
 Dim lThinIdx As Long
 Dim lCnt As Long
 
 lCheckLength = Len(strCheck)
 lCnt = 0
 lWideIdx = 0
 lThinIdx = 0
 ReDim arrWideStringIdx(lWideIdx)
 ReDim arrThinStringIdx(lThinIdx)
 
 ',
 '、，
 For lCnt = 1 To lCheckLength
 lCharacter = Asc(Mid(strCheck, lCnt, 1))
 
 Select Case lCharacter
 
 Case 44
 ReDim Preserve arrThinStringIdx(lThinIdx) '配列をリセット
 arrThinStringIdx(lThinIdx) = lCnt '配列に半角カンマのインデックスをセット[～文字目]
 lThinIdx = lThinIdx + 1
 Check_WideToThin_Comma = True
 
 Case -32445, -32447
 ReDim Preserve arrWideStringIdx(lWideIdx) '配列をリセット
 arrWideStringIdx(lWideIdx) = lCnt '配列に全角カンマのインデックスをセット[～文字目]
 lWideIdx = lWideIdx + 1
 Check_WideToThin_Comma = True
 
 Case Else
 
 End Select
 
 Next

ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "Check_WideToThin_Comma")
 Resume ExitProc
End Function

'文字列変換
Private Function Convert_Letter(ByVal objWs As Excel.Worksheet, _
 ByVal lRow As Long, _
 ByVal lCol As Long, _
 ByVal lMode As Long) As Boolean
 
 Convert_Letter = False
 On Error GoTo ErrProc
 
 Dim strCellValue As String
 Dim lCnt As Long
 Dim lIdx As Long
 Dim arrWideStringIdx() As Long
 Dim arrThinStringIdx() As Long
 Dim strBuffer As String
 Dim strConvBuffer As String
 Dim lCellLength As Long
 Dim flgCheckOK As Boolean
 
 lCnt = 0
 lIdx = 0
 strConvBuffer = ""
 flgCheckOK = False
 
 ReDim arrErrStringIdx(0)
 
 Dim objFont() As tyFontInfo
 
 strCellValue = objWs.Cells(lRow, lCol).value
 lCellLength = Len(strCellValue)
 ReDim objFont(lCellLength - 1)
 
 Select Case lMode
 Case COMMAND_CONVERT_WIDEALPHABET
 flgCheckOK = Check_WideToThin_Alphabet(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case COMMAND_CONVERT_WIDENUMBERS
 flgCheckOK = Check_WideToThin_Numeric(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case COMMAND_CONVERT_WIDEMARKS
 flgCheckOK = Check_WideToThin_Mark(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case COMMAND_CONVERT_WIDECOMMA
 flgCheckOK = Check_WideToThin_Comma(strCellValue, arrWideStringIdx, arrThinStringIdx)
 Case Else
 
 End Select
 
 If flgCheckOK Then
 Else
 '終了する
 GoTo ExitProc
 End If
 
 For lCnt = 0 To lCellLength - 1
 '書式の保存
 With objWs.Cells(lRow, lCol).Characters(lCnt + 1, 1).Font
 objFont(lCnt).vBold = .Bold
 objFont(lCnt).vColor = .Color
 objFont(lCnt).vColorIndex = .ColorIndex
 objFont(lCnt).vFontStyle = .FontStyle
 objFont(lCnt).vItalic = .Italic
 objFont(lCnt).vName = .Name
 objFont(lCnt).vShadow = .Shadow
 objFont(lCnt).vSize = .Size
 objFont(lCnt).vStrikethrough = .Strikethrough
 objFont(lCnt).vSubscript = .Subscript
 objFont(lCnt).vSuperscript = .Superscript
 objFont(lCnt).vUnderline = .Underline
 End With

 strConvBuffer = Mid(strCellValue, lCnt + 1, 1)
 
 Select Case lMode
 Case COMMAND_CONVERT_WIDEALPHABET
 'アルファベットを全角から半角へ
 For lIdx = 0 To UBound(arrWideStringIdx)
 If arrWideStringIdx(lIdx) = lCnt + 1 Then
 strConvBuffer = StrConv(strConvBuffer, vbNarrow)
 End If
 Next
 Case COMMAND_CONVERT_WIDENUMBERS
 '数字を全角から半角へ
 For lIdx = 0 To UBound(arrWideStringIdx)
 If arrWideStringIdx(lIdx) = lCnt + 1 Then
 strConvBuffer = StrConv(strConvBuffer, vbNarrow)
 End If
 Next
 Case COMMAND_CONVERT_WIDEMARKS
 '記号を全角から半角へ
 For lIdx = 0 To UBound(arrWideStringIdx)
 If arrWideStringIdx(lIdx) = lCnt + 1 Then
 strConvBuffer = StrConv(strConvBuffer, vbNarrow)
 End If
 Next
 Case COMMAND_CONVERT_WIDECOMMA
 'カンマをすべて全角の「，」へ
 For lIdx = 0 To UBound(arrWideStringIdx)
 If arrWideStringIdx(lIdx) = lCnt + 1 Then
 strConvBuffer = "，"
 End If
 Next
 For lIdx = 0 To UBound(arrThinStringIdx)
 If arrThinStringIdx(lIdx) = lCnt + 1 Then
 strConvBuffer = "，"
 End If
 Next
 Case Else
 
 End Select
 
 strBuffer = strBuffer & strConvBuffer
 Next
 
 '文字列をセルに
 objWs.Cells(lRow, lCol).value = strBuffer
 
 '書式を書き戻す
 For lCnt = 0 To lCellLength - 1
 With objWs.Cells(lRow, lCol).Characters(lCnt + 1, 1).Font
 .Bold = objFont(lCnt).vBold
 .Color = objFont(lCnt).vColor
 .ColorIndex = objFont(lCnt).vColorIndex
 .FontStyle = objFont(lCnt).vFontStyle
 .Italic = objFont(lCnt).vItalic
 .Name = objFont(lCnt).vName
 .Shadow = objFont(lCnt).vShadow
 .Size = objFont(lCnt).vSize
 .Strikethrough = objFont(lCnt).vStrikethrough
 .Subscript = objFont(lCnt).vSubscript
 .Superscript = objFont(lCnt).vSuperscript
 .Underline = objFont(lCnt).vUnderline
 End With
 Next
 
 Convert_Letter = True
ExitProc:
 Exit Function
ErrProc:
 Call ErrFunc(Err, "Convert_Letter")
 Resume ExitProc
End Function

Welcom to My Weblog from Search Engine.

Mon, 06 Jul 2009 09:18:22 +0900

検索エンジンでこられた方、ご来訪ありがとうございます。そして目的のページに到達するまでにお手数をおかけして申し訳ありません。右のサイドバーのサイト内検索を使って、目的の情報を検索していただきますようお願いします。

CMS(Blogツール)を、Movable Type から Word Pressに換えた際に昔のサイト構造を変更した所為で、検索エンジンでの検索結果とは違うページにジャンプします。サイト構造を変更した際は301で1HTMLファイルごとに新しいリンク先を指定するのが正しいやり方なのですが、500ページを超えるため、とてもできる話ではありません。ですから404エラーでホームページにジャンプするようにしています。

カラオケ

Sun, 05 Jul 2009 23:34:01 +0900

もう半年以上カラオケに行ってないなぁ。

十八番は少ないですが、B’zかアニソンしかないですね。

普段聴く曲が洋楽かジャズ、アニソンなもので。

B’zは今は好きですけど、大学の頃つきあいでカラオケで行くために歌うようになってから聞くようになりました。

アニソンでは、松原美紀の「THE WINNER」(機動戦士ガンダム 0083)、クリスタルキングの「愛をとりもどせ！」（北斗の拳）を原曲キーで歌うのが十八番です。

「愛をとりもどせ」はかなり受けがいいですが、もう若い人たちには分からないようです。

中学のころは、Michael Jacksonの曲を口ずさんでました。

紅茶

Sun, 05 Jul 2009 21:45:55 +0900

UCC BLACK TEA 無糖・甘味料無しの本当のストレートティーです。ダージリンの香りが良く舌に刺さるような渋みもなく非常においしい。

ちなみに写真は、新しく買った smcPENTAX DA 35mmF2.8Macro Limited で撮影しました。

宅配ボックスが必要かな

Fri, 03 Jul 2009 23:26:53 +0900

Amazonの宅配業者が、日通から佐川に変わり、いろいろと手際の悪さに不満がある。ここ二日連続して荷物の受け取りができなかった。ちょうど家人が出払ってしまう時間帯に三回も来てしまうという不手際。伝票には電話番号が書いてあるので、配送する前に連絡をすればこうのようなことは起きない。だいたい同じ時間帯に来るというのは怠慢だ。不在連絡票に次の日に届けに来ると書いてあったので家人に待ってもらっていたが、フルタイムで在宅できるわけではない。佐川は在宅確認をせずに持ってきている。

日通の時は在宅確認してから持ってきていた。なので入れ違うことが全くなかったし。アマゾンプライムの意味があるように翌日配達されていた。

Amazonの配送が佐川になってサービス低下

Fri, 03 Jul 2009 22:21:44 +0900

この四月に日通とJPの運送事業が合併して、JP母体で整理が行われたようです。

つまりAmazonでは日通を使っていたのですが、この四月から佐川急便に変わりました。

アマゾンプライムに加入しているにもかかわらず、これまでより配送日数が一日伸びるようになりました。

佐川急便の宅配はいろいろと手際が悪いので好きではないのです。

マクロレンズを注文してたのですが、二日連続して荷物の受け取りで行き違って、結局受け取れていません。

荷物の受け取りだけに、時間がわからず一日拘束されたり、商品を利用したいのに受け取れずに予定が三日狂うのは腹立たしいです。

せめて一回目の不在連絡票に、「次の日に持ってくる」と書かずに在宅時間を連絡するように書いておいてくれたら、二日も待たせられずに済んだのに。

だいたい、前の日にいなかった時間帯に来ても、その日もいない確率が高いことはわかるだろう。

電話番号がわかってるんだから電話してから来いよ。

うちの場合、九割方家に誰かいるんだから。

いつの間にか

Fri, 03 Jul 2009 08:52:46 +0900

PSP用にSony Memory Stick PRO DUO Mark2 16GBを2枚購入して、音楽、ビデオ、写真、Play Station Storeからのゲーム購入などいろいろ入れてみました。

音楽は、PCからSony Sonic Stage Vを使ってWalkmanなどと同じように転送します。ジャケット画像とかは、元の画像サイズによるのか、アルバム単位では表示されるものの、楽曲単位では表示されたりされなかったりと、いまいちわからないことがあります。 PSPにいれてあるMemory Stickは比較的高速なものですが、PCからの転送速度はあまり速くないです。サードパーティー製のカードリーダーを使って、Memory Stickを単体でPCに差しても音楽ファイルのAtrac3は転送できないです。

PSPを弄ってたら

Fri, 03 Jul 2009 01:16:31 +0900

いけませんね。

２１時過ぎに家に帰って食事。

２２時からPSPのバージョンアップ。

そのままPCでメールチェック。

PCからWalkmanに楽曲転送。

２３時お風呂。

２３時半からPSP用にPSストアでゲーム購入。

２４時からダウンロードの待ち時間にPS３でゲーム。

２４時半、「桂ヒナギク」のおまけDVDをPSP用に変換して転送。

２５時、伊藤静さんのブログを見てから、自分のブログを書き書き

PSPをわが手に

Thu, 02 Jul 2009 12:58:54 +0900

昨日、Amazonで注文していた、PSP　(PSP-3000 PB)が届きました。

「ハヤテのごとくナイトメアパラダイス」を購入するに当たって買いました。

本体色は、ピアノブラック。

あっという間に指紋だらけになりましたが、ふき取るときれいに輝きます。

バリューパックではなく、本体だけ購入したので、ゲームすらできないですが。

液晶がかなりきれいで少しびっくりしてます。

PSPをこの手に

Thu, 02 Jul 2009 00:28:47 +0900

PSPを買っちゃいました。

PSP3000です。「ハヤテのごとくナイトメアパラダイス」を買うのにあわせて買いました。最近は「ハヤテのごとく」というより「桂ヒナギク」をやっている伊藤静さんに傾倒中なので、少々大人買いに走ってます。といっても、PCやカメラ、車と違って単価が安いので、あまり気にはならないのですが。

PSP3000の特徴としては、広色域液晶を搭載して鮮やかな色が再現されることです。動画再生能力も高いですし、携帯プレーヤーとしてはかなり優秀です。これでPIM（PDA）として使えれば良いのですが。 Webブラウザやネットラジオプレーヤーとしても使えるし、Webが使えることでWebサービスでPIMは実現できます。とくにRSSリーダーとして使えるので、Webシステムに入力してRSSで保存することで、いろいろな使い方が模索できるかな。

儲かれば自分でするし

Wed, 01 Jul 2009 19:50:33 +0900

商品企画も手がけてるんですが、いいアイディアが浮かばない。

と、いうか市場調査、分析をしないとどこに何を投入しなければならないのかが見えてこないのですけれど。

商品企画としては当たり前の話。

うちの会社の体質的に世の中を見通して話ができる人がいなくて、みな自分の興味を中心にアイディアを出してくるのでまったく役に立たないんですね。

さて、一朝一夕で誤魔化しきれるものではないですが、何かアイディアを見つけないと。。。

ケータイから投稿

Wed, 01 Jul 2009 13:27:06 +0900

携帯電話からのメール投稿を可能にしました。投稿内容が反映されるのは、誰かがブログにアクセスした瞬間です。これまでMovable Typeでできなかったことができるようになりました。これで外出先からでも投稿できます。

ようやくやりたいことがやれるようになった感じですか。

スキニーラテ

Wed, 01 Jul 2009 13:19:33 +0900

朝から湿気で、イラっとしそうです。コンビニでスキニーラテを買って、一口。

キリッとしたエスプレッソの味と軽いミルクで気分は涼やかです。

簡単じゃん

Wed, 01 Jul 2009 09:48:07 +0900

WordPressとても簡単じゃん。サイドバーへの固定テキストを貼り付けるのがすごい簡単にできた。そういうウィジェットが用意されているからですけど。 MovableTypeはそのウィジェットを自分で作るか、テンプレートを分割するか、ですけど。とりあえずAmazonアソシエイトとGoogle AdSenseを貼りました。アマゾンで買い物するときは、ここから入店すると、私に収益が上がります。

スキニーラテ

Wed, 01 Jul 2009 08:23:44 +0900

朝から湿気で、イラっとしそうです。
コンビニでスキニーラテを買って、一口。

キリッとしたエスプレッソの味と軽いミルクで気分は涼やかです。

For Mobile

Wed, 01 Jul 2009 01:13:20 +0900

たいがい欲しい機能はプラグインなりでそろっています。サイドバーのQRコードを撮影して、モバイル（携帯端末）でアクセスすると、それぞれのキャリアに応じて、専用のWebページが表示されます。

オリジナルの機能を追加したいときに、PHPのプログラミングが必要なるというのはちょっとハードルが高いですね。近いうちにAmazonなりのウィジェットが追加されるようにカスタマイズして行こうと思います。

もったいない

Wed, 01 Jul 2009 00:57:56 +0900

私の職業はシステムエンジニア。

ある通販会社の販売管理システムを、うちの会社の別の開発グループが開発して先週末に本番移行を行いました。

移行直後にトラブって、今週月曜日に旧システムに復旧する事態になりました。

新システムに登録されてしまった受注データを旧システムに入れ直す作業を、本日の午後4時までに完了させよとの命令を会社のボスが下しました。
何せボスの鳴り物入りの案件ですので、大半の社員を導入することに。

私も別の業務を止めて、データ投入作業に行ってきました。

実際、現場に行くと大した作業ではなく、手順とツールさえ整えられれば3，4人が1時間ほどで終わる作業でした。

しかし今回作業した方法では、待ち時間、紙を目で追う時間、画面を目で追う時間、作業に慣れるまでの時間がかなり無駄で、16人投入して6時間も掛かっていました。

工数に換算すると96人時、12人日となります。

だいたい世の中のシステムエンジニアの人件費が1日4万円ほどですから、48万円の持ち出しになってしまいました。