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

2011-07-10

エクセル家系図ver3.22

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

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

0710

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

トラックバック

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

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

コメント

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

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

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

コメントを投稿