部屋で寝転んでいても腰痛が解消され ることは無いので、思いきって出かけ ることにした。 久里浜に行こうと思っていたけど終点 が逗子の電車だったのでここで下車す ることにした。 久里浜に強いこだわりがあるわけでな く、ただ海際の土地に行きたかっただ けなので散歩の条件が整うからだ。 川を沿って海岸を目指す。 大きく遠回りになるが、
ショートカットは帰り道で使う。 海岸に着くと、海の家構築中であり、 サーフボードだらけであり、バーベ キューだらけであった。 海は季節柄、靄っている。海を撮るの は日の出前か冬だなということで、気 になった風景を近景にすべく鎌倉方面 の崖まで歩く。 今日はここまでが限界。右太ももに痺れが来たので。
再計算に何分も掛かるという不幸を愚痴るのを聞くことがたまにある。
でも、もっと時間を掛けてデータの持ちかたや、そんな巨大な表が本当に必要なのか考えるべき。
っていうか、Accessのほうが良くないですか?
セルに値を入力するフォームを作成したが、Windowサイズよっては、入力対象のセルにフォームが重なるのでフォームをクリックしたときに適当な位置にフォームが寄るようにしようと思った。
最初はActiveなブックの中のオブジェクトの座標を取得してその脇に移動すればいいだろうと思ったが、そう都合よくことが運ばなかった。
フォームのポジションは画面の左端からの位置で、Activeなブックの中のオブジェクトのポジションはブックの左端からの位置だった。
従って、適当な位置にフォームを移動させるには、Activeなブックの左端のポジションを取り出す必要があったが、ActiveWindowのプロパティにleftという都合のよい要素がなかったので、フォームの位置とActiveWindowのwidthに補正値を加味した値を、フォームの移動先とする案が浮かび以下のようなマクロを作成した。
'-- サンプルマクロ
Public lockval As String
Private Sub UserForm_Click()
Dim leftstart As Long, center As Long, hosei As Long, mvpos As Long
'初期値
leftstart = UserForm1.Left
'ActiveWindowのセンター(相対的なセンター)
center = ActiveWindow.Width / 2 - (UserForm1.Width / 2)
'移動位置の補正値（適当な値）
hosei = 320
'フォームの移動
mvpos = (leftstart + hosei) - center
'mvpos = (leftstart) - center 'ActiveWindowのleft
If lockval = "" Then
UserForm1.Left = mvpos
lockval = "lock"
End If
End Sub
if [ -L $link ]
then
echo ok
else
echo ng
fi
上記のようなシェルを実行すると、argment expectedと怒られる。 他のOSでも動かしたかったので（動かしたいのは上記シェルではない）、uname -sの結果がSunOSだったときは-hでtestコマンドを実行するようにした。
testのmanページには、-Lが記載されているのになぜと思って色々調べたりしている過程でふとkshで実行してみようと思い、以下のコマンドを実行してみた。
# ksh
# test -L link
# echo $?
0
次回からはkshだなぁと思ったそんな話し。
