エクセル家系図ver2.17
２０代目以降に表示が乱れることが判明しました。
当初２０代以降を想定していなかったので、変化するコードを抽出するときに何代目かも関係コードと一緒に処理していました。そのため、２０代目が配偶者のコード２０と同じように処理してしまう部分がありました。
以下の赤字部分を追加修正しました。
'データ変化検出
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
気に入っていただいてありがとうございます。
罫線が引けていないところがありましたか
もし良ければ、引けていないところのコード（二人分）を教えてください。検証してみます。
投稿： HIRO | 2010-11-13 17:18
試してみました！
罫線が引けてないところがありましたが
順序良く並びました。
感謝です！！
お忙しいのにお手を煩わせ申し訳ありませんでした。
これからもよろしくお願いします。
私は、HIROさんの系図の方式がとても気に入っています。
投稿： Mako.K | 2010-11-13 16:24