今日はいい天気です
朝６時半から不動明王様の祭り、神社の囲い、裏のあじさいの刈取りと草刈りと大忙しです。庭木の囲いもやりたいところですが、ひとやすみ。
エクセル家系図も関係を増やすため、少しずつ修正していたんですが、昨日の夜２３時ころから2時半くらいまで夜更かしをして、ほぼいいところまでできました。
関係７まで増やしました。○代目本人からみて、７親等から９親等くらいまで表示できるはずです。
親族内の婚姻の結線はまだひらめきません。
excelkakeizu_ver3.b6.zipをダウンロード
アパートで待機中だったので、頭の体操をしました。
変更点
①エクセル2003以前の256列制限でぎりぎりまで表示するように修正。（書き込み確認フローを見直し修正。我が家の家系図も列オーバーなしで表示しました）
②親の罫線の不具合と交点がわかりやすいように変更（ひとり親の場合の直線を廃止）
③その他、細かな修正
２０代目以降に表示が乱れることが判明しました。
当初２０代以降を想定していなかったので、変化するコードを抽出するときに何代目かも関係コードと一緒に処理していました。そのため、２０代目が配偶者のコード２０と同じように処理してしまう部分がありました。
以下の赤字部分を追加修正しました。
'データ変化検出
SX = 1: SY = 0
For j = 0 To 4
C(j) = Mid(CC, j * 2 + 1, 2)
If j <> 0 Then
If C(j) <> Cells(j + 8, 4) And C(j) <> "00" Then CZ = C(j): z = j * 2 + 1
If C(j) = "21" Or C(j) = "22" Or C(j) = "23" _
Or C(j) = "27" Or C(j) = "28" Or C(j) = "29" Then SY = SY - 1: SX = 0
If Val(C(j)) > 50 Then SY = SY + 1: SX = 1
Else
CZ = "00"
End If
Next j
いままで15代目までの入力にしていましたが
ご要望により30代目まで増やしました。
参考まで増やし方は、以下のとおりです。
コードシートを表示し、シート保護を解除します。
15代目以降をコピーで任意の値まで増やします。
次に定義の名前を開いて、何代目リストの範囲を変更して完了です。
わかる人にはわかる。
わからない人には、さっぱりわからないと思います。
excelkakeizu_ver2.16.zipをダウンロード
我が家の家系図も２００人オーバーしました。
入力していくといろいろ不足しているところが見えてきます。
変更点
①関係項目の変更
配偶者の親関係を入力していくと、すぐに関係４にいってしまい入力できなくなります。
そこで、
関係１ 関係２
【配偶者】 【父親】
↓
関係１
【配偶者父】
と入力できるように変更しました。
②子供の有無確認を増加
子供の有無を確認し表示位置を調整していますが
いままで１２人目まで確認していましたが、配偶者関係の入力が増えると１２人を超える場合があります。超えると子供がいないと判断し表示が乱れます。
５０人まで増やしてみました。私のＰＣ ｃｏｒｅｉ７では表示速度はあまり変わりありませんが、表示が遅くなるかもしれません。
③配偶者二人目の表示乱れを修正
我が家でもついに列オーバーで1人表示できなくなりました。
エクセル2010がほしい
excelkakeizu_ver2.15.zipをダウンロード
当番のためアパートで待機中です。
で、頭の体操をまたしました。
変更点
①操作性の改善
フィルターでデータの抽出可能
移動ボタンを追加
コピー追加、新規追加機能
並び替えボタン追加
家系図からハイパーリンクで入力シートの該当行にジャンプ（修正入力が劇的に楽になります）
②家系図描画の改善
配偶者がいない場合の子供との罫線を接続
描画スピード改善
③家系図の表示項目を追加
備考欄や年齢、享年をコメント形式で表示
など
かなり変更しましたのでバグがあるかもしれません
何かありましたら教えてください。
excelkakeizu_ver2.01.zipをダウンロード
入力シートにもハイパーリンク設定（18：15修正）
変更点は
バグつぶし
表示精度向上（親関係）
エクセル２００７以上での保存形式変更へのアシスト（データ取込み時）
など
かなり、いい線まできています
そろそろ、いいかなぁ
excelkakeizu_ver1.93.zipをダウンロード
変更点
①入力人数３００人まで対応（行コピーすることでで５００人まで対応）
②エクセル２００７以上を使用の方が、マクロ有効ブック、拡張子ｘｌｓｍで保存することで２５６列以上の表示可能（未検証）
（エクセルのバージョンチェックをし最大値等の値を調整）
③センター位置変更範囲増
④データ取込み拡張子にｘｌｓｍ追加、ファイルの種類で選択できます。
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 に変更
新田さんどうでしょう
最近のコメント