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

質問

• エクセル２０００のマクロ操作について教えてください。
• エクセル２０００で品名の計の行のa列文字を小計の文字に変換して、小計の文字の下に罫線の太線を横に引きたいです。
• エクセル２０００でb列の行には罫線の実線を横に引きたいです。c列には倉庫のコード、d列からY列までデータが入っています。

回答No.5

nishi6

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

『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