« 山ぶどう酒7日目 | メイン | エクセル家系図ver1.87 »

2010-09-26

エクセル家系図ver1.86

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

変更点
①表示不具合の修正
②データー取込み機能追加
 バージョンが変わるたびにデータをコピー、貼り付けするのが面倒になってきたのでデータ取込みボタンをつけました。(エクセル家系図ver1.6以上のみ、取込み可能、その他はダメ)
Ws000000
③家系図作成中の進行状況を表示
Ws000001
④表示項目の追加
Ws000003
Ws000002
住所など左上端に表示
前からでしたが、続柄の項目は、何でも入力できるようにしてました。

以上

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

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

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

 

トラックバック

このページのトラックバックURL:
http://app.ic-blog.jp/t/trackback/35266/25119345

エクセル家系図ver1.86を参照しているブログ:

コメント

行の多い2007のシートへシートコピーをして、マクロを開けてマクロをもコピーして挑戦したのですが、マクロは見るのも初めてなので、うまく動作しません。(当然ですか)
また、
・実行時エラー'1004’:BorderクラスのWeightプロパティを設定できませんの表示あり
'兄弟
If Left(CZ, 1) = "3" Then
⇒・・・・・
With Range(Cells(Y, LX), Cells(Y - 1, LX)).Borders(xlEdgeRight)
【.Weight = xlMedium】←この部分です
End With
わからないことだらけで、申し訳ないと思います
ゆっくり取り組みます
よろしくお願いします

前のコメントを修正していますので参照してください
VBAは【ツール】【マクロ】【V...B...E...
】で編集できます [module1]

私のは2007でした
理解はできるのですが、中身はまるっきし、わかりませんので、操作方法などアドバイスよろしくお願いします

列数についてエクセル2003までは、仕様で256列が最高になっています。エクセル2007以降は16,384列までできるようですが、私が使っているバージョンが2003ですので256列の制限があり、それ以上は不可能です。
新田さんが使っているバージョンが2007以上でしら、保存形式を変えることで、(Excelマクロ有効ブック 拡張子 xlsm)
ひょっとして可能かも知れません。(VBAの変更も必要です  i + 4 * j > 255の 255を変更)
'書き込み有無確認修正
i = X + SX * 4 * j
Do
If i + 4 * j 255 Then GoTo retuover
If Cells(Y, i) = CC Then Exit Do
If ko = 0 Then
If Cells(Y, i) = "" And _
((zz <> 1) Or Cells(Y, i + 4 * j) = "") Then Exit Do
Else
If Cells(Y, i) = "" And _
((zz <> 1) Or Cells(Y, i + 4 * j) = "") _
And Cells(Y + 10, i) = "" And _
(Cells(Y + 10, i + 4 * j) = "") Then Exit Do
End If
i = i + 4 * j
Loop

早速の返答大変有難うございます
入力打ち込みが多いので、時間があります、対応をよろしくお願いします。
作成は頭の中でのイメージですか、流石です。できた表は美しいですね。私は使いこなせるように頑張ります。
お願いの追加です、配偶者の兄弟を加えるとセンター位置を操作しても、作図されない漏れの人が出来ます。印刷を考慮しての範囲と考えますが、全体表のワイドをさらに広げることは可能ですか?
今の世代の子供の数は少ないのですが一世代が多いため、発生します、よろしくお願いします

新田さんはじめまして
作図に関して10名が最高になっています。
コード30番台が兄弟になっており、VBAでは30番台を兄弟と判断し作図しています。40番台を空けていますので、IF文の条件を変更すれば可能です。
ですが、フローチャートを書かずに頭の中でイメージして作っていますので(老化防止のための頭の体操です)、ちょっと時間をいただき、頭がクリアになったとき対応したいと思います。

HIRO様
初めまして。
家系図エクセル、昨日9/26にダウンロードさせていただきました。本日、叔父から手書きの未完の家系図を入手し、入力を始めました。ソフトは相当検証し、バージョンをアップされてのでしょう!作成ソフトは素晴らしいものですね。家系図作成のボタンをクイックすると驚きの作図です。また入力違いをすると線が途切れたり、一目瞭然です。是非活用させて頂きます、大変有難うございます。お願いがあります、兄弟は10名が最高の設定と思うのですが、父方の兄弟が12名おります(いまだ全員健在)、入力方法で対応が可能ですか?叔母2名分は飛ばして、続けます。兄弟12名バージョンのソフト作成をお願いできませんでしょうか?わからないことがあったらいろいろと教えて下さい。よろしくお願いします。

コメントを投稿