マクロでマスを作成

質問

入力された数のマスを作成したいのですが、うまくマクロが作動しません。
(1)A1には作成したいマスの数が入力される
(2)B1～B20に(1)で入力された数の□(しかく)で囲まれたマスが出来る
　※最高20列
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
(3)(2)では最高20マスしか出来ないので、60個以上のマスの場合
　C1～C20、D1～D20に作成される

よろしくお願いします

回答No.1

watabe007 · ベストアンサー

>(1)A1には作成したいマスの数が入力される
>(2)B1～B20に(1)で入力された数の□(しかく)で囲まれたマスが出来る
Ａ1に記入された数だけＢ1～のセルを罫線で囲むのなら
Sub Test()
　　Dim 商 As Long
　　Dim 余 As Long

　　商 = (Range("A1").Value - 1) \ 20
　　余 = (Range("A1").Value - 1) Mod 20 + 1
　　If 商 = 0 Then
　　　　Range("B1").Resize(余).Borders.LineStyle = xlContinuous
　　Else
　　　　Range("B1").Resize(20, 商).Borders.LineStyle = xlContinuous
　　　　Range("B1").Offset(, 商).Resize(余).Borders.LineStyle = xlContinuous
　　End If
End Sub

補足

回答ありがとうございます。
訂正があります。
B1～B20ではなく、B2～T2で□(しかく)を囲みたいのですが、
お手数ですが教えていただけますか？

回答No.2

watabe007

>B1～B20ではなく、B2～T2で□(しかく)を囲みたいのですが、
Range("B2").Resize(, 19).Borders.LineStyle = xlContinuous
これ、応用できませんか

お礼

ありがとうございました