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

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

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

以下の赤字部分を追加修正しました。
'データ変化検出
    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をダウンロード

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

我が家の家系図も２００人オーバーしました。
入力していくといろいろ不足しているところが見えてきます。
変更点
①関係項目の変更
配偶者の親関係を入力していくと、すぐに関係４にいってしまい入力できなくなります。
そこで、
関係１　　　関係２
【配偶者】　【父親】
　　　　↓
　関係１
【配偶者父】
と入力できるように変更しました。
②子供の有無確認を増加
子供の有無を確認し表示位置を調整していますが
いままで１２人目まで確認していましたが、配偶者関係の入力が増えると１２人を超える場合があります。超えると子供がいないと判断し表示が乱れます。
５０人まで増やしてみました。私のＰＣ　ｃｏｒｅｉ７では表示速度はあまり変わりありませんが、表示が遅くなるかもしれません。
③配偶者二人目の表示乱れを修正

我が家でもついに列オーバーで1人表示できなくなりました。
エクセル2010がほしい
excelkakeizu_ver2.15.zipをダウンロード

当番のためアパートで待機中です。
で、頭の体操をまたしました。

変更点
①操作性の改善
　フィルターでデータの抽出可能
　移動ボタンを追加
　コピー追加、新規追加機能
　並び替えボタン追加

　家系図からハイパーリンクで入力シートの該当行にジャンプ（修正入力が劇的に楽になります）
②家系図描画の改善
　配偶者がいない場合の子供との罫線を接続
　描画スピード改善
③家系図の表示項目を追加
　備考欄や年齢、享年をコメント形式で表示
など

かなり変更しましたのでバグがあるかもしれません
何かありましたら教えてください。

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

入力シートにもハイパーリンク設定（18：15修正）