エクセル家系図と三日坊主日記

細かな修正をしました。
機能的には、前バージョンｖｅｒ3.ｂ62と変わりありません。

前バージョンのダウンロード数を調べたら、1ヶ月ちょっとで695もありました。
結構な人から、触っていただいているようです。ありがとうございます。

excelkakeizu_ver3.1.zipをダウンロード

2011年、平成23年になりました。
今年もよろしくお願いします

今日から3日の朝まで当番でアパートで待機中です。

今日は元旦「一年の計は元旦にあり」ということで
密度のある一日になるように

6時すぎにもちを焼いて？？？（電子レンジでチンでした）
我が家恒例の茶の間での食い初めし家を出ました。

朝会社で駐車場の除雪を少しして、当番を引き継ぎ、
超冷えているアパートにきました。

テレビを見ながら？音を聞きながら、
グーグルリーダーで更新サイトをチェック！！！、
「一年の計は元旦にあり」という言葉を思い出し
部屋の掃除をし、今このブログ作成画面に向かっています。

出動が少なければ、
①先月機種変更したPHS（ハイブリ）の設定をし覚書を作っておく。
②エクセル家系図もほぼいい感じなのでエラーチェックなどをしアップする。
③洗濯をする。
④仕事の予定をたて入力する。
など、やりたい。
老化防止の頭の体操と
人生も折り返しているので時間を有効に使うようにしたいと思っています。

まっ三日坊主ですが

もってのほかをつまみにぶどう酒を日本酒で割り？日本酒をぶどう酒で割り、ワイン風味で飲んでいます。山ぶどう酒は、すっぱいだけの失敗作でしたが、日本酒の甘みと混ざると結構いけます。酸味が強いので軽く飲めるので飲み過ぎ注意です。かなり飲んでしまいました。明日は休みだし、まっいいか（笑）

修正箇所
①２０代以上の表示乱れ修正
②センターボタンクリック時の動作修正
など

excelkakeizu_ver3.b62.zipをダウンロード

今年の春に植え替えした食用菊「もってのほか」が咲きました。昨日食べました、シャキシャキとした歯ごたえとほのかな香りでおいしいです。
写真は大きな花をとった収穫後のもです。
もうしばらく楽しめそうです。

花びらが何枚あるか気になり数えてみました。
さぁ何枚でしょう？

今日はいい天気です
朝６時半から不動明王様の祭り、神社の囲い、裏のあじさいの刈取りと草刈りと大忙しです。庭木の囲いもやりたいところですが、ひとやすみ。
エクセル家系図も関係を増やすため、少しずつ修正していたんですが、昨日の夜２３時ころから2時半くらいまで夜更かしをして、ほぼいいところまでできました。
関係７まで増やしました。○代目本人からみて、７親等から９親等くらいまで表示できるはずです。
親族内の婚姻の結線はまだひらめきません。
excelkakeizu_ver3.b6.zipをダウンロード

アパートで待機中だったので、頭の体操をしました。
変更点
①エクセル2003以前の256列制限でぎりぎりまで表示するように修正。（書き込み確認フローを見直し修正。我が家の家系図も列オーバーなしで表示しました）
②親の罫線の不具合と交点がわかりやすいように変更（ひとり親の場合の直線を廃止）
③その他、細かな修正

excelkakeizu_ver2.20.zipをダウンロード

２０代目以降に表示が乱れることが判明しました。

当初２０代以降を想定していなかったので、変化するコードを抽出するときに何代目かも関係コードと一緒に処理していました。そのため、２０代目が配偶者のコード２０と同じように処理してしまう部分がありました。

以下の赤字部分を追加修正しました。
'データ変化検出
    SX = 1: SY = 0
    For j = 0 To 4
        C(j) = Mid(CC, j * 2 + 1, 2)
       If j <> 0 Then
        If C(j) <> Cells(j + 8, 4) And C(j) <> "00" Then CZ = C(j): z = j * 2 + 1
        If C(j) = "21" Or C(j) = "22" Or C(j) = "23" _
           Or C(j) = "27" Or C(j) = "28" Or C(j) = "29" Then SY = SY - 1: SX = 0
        If Val(C(j)) > 50 Then SY = SY + 1: SX = 1
        Else
          CZ = "00"
        End If
    Next j

excelkakeizu_ver2.17.zipをダウンロード

いままで15代目までの入力にしていましたが
ご要望により30代目まで増やしました。

参考まで増やし方は、以下のとおりです。
コードシートを表示し、シート保護を解除します。
15代目以降をコピーで任意の値まで増やします。
次に定義の名前を開いて、何代目リストの範囲を変更して完了です。
わかる人にはわかる。
わからない人には、さっぱりわからないと思います。
excelkakeizu_ver2.16.zipをダウンロード

うまくできるか、ちょっとドキドキしながら点火しました。
無事けむりを出さずにできました。
やっぱり薪ストーブはいい。