|
Sheet1のA1セルに値が変更されたらSheet2からSheet6までのセルA1にもその値を反映させたいと思い、以下のようなコードをSheet1のコードに記述しました。
Public Sub Worksheet_Change(ByVal target As Range)
Worksheets("Sheet1").Range("A1").Value = Range("A1").Text
Worksheets("Sheet2").Range("A1").Value = Range("A1").Text
Worksheets("Sheet3").Range("A1").Value = Range("A1").Text
Worksheets("Sheet4").Range("A1").Value = Range("C4").Text
Worksheets("Sheet6").Range("A1").Value = Range("A1").Text
End Sub
しかしこれを実行すると「再計算100%」と左下に表示されたままフリーズします。
何かいい対処法、または別の方法はありませんか?
よろしくお願いします。
|
|