« バイクの洗車 | メイン | HYBRID W-ZERO3　TODAY画面 »

2011-07-10

エクセル家系図ver3.22

昨日、今日と当番です。昨日はフル出動でしたが
今日はアパートで待機中です。
そこで、老化防止の頭の体操をしました。
マウスクリックでセル座標がうまくとれるかなーーと

はい、うまくとれました
変更点
複数の家系図を表示する時の罫線の追加や消去が楽になるように
設定シートに自動でセル座標を入力できるようにしました。

0710

excelkakeizu_ver3.22.zipをダウンロード

投稿時刻 15:53 エクセル, エクセル家系図 |

トラックバック

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

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

コメント

にくまんさん
はじめまして
コメントありがとうございます。
すごいですね。他人が作ったＶＢＡを解析して
エラー回避できるなんて。

エクセル２００７を持っていないので検証できないのですが、調べてみたいと思います。

投稿： HIRO | 2011-09-08 20:24

最近使わせて頂きました。使い勝手がよく、大変感謝してます。
ただ、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形式にファイルを変換し、使っています。

投稿： にくまん | 2011-09-08 12:22

コメントを投稿