Можно ли VBA Excel создать новое событие и написать под него некий код?
Формулировка задачи:
Вопрос от "чайника". Есть ряд листов, содержащих определённое форматирование, формулы и т.п. В листах пользователю иногда приходится добавлять строки. Хочу, чтобы добавление строки вызывало бы обработку моего кода. Возможно ли такое в принципе, и если возможно, то подскажите хотя бы в общих чертах, в каком направлении двигаться?
Решение задачи: «Можно ли VBA Excel создать новое событие и написать под него некий код?»
textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_Change(<font color="blue">ByVal</font> Target <font color="blue">As</font> Range)
<font color="blue">Static</font> lngRows <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">If</font> IsNumeric(Replace(Replace(Target.Address, <font color="teal">"$"</font>, <font color="teal">""</font>, , , vbBinaryCompare), <font color="teal">":"</font>, <font color="teal">""</font>, , , vbBinaryCompare)) <font color="blue">Then</font>
<font color="blue">If</font> lngRows < ThisWorkbook.ActiveSheet.UsedRange.Rows.Count <font color="blue">Then</font>
MsgBox <font color="teal">"!!!"</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">If</font>
lngRows = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
<font color="blue">End</font> <font color="blue">Sub</font>