Здравствуйте.
помогите решить вопрос.
у меня задача, в столбик d вводятся цифры (в любую ячейку)
после того как их ввели, в эту ячейку пишется текст "(1002) 625 " + цифры который были введёны
без запуска макроса, то есть делается после изменения ячейки
нашел кое что подобное тут
но добавляется в соседнюю
когда делаешь в текущую всё зацикливается, как сделать, что б один раз срабатывало?
помогите решить вопрос.
у меня задача, в столбик d вводятся цифры (в любую ячейку)
после того как их ввели, в эту ячейку пишется текст "(1002) 625 " + цифры который были введёны
без запуска макроса, то есть делается после изменения ячейки
нашел кое что подобное тут
но добавляется в соседнюю
Скрытый текст |
|---|
| Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target 'проходим по всем измененным ячейкам If Not Intersect(cell, Range("A2:A100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100 With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату .Value = Now .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With End If Next cell End Sub |
когда делаешь в текущую всё зацикливается, как сделать, что б один раз срабатывало?
Изменено: - 16.03.2015 23:21:37
