エクセル２０００マクロ操作について

下記のようなエクセルのデータがあります。
品名の計の行のa列文字を小計の文字に直して小計の文字の下の行に
罫線の太線を横に引きたい。倉庫のデータが入っているb列の行には罫線の実線を横に
引きたい。c列には倉庫のコード、ｄ列からＹ列までデータが入っています。
マクロではどうやって作成すれば良いですか教えてください。
尚、外枠と２行目の下にはすでに横の線が入っています。g列からY列にもデータ
が入っています。

a列　　　　　 b列　　c列　 d列　　e列　　　ｆ列　　
品名 　 　 倉庫
TR160 セ新港　 870 150
TR160 セ門司van 001
TR160 セ宇都宮 A91 800
TR160 セ東大阪 533 575 150
TR160 計 575 1100
TR380 セ新港 870
TR380 セ宇都宮 A91 　25
TR380 セ東扇島 386 1200
TR380 セ東大阪 533 2050
TR380 計 3275
総計 　　　　　 　

No.7 ベストアンサー 回答者： kenken0001 回答日時： 2002/02/10 14:28

#4ですが、回答がたくさん出ているので

追加の投稿はしません。失礼しました。

No.6 回答者： imogasi 回答日時： 2002/02/10 14:02

A列の行１～９行目まで、任意の数字を入力し、１０行目に「183f計」を入れて、モデル的にテストしました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheets("sheet1").Range("a1:a100").Find("計").Select
Selection = "合計"　’小計か
a = Selection.Row
Range(Cells(a, 1), Cells(a, ２5)).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End Sub
を実行すると「計」は「合計」となり、そのセルの底の罫線は
AからY列まで太線になりました。
そのセルの値が「計」そのものでなくても、「計」の文字を含むとFindメソッドは見付けてくれるようです。
「計」のある行がA列に複数有る時（本件も）の処理はFindの解説
やヘルプで調べてください。
合計行を入れるときは
Selection.offset(1,0)="合計"
を最後の「計」の発見の後に使って出来るでしょう。（Offsetの利用）

この回答へのお礼

実際やってみます。ありがとうございました。

お礼日時：2002/02/16 08:44

No.5 回答者： nishi6 回答日時： 2002/02/10 12:43

質問の意味を捉えきれているか疑問ですが・・・

質問にある表が何行目からなのか分からないので、表の最終行から処理しています。
コメントをつけていますので、不要な処理をしていたら削除して下さい。

『QNo214254.Excel95とExcel2000でのマクロでの動作違いについて』と同じような処理ですか。
『QNo214254』のコードも短く書き換えられそうですね。


Sub 小計の罫線()
　　Dim rw As Long '行カウンタ
　　For rw = Range("A65536").End(xlUp).Row - 1 To 1 Step -1
　　　　'*** B列に下線を引く ***
　　　　If Range("A" & rw) <> "" And Range("A" & rw) <> "品名" Then
　　　　　　Range("B" & rw).Borders(xlEdgeBottom).Weight = xlThin
　　　　End If
　　　　'*** 小計の処理 ***
　　　　If InStr(Range("A" & rw), "計") > 0 Then
　　　　　　'*** 小計を書く ***
　　　　　　With Range("A" & rw)
　　　　　　　　.Value = "小計"
　　　　　　　　.HorizontalAlignment = xlCenter
　　　　　　End With
　　　　　　'*** 小計がある行に下線(太線)を引く ***
　　　　　　With Range("A" & rw & ":Y" & rw).Borders(xlEdgeBottom)
　　　　　　　　.LineStyle = xlContinuous
　　　　　　　　.Weight = xlThick
　　　　　　End With
　　　　End If
　　Next
End Sub

No.4 回答者： kenken0001 回答日時： 2002/02/10 10:57

少し時間を下さい。

ここを閉めずに少しお待ちください。
１．計を小計に
２．小計の下には太い罫線
ですね。

１．Ａ列で"計"を検索
（個人的にはＡ２を読み込み
Instrb関数で検索
無ければ行数プラスしてＡ３へとします）

２．見つかったら"小計"と置き換え
（小を追加してセルに戻す）

３．その行の下に太い罫線を引く
（上から順番に降りてくれば
何行目かわかるのでそこでＡからＹに罫線）

４．最終行まで繰り返す


データが連続している、
途中に空白行が無いことを前提にします。
またはデータ数（行数）がわかるでも可

これで分かれば閉めてもらって構いませんので。

No.3 回答者： imogasi 回答日時： 2002/02/09 23:26

「する意味」と「したいこと」が伝わりません。

私の理解できた程度からすると、なぜコンなこと程度で
マクロを使うのか、手動でやれば良いじゃないかと思いました。実はなにか面倒なことが潜んでいるのでしょうが
それが読めません。

この回答への補足

質問の仕方が悪くてすいません。
なぜマクロを使うかと言うと、列はあらかじめ固定されていますが、
行の位置が変わってきますので、合計されている行の位置は固定でありません。
結果がその都度変わるということです。

補足日時：2002/02/10 09:03

No.2 回答者： kirara_pika 回答日時： 2002/02/09 20:03

メニューの「ツール」→「マクロ」→「新しいマクロの記録」を選択して、そのままマクロの記録を停止させずに、

実際に手動で罫線を引いてみてください。
罫線を引き終わったら記録を停止し、モジュールの内容を確認すると、コードが出来ています。範囲指定（Range）を変更すれば、罫線を引く範囲も調整されます。

No.1 回答者： nishi6 回答日時： 2002/02/09 17:00

質問の表内容のスペースが詰まって、よく分かりませんね。

『_』などを使うか、全角スペースを使って再度、表を表示されたほうが考えやすいです。

疑問点としては、
＞計の行
この『計』が入っているのは、B列ですか？
この行のA列を『小計』にして、『計』の文字はそのままですか？

＞倉庫のデータが入っているb列の行には罫線の実線を横に引きたい
b列には全ての行について罫線を引く？または『計』のある行だけ？

＞外枠と２行目の下にはすでに横の線が入っています。g列からY列にもデータが入っています
この意味は？２行目の下にある罫線と同じ罫線を全ての行に引くことですか？いわゆる升目のようにしてしまうのでしょうか。

＞総計
表の『総計』はA列にあり、これが最終行でしょうか。

『各行、２行目と同じ下罫線を引いて、A、B列の罫線種は変えて強調したい』という風にも読めますが、補足をお願いします。

この回答への補足

いつも質問の仕方が悪くてすいません。
よろしくお願いします。


この『計』が入っているのは、B列ですか？
Ａ列です。例：TR160計→小計
　　　　　　　TR380計→小計
Ａ列に入っている、TR160計→小計の文字にかえて表示する
　　　　　　　　　TR380計→小計　〃

b列には全ての行について罫線を引く？
全ての行に線を引く

この意味は？２行目の下にある罫線と同じ罫線を全ての行に引くことですか？
Ａ列には引きません。
Ａ列に引きたいのは計の入っている行の下に罫線の太線をＡ列からＹ列まで引きたい

補足日時：2002/02/10 10:19