マクロで指定の行に罫線を引く方法

質問

エクセル2003です。

やりたいことはタイトルにあるように指定行に罫線を引くなのですが
具体的には、

A列の10行目から80行までランダムに1から3までの数字が入っていて、"1"が入ってるセルの上側でその行のA～AC列まで二重罫線を引きたいという状況です。

条件付けで1を探してそのセルの範囲で罫線を引かせるってのは、For Nextで探しつつって感じなんでしょうか？

よろしくお願いします。

回答No.1

ASIMOV · ベストアンサー

Sub M1()
　For Each mRange In Range("A10:A80")
　　If mRange = 1 Then
　　　Range(Cells(mRange.Row, "A"), Cells(mRange.Row, "AC")).Select
　　　　With Selection.Borders(xlEdgeTop)
　　　　　.LineStyle = xlDouble
　　　　　.Weight = xlThick
　　　　　.ColorIndex = xlAutomatic
　　　　End With
　　End If
　Next
End Sub
------------------------
で、どうでしょう

補足

ありがとうございます。
確かにこれでできることは確認しました。

それで、現在あるワークシートを"ｚ"と定義して使っているのですが、その場合どこを変えればいいのでしょうか？
Rangeの所に
z.Range
とやってみましたが反映はされませんでした。
そんな単純な物じゃないですね(-_-;)
よろしければその辺りもお願いします。