|
G-Luckサン/ひかるサン ありがとうございます ぺこ <(_ _)>
ひかるサンの作っていただいた物いい感じですが
コード内容がちょっと難しいです (T▽T)アハハ!
自分なりに一応何とか作ってはみました
結構理想に近い形にはなったのですが・・・
ひかるサンのみたいに範囲指定ができません
どうすればいいでしょう??
Sub 罫線()
t = InputBox("【左側余白】 数は ??")
If t = "" Then
MsgBox "数を入力してください 初めからやり直しです"
Exit Sub
End If
x = InputBox("【上側余白】数は ??")
If x = "" Then
MsgBox "を入力してください 初めからやり直しです"
Exit Sub
End If
n = InputBox("枠内の【 縦 】のcell数は ??")
If n = "" Then
MsgBox "数を入力してください 初めからやり直しです"
Exit Sub
ElseIf n < 1 Then
MsgBox " 1 以上を入力してください 初めからやり直しです"
Exit Sub
End If
m = InputBox("枠内の 【 横 】 のcell数は ??")
If m = "" Then
MsgBox "数を入力してください 初めからやり直しです"
Exit Sub
ElseIf m < 1 Then
MsgBox " 1 以上を入力してください 初めからやり直しです"
Exit Sub
End If
For retu = t To 43 Step 1
For gyo = x To 44 Step n
Cells(gyo + 1, retu + 1).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Next gyo
Next retu
For cellretu = t To 43 Step m
For Cellgyo = x To 44 Step 1
Cells(Cellgyo + 1, cellretu + 1).Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next Cellgyo
Next cellretu
End Sub
|
|