@all_angarsk

Public shet As Worksheet
Public rng As Range
Private Sub CommandButton1_Click()
Set shet = ThisWorkbook.Worksheets(2)
Call coder(shet)
End Sub

Function coder(shet)

With shet
For i = 1 To 5
r = r + 10

Set rng = shet.Range(Cells(r + i, 2), Cells(r + i, 8))
rng.Merge
With rng.Borders(xlEdgeTop)
.LineStyle = 1
.Weight = 4
.Color = RGB(255, 0, 0)
End With
With rng.Borders(xlEdgeRight)
.LineStyle = 1
.Weight = 4
.Color = RGB(255, 0, 0)
End With
With rng.Borders(xlEdgeLeft)
.LineStyle = 1
.Weight = 4
.Color = RGB(255, 0, 0)
End With
With rng.Borders(xlEdgeBottom)
.LineStyle = 1
.Weight = 4
.Color = RGB(255, 0, 0)
End With
Next
End With
End Function
Преведенная сейчас прога не работает. Нужно, чтобы она форматировала Лист2. Я ранее написал коряво не поняли меня.

Вернуться к обсуждению:
Как перенести Range на другой лист VBA

0