如何在輸入值後獲取單元格的值？

Question

我想在輸入一些文本後獲取單元格的值。 基本上，我突出顯示一個單元格，輸入文本，按回車，然後我的代碼觸發，我將輸入的值分配給一個變量。

認爲這將是直截了當，但我很難過！

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 

代碼放在工作表模塊中。