присвоить значение ячейки с курсором ячейке А1

[Temnota]

Специалисты, помогите написать макрос:
Нужно присвоить значение ячейки, на которой сейчас курсор ячейке А1.
Спасибо!

[IgorGO]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  [a1] = Target
End Sub

[Temnota]

Большое спасибо!

[vostok]

Хороший код, сразу придумал, как и где можно использовать, но вот хотелось бы, чтобы в А1 отображалось набираемое значение в ячейке, где в этот момент курсор, возможно так?

[EducatedFool]

чтобы в А1 отображалось набираемое значение

Нет, без значительного усложнения кода тут не обойтись.
Дело в том, что Excel блокирует все макросы на время редактирования текста внутри ячейки, и поэтому ввод новой буквы в ячейку отследить не представляется возможным.

На форуме встречался пример того, что Вы просите, но там реализовано всё несколько сложнее - при двойном щелчке по ячейке поверх неё рисуется текстбокс (под размер выделенной ячейки), а отловить изменения текста в текстбоксе уже просто.

[vostok]

Сообщение от EducatedFool

Нет, без значительного усложнения кода тут не обойтись..

Понял, спасибо. Двойной щелчок не канает, поскольку ячейка выделяется после перехода с соседней путем нажатия Enter