Почему код не запускается в событии Worksheet_Change()?

Question

Обновление: Если я определил диапазон как input_range из A2: P29. Затем If Enter в строке 30, то он работает. Тем не менее, Input_range не автоматически расширяется, и я хотел бы переместить всю строку вниз, а не только последнюю строку в диапазоне. Как я мог достичь этих двух вещей?

Previous question

Начиная с помощью Сиддхарт Rout, я могу сделать эту работу на новый файл Excel. Однако, независимо от того, что я пробовал в этом файле

Sample Excel File - он просто не работает. Я предполагаю, что существует некоторая структура, чтобы предотвратить автоматизацию добавления строки. Если да, то как я могу заставить код работать?

Answer 1

Когда вы обнаруживаете событие Worksheet_Change(), вам необходимо иметь свой код в объекте рабочей таблицы, а не в модуле.

Вот как это сделать:

1. Alt-F11, чтобы открыть редактор VBA
2. Скопируйте Worksheet_Change() к югу от Module1
3. Дважды щелкните на Sheet6 (itemmaster)
4. Paste код

Убедитесь, что вы видите Рабочий лист и Изменить в двух раскрывающихся списках в верхней части редактора.

Примечание: вы должны всегда включать Option Explicit, чтобы требовать объявления переменной. Прочитайте этот ответ, чтобы увидеть, как это сделать: https://stackoverflow.com/a/10653204/138938