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

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

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

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をダウンロード