Можно ли 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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы