VBA 罫線

質問

VBA 罫線

仮にb=15

cells(12,2)の下の線をCells(12, 3)～ Cells(2, b)まで同じ線を引く方法です。

Dim sh2 As Worksheet

Set sh2 = Worksheets("test")
a =12

今開いてるシートではなくて別のシートのを選択したいのですが
エラーになってしまいます。

全てのcellsの前にｓｈ2を入れればいけると思ったのですが駄目でした。
どーうしたらいいのでしょうか？

Do Until (sh2.Cells(a, 1) = "合計") Or (sh2.Cells(a, 2) = "合計")

With .Range(Cells(a, 3), Cells(2, b)).Borders(xlEdgeBottom)
.LineStyle = Cells(a, 2).Borders(xlEdgeBottom).LineStyle
.Weight = Cells(a, 2).Borders(xlEdgeBottom).Weight
.ColorIndex = Cells(a, 2).Borders(xlEdgeBottom).ColorIndex
End With

a = a + 1
Loop

回答No.1

kmetu · ベストアンサー

With sh.Range(sh.Cells(a, 3), sh.Cells(2, b)).Borders(xlEdgeBottom)

にして、bはどこにもでてきませんからbが適切な変数になるようにしてください。