Dim xlApp As Excel.Application
Dim xlSh As Excel.Worksheet
Dim objWkb As Excel.Workbook
Set xlApp = New Excel.Application
xlApp.Visible = True
Set objWkb = xlApp.Workbooks.Add
With xlApp.Sheets(1)
Set Rng = .Range("B2:H15")
End With
Rng.Borders.Weight = 2
With Rng.Borders(7)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
With Rng.Borders(8)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
With Rng.Borders(9)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
With Rng.Borders(10)
.LineStyle = 1
.ColorIndex = 0
.TintAndShade = 0
.Weight = 3
End With
Referanslara Excel referansını eklemeyi unutmayın.
Ayrıca, lütfen konularınızı Site Kurallarına uygun olarak açınız.