На листе2 в ячейках В2 и С2 постоянно меняются числа. Каждое изменение необходимо записывать из ячеек В2 и С2 в столбцах D и E в новую ячейку. Т.е. появилось число, оно записывается в D2 и каждое новое изменение записывается в ячейки D3;D4;D5;D7;D8;D9;D10 и т.д. Аналогично в столбце Е.
Нашел макрос, данные сохраняются в ячейках D, а мне нужно в D и E ячейках. Что необходимо дописать в макрос? И возможно дописать?
[vba]
Код
Dim xVal As String 'Update by Extendoffice 2018/8/22 Private Sub Worksheet_Change(ByVal Target As Range) Static xCount As Integer Application.EnableEvents = False If Target.Address = Range("C2").Address Then Range("D2").Offset(xCount, 0).Value = xVal xCount = xCount + 1 Else If xVal <> Range("C2").Value Then Range("D2").Offset(xCount, 0).Value = xVal xCount = xCount + 1 End If End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) xVal = Range("C2").Value End Sub
[/vba]
Решил попробовать что есть, но не работает. Кликаем на ячейку С2, затем на вкладке лист2 кликаем п.к.м выбираем просмотреть код, вставляем код, нажимаем Alt+Q окно закрывается. Все ли правильно делаю?
Здравствуйте, помогите пожалуйста найти решение.
На листе2 в ячейках В2 и С2 постоянно меняются числа. Каждое изменение необходимо записывать из ячеек В2 и С2 в столбцах D и E в новую ячейку. Т.е. появилось число, оно записывается в D2 и каждое новое изменение записывается в ячейки D3;D4;D5;D7;D8;D9;D10 и т.д. Аналогично в столбце Е.
Нашел макрос, данные сохраняются в ячейках D, а мне нужно в D и E ячейках. Что необходимо дописать в макрос? И возможно дописать?
[vba]
Код
Dim xVal As String 'Update by Extendoffice 2018/8/22 Private Sub Worksheet_Change(ByVal Target As Range) Static xCount As Integer Application.EnableEvents = False If Target.Address = Range("C2").Address Then Range("D2").Offset(xCount, 0).Value = xVal xCount = xCount + 1 Else If xVal <> Range("C2").Value Then Range("D2").Offset(xCount, 0).Value = xVal xCount = xCount + 1 End If End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) xVal = Range("C2").Value End Sub
[/vba]
Решил попробовать что есть, но не работает. Кликаем на ячейку С2, затем на вкладке лист2 кликаем п.к.м выбираем просмотреть код, вставляем код, нажимаем Alt+Q окно закрывается. Все ли правильно делаю?Pro_ex
Упустил этот момент, данные экспортируются из программы в эксель через DDE. Так понимаю нужно прописать путь что бы макрос понимал из какой программы брать данные в эксель? Или нужен совсем другой макрос для этих целей?
Упустил этот момент, данные экспортируются из программы в эксель через DDE. Так понимаю нужно прописать путь что бы макрос понимал из какой программы брать данные в эксель? Или нужен совсем другой макрос для этих целей?Pro_ex
Сообщение отредактировал Pro_ex - Четверг, 09.12.2021, 22:54
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
