Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Табель: добавить строку, подставить значение
 
Подскажите макрос добавляющий строки в таблицу перед строкой итого дней
- и подставить значение из новой строки в итого дата и часов
Изменено: Leon Poy - 20 Окт 2015 10:40:20
 
Поменяйте в своём профиле отображаемое имя - сейчас оно с нарушением Правил. Спасибо!
 
нашел 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
 
можно так...
 
Код
Sub Макрос1()
    Dim r1 As Long
    Dim r2 As Long
    r1 = Range("Итог").Offset(-4).Row
    r2 = Range("Итог").Offset(-1).Row
    Rows(r1 & ":" & r2).Copy
    Range("Итог").Offset(0, -1).Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub


Спасибо!
Страницы: 1
Читают тему (гостей: 1)
Наверх