たっとのブログ

あ、そうそう。BlackBerry 9900 買いましたよ！

　買ったときにヨドバシの人から「すみません、BlackBerry あんまり売ったこと無いから、なんのアドバイスもできません……」と言われてしまったのですが、DoCoMo の小冊子のおかげで設定できました。
　ていうかか、あの小冊子がないと設定できません。
　わかりません。
　いやー、あまりのできなさに笑ってしまうほどだった。

　ていうかあれ、日本版BlackBerry にはデフォルトで同梱しておくべきなのでは。

明日からGW突入！

　といっても特に申請をしていないので、ぶっつづけの大型連休にはなってませんが。
　最近忙しかったから、とりあえず寝たい。
　眠い。

　あとこのサイトをXOOPSからWordPressに移行したい。非常に面倒くさいけど、WordPressの方が管理が楽になるんだ－。あー。
　楽になるための手間が面倒くさい……。

新アウトレットモール

　ニュース見てたら海ほたるの中にあるかのような言われ方で、すごいところにできたなあと思ってたけど、ちゃんと陸地にあったらしい。
　日本最大級って御殿場まで行かなきゃならなかったのに、かなり近くなってラッキー。
　一度行ってみたい！

大雨だったので早めの帰宅

　いつも会社を出るぐらいの時間に帰宅できるこの喜び！！
　ていうか帰りにびっしょびしょになっちゃったよ。
　傘も破壊した。
　もうだめだ……。

　今使ってる(故)傘は折りたたみ式で、すごく平べったく折りたためる優れもの。
　鞄の底に放り込んでおけるので便利だった。丸形ではこうはいかない。
　ああ、あんなに便利だった折りたたみ傘子よ……。

　まあ500円で買える物だから、また買い直せばいいんですが

久々に大きい地震…

　朝までずっと余震が続いておりました。
　もう大きいのはこない感じなんでしょうけど、大丈夫なのか……。
　まだまだプレートのひずみがたまってるってことなんですかね。
　小出しにしてくれる分には問題ないですが、大きいの来られると怖いですなあ……。

BarckBerryその後

　ほしいほしいという気持ちでいっぱいだったBlackBerry9900。
　11月に出る予定だった。
　12月に延期になった。
　年を越した。
　2月～3月発売決定！
　そして今、3月も真ん中……出る気配なし。

　4月っすか……？

母親退院！

　去年からずっと入院していた母がやっと退院しました。
　通勤が大変な生活＋病院へ着替え等々届けたりなんだり……大変な生活がちょっと楽になった。
　いやもうボロボロになりすぎでした。はー。つかれた。

VBAで配列

　しばらくVBAから離れてたので、色々忘れていて困り果てたため自分メモを残す。
　Excel VBAでの覚え書き。Excel2003だけど2010でもOK。

(1)配列をDimでなくConst(定数)として扱う。

　Const ArrMybook() AS String = Array("我が輩は錨である”,"老人と滝”,"2010円宇宙の旅”,"嚔")

　という風に扱いたいが、配列はConstとして使えない。あくまでDimるしかない。

　仕方がないので一個一個入れていく。

　Dim ArrMybook(4)
ArrMybook(1) = “我が輩は錨である”
ArrMybook(2) = “老人と滝”
ArrMybook(3) = “2010円宇宙の旅”
ArrMybook(4) = “嚔”

　めんどくさそうに見えるけど、Excel VBA使う場合はExcelの方で、定数化したかった文字列をセルに並べて

= ” ArrMybook(” & ROW()-3 & “) = “"” & A1 & “"”

　という感じで代入部分を一気に作ってコピーしてしまう。
　
　
(2)多次元配列の最大要素数を調べる。
　

UBound(ArrMybook)

　これを多次元配列でやりたい。書架を表すArrMyBookShelf()配列の最大要素数を知りたい！
　ArrMyBookShelf(X, Y, Z)のYの最大値を知りたいんだ！
　

UBound(ArrMyBookShelf,2)

　ということでZが知りたい場合は
　

UBound(ArrMyBookShelf,3)

　
　
(3)Functionの戻り値が動的配列だった場合に配列の要素数を調べたい。でも配列に何も入ってない可能性もあるし入ってる可能性もある。
　うわめんどくさい。しかもワタシ的にはよくあるパターン。
　何も入ってなかったら0でそれ以外は最大要素数が欲しいなー。
　そのまま何も考えずUBoundするとエラーが出る可能性もあるし出ない可能性もある。
　なにやら面倒くさいが、何もない＝エラーの場合は0になればいいんだ。だったらOn Error Resume Nextしてエラーの場合は次の処理に飛ばす。

　On Error Resume Next ‘'’ 一時的にエラーを黙認
　MaxArr = 0 ‘'’ とりあえず0を入れておく
　MaxArr = Ubound(ArrMybook) ‘'’ MaxArr取得。取得できない場合は上の “0″ が生きてる。
　On Error GoTo 0 ‘'’ エラー復帰。これ以降は各エラー処理を個別記載。

　他にも色々あるけど、とりあえずこれぐらい。

あけましておめでとうございます

　去年はいいこともいっぱいあったけど、それ以上に震災だのなんだのとハードに悪いことも多々あって、なかなか参った年でした。
　今年は平穏無事に、いいことがいっぱいあったね。で終われる年になればいいなあと思います。
　まずは本人の努力だな！

大逆転将棋2012

　正月の将棋番組チェックしたんですけど……大逆転将棋、ないじゃない？
　毎年楽しみにしてるのに……。
　新ネタやらなくて良いから、毎年やって欲しかったなあ。