Можно ли 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д