エクセルVBA 行列の数を指定して罫線を引くマクロ教えてください

質問

下のようにSheet1に罫線を引く「開始セル(左右端)」「行」「列」が書いてあります。
この条件で罫線をSheet2に引くようにしたいのですが、変数の設定の仕方などが分かっていないようで、できません。教えていただけないでしょうか。マクロの記録をとったところ、下のようになりました。よろしくお願いします。

開始セル Sheet2!A1・・・Sheet1のB1セル
行 8・・・Sheet1のB2セル
列 2・・・Sheet1のB3セル

Sub borders()

Range("A1:B8").Select
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
With Selection.borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

回答No.3

onlyrom · ベストアンサー

先ず、Sheet1の条件の入れ方を以下のように変えるべきです。

Ｂ１　：　Sheet2　（シート名）
Ｂ２　：　A1　　　（開始セル）
Ｂ３　：　８　　　　（行数）
Ｂ４　：　６　　　　（列数）

'--------------------------------------　
Sub Test()
Dim myRange As Range
With Sheets(Range("B1").Value)
　Set myRange = .Range(Range("B2").Value).Resize(Range("B3").Value, Range("B4").Value)
　　　With myRange.Borders
　　　　　.LineStyle = xlContinuous
　　　　　.Weight = xlThin
　　　　　.ColorIndex = xlAutomatic
　　　End With
End With
End Sub
'------------------------------------------

以上。

お礼

分かりづらい質問だと自分でも後で読み直し思いましたが、このようにしたいと思っていました。ありがとうございました。

回答No.2

merlionXX

質問がとてもわかりづらいのですが
> 開始セル Sheet2!A1・・・Sheet1のB1セル
> 行 8・・・Sheet1のB2セル
> 列 2・・・Sheet1のB3セル

Sheet2!A1から、Sheet1のB2にある数値の行、Sheet1のB3にある数値の列までの範囲に罫線を入れるということでしょうか？
それなら、

Sub borders()

Dim r As Integer, c As Integer

With Sheets("Sheet1")
r = .Range("B2").Value
c = .Range("B3").Value
End With

With Sheets("Sheet2")
With .Range(.Cells(1, 1), .Cells(r, c)).borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With

End Sub

でどうでしょう？

お礼

ありがとうございました。

回答No.1

imogasi

>行列の数を指定して罫
どういう風な範囲指定をするのか。
＞Range("A1:B8").Select
のところを相対化するのだろうが、どういう風に指定するのか
左上隅セル＋行数＋列数
ぐらいしか指定の方法がないかな
左上隅セル＝C4
行数＝５
列数＝３
なら
Sub test02()
leftSUMIC = "C4"
r = Range(leftSUMIC).Row
C = Range(leftSUMIC).Column
Range(Cells(r, C), Cells(r + 5 - 1, C + 3 - 1)).Select
End Sub
＝＝＝
しかし上記のようなことより、Application.Inputboxの Type:=8
（範囲をユーザー指定）を検討してはどうでしょう。

お礼

ありがとうございました。