2012-04-19 21 views

答えて

4

あなたは

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 

コードは、ワークシートのモジュールに行くのワークシートレベルのイベントハンドラを使用することができます。

+0

+1その通りです。 –

+0

完璧、ありがとうございます! – johnmcp

関連する問題