VBA 罫線について

質問

VBA初心者です。
(1)Sheet1のA1に罫線を引きたいセル数を入力
(2)Sheet2にS1A1に入力された数だけS2A1から横にセルが罫線で囲まれる
例
　(1)S1A1・・・2
　(2)S2A1、A2がセルごとに罫線が引かれる

罫線の引き方まではわかるのですが、常に数が変わる状態での引き方がわかりません。

回答No.2

higekuman

意地悪したいわけではないのですが、すぐには答えを出さないでおきます。

・A1だけに罫線を引く方法
・A1,A2に罫線を引く方法
・A1,A2,A3に罫線を引く方法

これらの方法はすべてお分かりなんですよね？
なのであれば、自力で解決できると思うのですが・・・

回答No.1

merlionXX

こういうことでしょうか。

Sub test01()
Dim x
x = Sheets("Sheet1").Range("A1").Value
Sheets("Sheet2").Rows("1:1").Borders.LineStyle = xlNone
With Sheets("Sheet2").Range("A1").Resize(1, x)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub