нашел 2 макроса добавляют/удаляют 1 строку, а надо объединены 4???
Добавление строки на которой стоишь
Код |
---|
Private Sub Add_Click()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 4).Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub |
Удаление строки на которой стоишь
Код |
---|
Private Sub Del_Click()
Dim retval As Integer
Dim num As Integer
Dim sheetmy As Excel.Worksheet
Set sheetmy = ActiveSheet
num = (Del.Top + 3.75) / 15
retval = MsgBox( _
"Вы действительно хотите удалить " _
& num & " ñòðîêó" & vbCrLf _
& "Возможности отмены действия не будет" _
, vbExclamation + vbOKCancel + vbDefaultButton2 _
, "Предупреждение")
If retval = vbOK Then
sheetmy.Unprotect
sheetmy.Rows(num).Delete Shift:=xlUp
sheetmy.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub |