Как получить значение ячейки после ввода значения?

Question

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

Думал, что это будет просто, но я в тупике!

Answer 1

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

Dim v As Variant 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target.Cells(1), Me.Range("A1")) Is Nothing Then 
     v = Target.Cells(1).Value 
    End If 
End Sub 

код идет в модуле рабочего листа.