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

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

いい色になってきました。
わきにあるのは家の裏で収穫した栗です。
半部分位、栗虫にやられましたが、今年は豊作かも

変更点は、配置の微修正（配偶者の有無と子供の有無をチェックをし配置を修正するようにした）、罫線の一部修正、1年を元年と表示、VBAの変数記述の見直しなど。

また、前バージョンでマクロが実行できないとのコメントがあり
エラーが起きていると思われる箇所を書き換えてみました。
    ActiveSheet.Shapes("表題").Select
    Selection.Cut
    Cells(90, X - 10).Select
    ActiveSheet.Paste
　　　↓
    With Worksheets("家系図")
        .Shapes("表題").Left = Cells(90, X - 10).Left
        .Shapes("表題").Top = Cells(90, X - 10).Top
    End With

EXCEL2003のマクロの記録で作った部分でしたのでEXCELバージョンが違うとエラーが出るのかなと思い変えてみました。
おきさんこれでどうでしょう？
excelkakeizu_ver1.79.zipをダウンロード

おととい採ってきて、昨日一粒一粒手でつぶして瓶にいれました。
初めての挑戦ですが、とても楽しみです。

罫線描画の追加修正と細かな修正をしました。
マクロによる自動レイアウトセンター配置バージョンほぼ完成かな
私の家の8世代約160人の家系図は、１００％自動描画できるようになりました。
（１００％表示できないことも考えられますし、見やすいように手修正してください）

印刷は、プリンターのポスター印刷機能などを利用して分割印刷し、のり付けすると一覧の巨大な家系図が完成します。

とりあえず、ほぼ完成バージョンをアップします。
excelkakeizu_ver1.68.zipをダウンロード

兄弟を並べて表示するのは、無理だなとあきらめていましたが、
「本人の兄弟は並べて表示してほしいな」とご意見をいただき、また、考えていたら、

ひらめきました

今までコード昇順に1代目から本人→配偶者関係→兄弟関係　2代目と表示してました。そのため、先代関係の子供や孫が次の世代に割り込んできて、兄弟を並べて表示できませんでした。コード降順とか直系からなどと考えましたが、これまた、どこから配置していいか難しく、手のつけようがありませんでした。

ふと、
若い世代から、今の方法で配置すれば兄弟が並ぶのではないか
ちょっと細工をしてやってみたら、兄弟が並んでくれました。今度、親関係が前の世代に割り込みますが、それほど見にくくないようです。
結構いい感じかな？

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

バグ発見しました。列オーバーのとき表示が乱れることがあります。
いろいろ試しては、修正を重ねているため、
直していたはずが、直っていない。
というところが、多々あります
老化防止の趣味のエクセルですのであしからず。
バグ修正と列オーバー時の処理を追加しました。
ま、こんなところでしょう

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

このバージョンからセンター配置にしました。
また、没年月日の表示不具合修正しました。（変な表示になっていました）
センター配置にすることでエクセルの列制限（256列）に引っかかりやすくなりました。
列オーバーの場合表示できませんが、センター位置を変更することで表示できることがありますので、センター位置を変更できるようにしてみました。

なんとか公開できるレベル？？かなと　
excelkakeizu_ver1.6.zipをダウンロード

１００％描画は無理ですね。主に罫線ですが少し手修正が必要です。あしからず。
次は、センター位置を変更しても表示できない場合、表示できなかった人をどこかに表示して手修正でなんとか家系図を完成できるようにすることかな～

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

配置をいろいろ考えていたら
兄弟関係と配偶者関係を左右に分けてセンターから表示するといいような感じがしました。

今までの配置

センター配置

磯野家は

どれも自動レイアウトの無修正です。
センター配置の方がわかりやすい感じがします。
もう少しすっきりしたら公開します。