Событие по изменению содержимого в ячейке

@pixel · Регистрация: 19.05.2009

Студворк — интернет-сервис помощи студентам

Добрый день.
С макросами столкнулся впервые, поэтому сорри за тупой вопрос.
На странице есть ячейка в которой я заношу дату. При изменении даты, в другой ячейке появляется название месяца. Теперь в третьей ячейке мне нужно получить значение четвертой ячейки именно когда во второй ячейке меняется название месяца. Нашел вот такой код.

Visual Basic
1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Row = 2 Then Cells(5, 10) = Cells(29, 10)
End Sub

Если в ячейке вручную что то менять - все работает, но т.к. во второй ячейке автоматом меняется название месяца а не вручную, код не работает. Подскажите, как побороть.

@testuser2 · 29.06.2022, 18:05

B2 - вторая ячейка
C2 - третья
D2 - четвертая
В С2 пишете формулу =ЕСЛИ(B2; D2; "")

@pixel · 29.06.2022, 18:15 **[ТС]**

testuser2, порозже проверю.

@testuser2 · 29.06.2022, 18:19

Сообщение от pixel

testuser2, порозже проверю.

можете не проверять, все раотает

@pixel · 30.06.2022, 10:14 **[ТС]**

Сообщение от testuser2

можете не проверять, все раотает

а у меня нет. сразу весь столбец покрылся "#ЗНАЧ!". Ячейка С2 - была без формул, там вставлялся остаток вручную. Последующие строки в этом столбце уже содержат формулы для вычисления текущего остатка по дням (одна строка = один день). В итоговой строке стоит формула определяющая остаток на конец месяца исходя из значения последней строки (естественно, что в каждом месяце строк может быть разное количество), поэтому формула: =ИНДЕКС(J6:J28;ПОИСКПОЗ(1E+306;J6:J28;1) )
В итоге ваш вариант не подошел. Либо теперь в итоговую строку надо вручную добавлять остаток. Придется оставаться на макросе.

@АЕ · 30.06.2022, 10:31

Сообщение от pixel

Придется оставаться на макросе.

О чем я и говорил...

@testuser2 · 30.06.2022, 12:53

Сообщение от pixel

а у меня нет. сразу весь столбец покрылся "#ЗНАЧ!".

Да, я не правильно понял суть, у вас триггером действия должно быть не появление значения а именно изменение. Причем новое значение должно отличаться от предыдущего, т.е. предыдущее должно быть запомнено, допустим в одном из столбцов. Условие должно быть - если значение отличается от предыдущего, тогда это равно то. Тут надо видеть таблицу/образец, чтобы более понимать, как можно сделать этот финт.

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@testuser2 1412 / 876 / 93 Регистрация: 08.02.2017 Сообщений: 3,736 Записей в блоге: 2
	29.06.2022, 18:05
	B2 - вторая ячейка C2 - третья D2 - четвертая В С2 пишете формулу =ЕСЛИ(B2; D2; "") 1

@pixel 26 / 19 / 5 Регистрация: 19.05.2009 Сообщений: 2,319
	29.06.2022, 18:15 [ТС]
	testuser2, порозже проверю. 0