エクセル家系図ver1.79
変更点は、配置の微修正（配偶者の有無と子供の有無をチェックをし配置を修正するようにした）、罫線の一部修正、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をダウンロード
動いてくれて良かったです。
ＥＸＣＥＬのバージョン違いによるエラーみたいですね。
投稿： HIRO | 2010-09-25 08:08
できました。
今から打ち込んでみますね
ありがとうございます。
投稿： おき | 2010-09-24 19:07
にゃみこさん、こんにちは。
まだ、未完ですがよろしければ使ってみてください。
投稿： HIRO | 2010-09-23 08:21
初めまして。
家系図エクセル、ダウンロードさせていただきました。以前から家系図を作成したいと思っていたけどどうやって作ればいいかわからず、前にすすみませんでした。父も歳をとり身体も不自由になりつつあるので、タイムリミットが迫っているのを感じさがしていたところ見つけました。まだダウンロードしたばかりなのでこれからですが、わからないことがあったらいろいろと教えて下さい。よろしくお願いします。
投稿： にゃみこ | 2010-09-23 06:24