にくまんさん はじめまして コメントありがとうございます。 すごいですね。他人が作ったＶＢＡを解析して エラー回避できるなんて。 エクセル２００７を持っていないので検証できないのですが、調べてみたいと思います。
最近使わせて頂きました。使い勝手がよく、大変感謝してます。 ただ、Excel2007を使っているのですが、以下のようなエラーが出ます。 それで、パッチ的対応で回避できたので、ご連絡します。 ＞実行時エラー '1004': Border クラスの Weight プロパティを設定できません。 エラー箇所） '配偶者の兄弟 With Range(Cells(Y, X), Cells(Y - 3, X)).Borders(xlEdgeRight) .Weight = xlMedium <- error箇所 End With 色々やってみましたが、全くエラーがとれず、困った挙句、 以下のように、セルのリセット時に白の枠線を付加して、 '家系図クリア Sheets("家系図").Select Rows("90:1100").Select Selection.Clear Selection.RowHeight = 12 <-追加 Selection.Borders.LineStyle = xlLineStyleNone <-追加 Selection.Borders.ColorIndex = 2 <-追加 Selection.Borders.Weight = xlMedium <-追加 線の作成時に以下のように色を黒に変更して使ってます。 With Range(Cells(Y, X), Cells(Y - 2 + SY, X)).Borders(xlEdgeRight) .ColorIndex = 1 <-追加 .Weight = xlMedium End With もし何かの参考になれば幸いです。 私は、xlsm形式にファイルを変換し、使っています。
コメント：エクセル家系図ver3.22
にくまんさん
はじめまして
コメントありがとうございます。
すごいですね。他人が作ったＶＢＡを解析して
エラー回避できるなんて。
エクセル２００７を持っていないので検証できないのですが、調べてみたいと思います。
最近使わせて頂きました。使い勝手がよく、大変感謝してます。
ただ、Excel2007を使っているのですが、以下のようなエラーが出ます。
それで、パッチ的対応で回避できたので、ご連絡します。
＞実行時エラー '1004': Border クラスの Weight プロパティを設定できません。
エラー箇所）
'配偶者の兄弟
With Range(Cells(Y, X), Cells(Y - 3, X)).Borders(xlEdgeRight)
.Weight = xlMedium <- error箇所
End With
色々やってみましたが、全くエラーがとれず、困った挙句、
以下のように、セルのリセット時に白の枠線を付加して、
'家系図クリア
Sheets("家系図").Select
Rows("90:1100").Select
Selection.Clear
Selection.RowHeight = 12 <-追加
Selection.Borders.LineStyle = xlLineStyleNone <-追加
Selection.Borders.ColorIndex = 2 <-追加
Selection.Borders.Weight = xlMedium <-追加
線の作成時に以下のように色を黒に変更して使ってます。
With Range(Cells(Y, X), Cells(Y - 2 + SY, X)).Borders(xlEdgeRight)
.ColorIndex = 1 <-追加
.Weight = xlMedium
End With
もし何かの参考になれば幸いです。
私は、xlsm形式にファイルを変換し、使っています。