Изначально материалы брал из этой темы
Из неё же взял макросы
В VBA я думдук поэтому вопросы покажуться элементарными
Вопрос 1
Этот модуль, как я понимаю, добавляет и удаляет строки в книге при выполнении макроса кроме листа "ТВП", как добавить к нему ещё один лист?
Необходимо чтобы выполнению так же игнорировался лист, например "Свод"
Вопрос 2
Как я понимаю данный код добавляет кнопки Добавить строку, удалить строку на определённый лист. Но опять же я в VBA и в програмировании в целом не силён.
Код не работает (кнопки не появляются). Нужны они на листе ТПП. не робит в общем
Из неё же взял макросы
В VBA я думдук поэтому вопросы покажуться элементарными
Вопрос 1
| Код |
|---|
Sub Insert_Rows()
Dim ws As Worksheet
r = ActiveCell.Row
c = Selection.Rows.Count
For Each ws In ThisWorkbook.Sheets
[COLOR=#ff0000] If ws.Name <> "ТПВ" Then[/COLOR]
ws.Range("C" & r & ":C" & r + c - 1).EntireRow.Insert
End If
Next
End Sub
Sub Delete_Rows()
'
'
Dim ws As Worksheet
r = ActiveCell.Row
c = Selection.Rows.Count
For Each ws In ThisWorkbook.Sheets
[COLOR=#ff0000] If ws.Name <> "ТПВ" Then[/COLOR]
ws.Range("C" & r & ":C" & r + c - 1).EntireRow.Delete
End If
Next
End Sub |
Этот модуль, как я понимаю, добавляет и удаляет строки в книге при выполнении макроса кроме листа "ТВП", как добавить к нему ещё один лист?
Необходимо чтобы выполнению так же игнорировался лист, например "Свод"
Вопрос 2
Как я понимаю данный код добавляет кнопки Добавить строку, удалить строку на определённый лист. Но опять же я в VBA и в програмировании в целом не силён.
| Код |
|---|
Option Explicit
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim i As Long
'Dim x As Long
'Dim n As String
'
'
'n = Me.Name
'i = Sheets(1).Range("IV1").Value
'If Me.UsedRange.Rows.Count = i Then Exit Sub
' If Target.Cells.Count = Target.EntireRow.Cells.Count Then
'
' x = Target.Row
' If Me.UsedRange.Rows.Count > i Then
' Call Insert_Rows(x, n)
' Else
' Call Delete_Rows(x, n)
'10
' End If
'End If
'Sheets(1).Range("IV1").Value = Me.UsedRange.Rows.Count
'End Sub |
Код не работает (кнопки не появляются). Нужны они на листе ТПП. не робит в общем
