しばらく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 ‘'’ エラー復帰。これ以降は各エラー処理を個別記載。

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

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

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

　「これは痩せる！」「論文でも痩せるって言われてる！」「あんまり扱ってる論文がない」「既にある論文はメーカーがらみの人が作った物なのでどこまで信用して良いのやら」という噂が飛び交うラクトフェリン。構造はこんな感じらしい。

　おお、なんかクリスマスっぽーい！

　そんで実際の所「痩せるの？」っていうのは気になる。
　ただこれ、効果があるのは皮下脂肪じゃなくて内臓脂肪の方らしい。
　多くの女性にはあんまり関係ないのでありました……。

　兄弟の確執が強まったりとかするのかなあ。
　日本に飛び火しないことを祈りますよ。
　ちょっとこわいねえ。

　〜前回までのあらすじ〜
　足の親指が左右ともきつい巻き爪になってしまい、このままだと補正器具を入れねばならないかと思っていたところ、ネットにて「コットンパッキング」というものを発見。肉を巻き込んでいる爪と肉の間の部分にコットンを挟み形状を補正する方法だ。
　もちろん爪はある程度の硬度があるため、何日もかけてじっくりととりくまねばならないという……。

　ということで、最初の内は医療用コットンを小さく切ってやっていたのですが、不器用なせいかすぐにコットンがほぐれてしまってうまく入らない。爪にも引っかかるし。
　何かいいものはないかなー。と、化粧用のシリコンパフ(合成ゴム)を切って使ってみたところ、ふかふか加減がぴったりフィット。
　コットンと違って繊維もほぐれないし、まとめて細かく刻んでおくことも可能。（コットンだとある程度の大きさまでは切っておけるが、爪に入れるサイズまで細かくして保存すると、ほぐれたり他の子とくっついたりして扱いが面倒）刻んだ物は小さいビニール袋か100円ショップのケースで保存すると楽。
　ちなみにスポンジはAmazonで購入可能。

　おかげさまで右足は靴を履いて歩いてもほとんど痛くないレベルまで回復しました！
　左足はまだ痛いですが、布団に入って布団が当たっても痛い！　というところまで悪化していたのが、靴を履いたらちょっと痛いけど、コットンパッキングしてあればそれほどでもない。というレベルまで回復しました。
　約2ヶ月でここまで回復するとは、とても信じられません。毎日続けることが大事なんだと思います。最初の頃はコットン入れるのが面倒だったけど、慣れたのもあるけど、巻き爪が治ってくるにしたがって楽になってきたし、なんとなく「治ってるなあ」というのが実感できて良い感じです。

　ニッセンやら楽天やらの通販サイトを見ていると、商品の感想が色々載ってる。DHCも載ってる。
　でもなんかDHCの感想は変……不自然……。
　で、よく読んでみるとDHCの感想は「掲載されるとポイントプレゼント」なのですな。つまりけなしてる感想は採用されないし、採用されればご褒美もあるよ、と。

　昔ならともかく、今の時代でこれはいいのだろうかとちょっと疑問。

　まあ化粧品の感想見たいだけだったら、DHCじゃなくてアットコスメ見に行くけどね

　カップも紙袋もクリスマス仕様。
　へー、かわいいな。
　って思いつつそのまま捨ててしまったけど、しまった、写真撮っておけばよかった。

　まあまだクリスマスまでにはチャンスがある！

　今日はじめて「自己負担限度額」という単語を知ったよ。
　80,100円＋（かかった医療費−267,000円）×1% ぐらいになるらしい。

　今日払った38万はある程度戻ってくるということか……よかった……。

　だからChromeはいい加減アップデートのお知らせをするようにして欲しいと思うのです。
　何が変わったかわからないと、困るじゃないですか。今回みたいに一発見てわかればいいけど、タブの挙動が変わったとか、じわっとわかりにくいときは本当に困る。
　サポートやってる人とか、Chromeの話来たら困るんだろうなあ。
　フリーソフトは対応しません。で済む場合と済まない場合あるしなあ。
　ていうか企業推奨ブラウザにはできないだろうな……。