Запуск макроса при добавлении строк

Есть лист. Разделен условно на несколько диапазонов. Например:
Range(Cells(n, 2), Cells(k, 2)), Range(Cells(n, 3), Cells(k, 3)) ...
Range(Cells(a, 2), Cells(b, 2)), Range(Cells(c, 3), Cells(d, 3)) ...
...
и т.д. (всего по горизонтали 5, по вертикали 9)
Как сделать так, чтобы запускался определенный макрос (отрисовка внешних границ диапазона ячеек) только при добавлении строк (строки) на листе, в любой из указанных диапазонов?

0

Делайте дело по этому событию.

0

Зависает НАМЕРТВО!

Добавлено через 26 минут
Существует ли вообще возможность отследить само событие "вставка строки"

0

Я написал какое это событие - прочитайте ещё раз

0

То ли я тебя не понял, то ли ты меня. По подробнее пожалуйста.

0

Да уж куда подробнее - при добавлении строки на лист срабатывает событие Worksheet_Change() - вот это и нужно использовать.
Хотя если например оформить диапазон как таблицу - то и макросы не нужны, рамки будут автоматически "соблюдаться".
Вообще такой вопрос без файла можно рассматривать только теоретически

0

Вот часть кода
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
...
'îïðåäåëåíèå äèàïàçîíà ñòðîê óïð.
uprn = 2
For i = 1 To 100
If Cells(i, 1).Value = "1 ðîòà" Then
uprk = i - 1
Cells(uprn, 11).Value = Str(uprn) + " - " + Str(uprk)
Else: End If
Next i

' ãðàíèöû áîëüíûå
With Excel.Range(Cells(uprn, 2), Cells(uprk, 2)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Excel.Range(Cells(uprn, 2), Cells(uprk, 2)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' ãðàíèöû îòïóñê
With Excel.Range(Cells(uprn, 3), Cells(uprk, 4)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Excel.Range(Cells(uprn, 3), Cells(uprk, 4)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' ãðàíèöû äð. ïðè÷èíû
With Excel.Range(Cells(uprn, 5), Cells(uprk, 5)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Excel.Range(Cells(uprn, 5), Cells(uprk, 5)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
' ãðàíèöû äð. ïðè÷èíû
With Excel.Range(Cells(uprn, 6), Cells(uprk, 6)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Excel.Range(Cells(uprn, 6), Cells(uprk, 6)).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
end sub
При использовании
Private Sub Worksheet_Change(ByVal Target As Range) зависает намертво
(в спойлере не открывается)

0

Без файла вникать совершенно неохота, но обычно поступают так - если код по событию изменения на листе изменяет что-то на листе, то этим кодом нужно сперва отключить эти события!

0

И что-то не увидел проверки вхождения Target в диапазоны

0

В VB я 0,00001, пишу как могу и что знаю
Пишу раз в пятилетку в случае крайней необходимости, поэтому сильно не ругайте

0

Да пишите как хотите - я например Вам не учитель, ругать не буду...
Но и файл с Вашим кодом я создавать не собираюсь.

0

Поправьте меня:
Есть в книге модуль list1calc
в нем есть
Private Sub list1()
...
End Sub
Хочу чтобы на листе на листе "Лист1" при изменении ячеек в диапазоне Range(Cells(12, 2), Cells(16, 10)) вызывался макрос из указанного выше модуля.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range(Cells(12, 2), Cells(16, 10)) = True Then
list1
Else: End If
End Sub

Добавлено через 11 минут
То что выше отбой
Поправьте меня:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range(Cells(12, 2), Cells(16, 10)) = True Then
list1
Else: End If
End Sub
Хочу чтобы при изменении в ячейках указанного диапазоны вызывался макрос list1 из модуля
Вызывает ошибку tipe mismatch

0