Страницы: 1
RSS
Перенос значения из одного столбца в другой по двойному клику, Перенос значения из одного столбца в другой по двойному клику
 
Добрый день друзья.
Нужна помощь. Необходимо с помощью двойного клика по диапазону в столбце G в столбец J. Не удаляя при этом значения в в ячейке J, но зачеркивая их.
 
Цитата
Станислав Вьюжанин написал:
но зачеркивая их.
В строках 57, 58, 63, по двойному клику в каждой ячейке столбца G. Дата 19.02.2020 перемещается в столбец J соответствующей строки, при этом предыдущие даты в столбце J зачеркиваются но не удаляются.
 
Код
Target.Offset(, 3) = Target.Value & Chr(10) & Target.Offset(, 3)
Target.Offset(, 3).Characters(Start:=12, Length:=100).Font.Strikethrough = True


п.с. смысл с этого куска кода?
Код
If ActiveCell.Value = "" Then
            ActiveCell.Value = Date + 7
        Else
            ActiveCell.Value = Date + 7
        End If
Изменено: V - 20.02.2020 10:24:30
 
Цитата
V написал:
п.с. смысл с этого куска кода?Код ? 12345If ActiveCell.Value = "" Then            ActiveCell.Value = Date + 7        Else            ActiveCell.Value = Date + 7        End If
Если ячейка пустая при двойном клике дается неделя на устранение проблемы, если ячейка заполнена, то дата перемещается в право и дается еще неделя на устранение.
Спасибо. Попробую добавить ваш код.
 
Цитата
V написал:
? 12Target.Offset(, 3) = Target.Value & Chr(10) & Target.Offset(, 3)Target.Offset(, 3).Characters(Start:=12, Length:=100).Font.Strikethrough = True
Отлично работает. Спасибо большое за помощь.
Если вдруг кому то нужен будет образец, то он во вложении.
Страницы: 1
Наверх