Вставить в ячейку время когда была заполнена другая ячейка

[mr.beginner]

Здравствуйте.
Подскажите пожалуйста как можно организовать следующее:
Есть две ячейки. В первую я ввожу информацию (не важно какую. Просто делаю ячейку не пустой). А во вторую ячейку должно вписываться время заполнения первой ячейки.
Время во второй ячейке должно изменяться лишь если произошло изменение в первой ячейке, но никак не при изменении реального времени на компьютере.

[R Dmitry]

Сообщение от mr.beginner

Здравствуйте.
Подскажите пожалуйста как можно организовать следующее:
Есть две ячейки. В первую я ввожу информацию (не важно какую. Просто делаю ячейку не пустой). А во вторую ячейку должно вписываться время заполнения первой ячейки.
Время во второй ячейке должно изменяться лишь если произошло изменение в первой ячейке, но никак не при изменении реального времени на компьютере.

Для большинства случаев

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal <> "$A$1" Then Exit Sub
[b1] = Time
End Sub

в А1 вводитите в B1 время

[mr.beginner]

Спасибо Вам за помощь.
А возможно ли это организовать с помощью стандартных функций Excel?
а то я далёк от того как вы предложили решить эту задачу

[WizarD.89]

можно еще создать такую вот функцию в модуле:

Function changeCell_getTime(cel As Range) As String
changeCell_getTime = Time
End Function

и использовать таким обазом: b1="=changeCell_getTime(a1)"

где b1 -ячейка в которую вписывается время
а a1 - ячейка которая будет изменятся

[WizarD.89]

mr.beginner чем вам не нравиться мой варинт? эту функцию, можно использовать "как стандартную", главное что бы она была в модуле.

[mr.beginner]

Сообщение от WizarD.89

mr.beginner чем вам не нравиться мой варинт? эту функцию, можно использовать "как стандартную", главное что бы она была в модуле.

Я, к сожалению, не умею пользоваться всякими там модулями.
Вот так взять и скопировать я не могу - мне нужно понимать, что означает каждое слово (так вот я устроен)

[WizarD.89]

Я, к сожалению, не умею пользоваться всякими там модулями.
Вот так взять и скопировать я не могу - мне нужно понимать, что означает каждое слово (так вот я устроен)

вот вам пример.
откроете книгу, потом зайдете в редактор VBA (горячая клавиша alt+f11) дальше нужно заметить "module1",и открыть его. В нем и будет содержаться созданная мной функция:

Function changeCell_getTime(cel As Range) As String
changeCell_getTime = Time
End Function

Которая в качестве параметра принимает ячейку за который будет следить и возвращает при изменении этой ячейки, время ее изменения.

Эту функцию можно использовать как обычную формулу. достаточно написать в ячейке "=" и название функий, тоесть "changeCell_getTime" и передать ей ячейку за которой функция будет следить.

это можно рассмотреть на примере, в моей книги excel. На листе1 в ячейке "b1" содержится формула, которая будут возвращать время при изменении ячейки "a1".


Для того что бы формула работала нужно разрешить в безопасности запуск макросов.

[mr.beginner]

Большое... да что там... ОГРОМНОЕ Вам СПАСИБО за помощь.
Как приятно когда есть такие отзывчивые люди.