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

アパートで待機中だったので、頭の体操をしました。
変更点
①エクセル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をダウンロード

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

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

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

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

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

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

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

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

変更点は
バグつぶし
表示精度向上（親関係）
エクセル２００７以上での保存形式変更へのアシスト（データ取込み時）
など
かなり、いい線まできています
そろそろ、いいかなぁ
excelkakeizu_ver1.93.zipをダウンロード

変更点
①入力人数３００人まで対応（行コピーすることでで５００人まで対応）
②エクセル２００７以上を使用の方が、マクロ有効ブック、拡張子ｘｌｓｍで保存することで２５６列以上の表示可能（未検証）
（エクセルのバージョンチェックをし最大値等の値を調整）
③センター位置変更範囲増
④データ取込み拡張子にｘｌｓｍ追加、ファイルの種類で選択できます。
excelkakeizu_ver1.89.zipをダウンロード 　10/3 21:11修正

①グループ化の解除

対象となる画像を右クリックしグループ化の解除をクリックします。
これを2回繰り返します。（2回グループ化されているため解除も2回）

②スピンボタンの最大値変更

スピンボタンを右クリックし、コントロールの書式設定をクリックします。

コントロールタブをクリックし最大値を変更します。
（256列の制限がある場合は大きくしすぎるとエラーがでます）
③再グループ化
右クリックし再グループ化をクリックします。
これも２回繰り返します。
④名前の修正
グループ化された図形に「制御グループ」という名前をつけていますが、
グループ化の解除で名前が変わってしまいます。
名前のボックス（通常セルの位置が表示されるところ）で「制御グループ」に修正します

これで完了です。

やるとすぐなんですが、文章にすると難しいですね

今後、この辺の修正や入力人数追加などやりたいと考えています。

兄弟１9人まで対応しました
excelkakeizu_ver1.87.zipをダウンロード

256列以上の対応について
お使いのバージョンが2007以上であれば
【ファイル】→【名前をつけて保存】→【Excelマクロ有効ブック  拡張子 xlsm】で保存することで256列以上に対応できる可能性があります。
（私は2003を使っているため検証できません）
あわせてVBの記述を一部変更しなければなりません。
①列オーバーの条件を変更

マクロの【自動レイアウト】で上図を参考に
141行目の　255を300とか500に変更
②ファイル形式の変更（今回は不要ですが、今後のために）

マクロの【旧バージョンデータコピー】で上図を参考に
11行目の　ｘｌｓ　を　xlsm　に変更

新田さんどうでしょう

またまた、頭の体操をしました。

変更点
①表示不具合の修正
②データー取込み機能追加
　バージョンが変わるたびにデータをコピー、貼り付けするのが面倒になってきたのでデータ取込みボタンをつけました。（エクセル家系図ver1.6以上のみ、取込み可能、その他はダメ）

③家系図作成中の進行状況を表示

④表示項目の追加


住所など左上端に表示
前からでしたが、続柄の項目は、何でも入力できるようにしてました。

以上

excelkakeizu_ver1.85.zipをダウンロード

取込みファイルの簡単なチェックをつけ旧バージョンでも一部取り込みできるようにしました。

excelkakeizu_ver1.86.zipをダウンロード