необходимо вставить в ячейку excel текущую дату и время с фиксацией оного при нахождении в соседней ячейки "1"

Ответы:

Nic70y

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
If [b1] = 1 Then
[a1].Value = CDate(Format(Now(), "hh:mm:ss DD.MM.YY"))
End If
If [b1] <> 1 Then
[a1].FormulaR1C1 = "=NOW()"
End If
End If
End Sub

Алексей Матевосов

Не совсем понятно задание.
Мне кажется такого кода достаточно.
Код в модуле листа
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
If Target = 1 Then Target.Offset(0, -1).Value = Now()
End If
End Sub
Формат ячеек в столбце А Тип "ч:мм:сс ДД.ММ.ГГГГ"
Если в ячейках столбца В происходит изменение значения с любого на 1, то время фиксируется а ячейках столбца А, при обратной смене значения ничего не произойдет.
Если надо в одной ячейке, то строку с первым If заменить на
If Target.Address(0, 0) = "B1" Then

10 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.