Butonun tıklandığında olayına aşağıdaki kodu ekleyerek deneyiniz.

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.