[[20220712165342]]　『1が入力されているセルを含む行に罫線を引く』（テスト）　ページの最後に飛ぶ

『1が入力されているセルを含む行に罫線を引く』（テスト）

1,aaa,AA,・・・
2,bbb,BB,・・・
3,ccc,CC,・・・
4,ddd,DD,・・・
5,eee,EE,・・・
6,fff,FF,・・・
1,ggg,GG,・・・
2,hhh,HH,・・・
・・・

このような一覧表があり、A列に「1」が入力されている行の上段に罫線を引くVbaのコードを教えて下さい。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 条件付き書式で行けると思いますが、ＶＢＡ
 でないとだめですか？

 ＶＢＡなら、とりあえず、罫線を引く作業の
 マクロの自動記録をしてみてください。
 あとは条件分岐するだけなので。
（通りすがり） 2022/07/12(火) 17:06

vbaでお願いします。
何度か試してみてできなかったので質問しています。
例文をお示しください。
（テスト） 2022/07/12(火) 17:22

＞例文をお示しください。
だったらVBAを示したらどうですか。
それが常識じゃないですか。

（てすとピース） 2022/07/12(火) 18:07

Sub ()
Worksheets("sheet1").Activate

For k = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(k, 1) = 1 Then
Rows(k).Borders(xlEdgeTop).LineStyle = xlContinuous
End If
Next k

End Sub

失礼しました。
お願いします。
（テスト） 2022/07/12(火) 18:16

そのままコピペして実行してみましたが問題なく動作しました。
どういったエラーが出るのでしょうか？
また、Worksheets("sheet1").Activateとなっておりますが
シート名はsheet1になっていますか？
（くまさん） 2022/07/12(火) 18:47

シート名はダミーで入れてるだけです
実行するとエラーにはなりませんが、罫線は何一つ変わりません。
仮にxlEdgeTopではなく、xlEdgeBottomにすると下線が引かれ、問題なく実行できますが、なぜか上線が実行されません。
なぜでしょうか。
（テスト） 2022/07/12(火) 20:11

罫線の色も指定してみたらどうでしょ？
白い罫線になってるってことはないですか？
（とおりすがり） 2022/07/12(火) 21:23

ありがとうございます。
試してみますね。
出来なかったらまた相談します。
（テスト） 2022/07/12(火) 21:26

コメント返信：