2011-03-22 5 views
0

これは単純な単純な問題ではないかと思います。Excel VBを使用すると、別の特定のセルが変更された場合に特定のセルを更新します。

A1の内容をB1にコピーして、B1を完全に編集可能にしたいと思いますが、A1に何か変更が加えられた場合、その内容は再びB1にコピーされます。 次のコードは内容をコピーしますが、変更があった場合はA1を変更した場合にのみ有効にします。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Range("A3").Formula = Range("A1").Formula 
End Sub 

は、あなたの助けのためにあなたは、このコードを使用することができます ランディ

+1

コードは実際には:範囲( "B1")。数式=範囲( "A1")。数式 – Randy

答えて

2

ありがとう:ここ

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("A1")) Is Nothing Then 
     Range("B1") = Range("A1") 
    End If 
End Sub 
+0

優秀!それは完全に機能します。どうもありがとうございました。 :) – Randy

0

は、Excel cpearson.com/excel/Events.aspx

のイベントについてのページはのようなものは何もありませんです"cell_changed"あなたが得ることができる最高のものは "Worksheet_change"ですが、これはシート上の何かが変わるたびに発生します。もちろん、変更された「A1」だった場合は、このイベントの場合にチェックすることができます。しかし、たぶんあなたの機能は非常に頻繁にチェックする必要があります。

関連する問題