変更点
①入力人数３００人まで対応（行コピーすることでで５００人まで対応）
②エクセル２００７以上を使用の方が、マクロ有効ブック、拡張子ｘｌｓｍで保存することで２５６列以上の表示可能（未検証）
（エクセルのバージョンチェックをし最大値等の値を調整）
③センター位置変更範囲増
④データ取込み拡張子にｘｌｓｍ追加、ファイルの種類で選択できます。
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をダウンロード
いい色になってきました。
わきにあるのは家の裏で収穫した栗です。
半部分位、栗虫にやられましたが、今年は豊作かも
変更点は、配置の微修正（配偶者の有無と子供の有無をチェックをし配置を修正するようにした）、罫線の一部修正、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代目と表示してました。そのため、先代関係の子供や孫が次の世代に割り込んできて、兄弟を並べて表示できませんでした。コード降順とか直系からなどと考えましたが、これまた、どこから配置していいか難しく、手のつけようがありませんでした。
ふと、
若い世代から、今の方法で配置すれば兄弟が並ぶのではないか
ちょっと細工をしてやってみたら、兄弟が並んでくれました。今度、親関係が前の世代に割り込みますが、それほど見にくくないようです。
結構いい感じかな？
バグ発見しました。列オーバーのとき表示が乱れることがあります。
いろいろ試しては、修正を重ねているため、
直していたはずが、直っていない。
というところが、多々あります
老化防止の趣味のエクセルですのであしからず。
バグ修正と列オーバー時の処理を追加しました。
ま、こんなところでしょう
最近のコメント