またまた、頭の体操をしました。
変更点
①表示不具合の修正
②データー取込み機能追加
バージョンが変わるたびにデータをコピー、貼り付けするのが面倒になってきたのでデータ取込みボタンをつけました。（エクセル家系図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をダウンロード
最近のコメント