|
シート1からでもシート2からでも・・・
ある表題を入力すると他のシートの同じセル位置にその表題が出るようにするにはどのように書けばよいのでしょう。しかもどのシートからも替えられるようにする方法を教えてください。
シートのチェンジではシート1からで出来ますが、シート2からも他のシートの変更が・・・どのシートからでもセルのA1の内容が反映される方法と考え、コードを書きましたが、うまく動きません。間違っている個所のご指定ご指導をお願いします。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Dim stG As String, i As Long
With ActiveSheet
stG = .Cells(1, 1).Value
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Cells(1, 1) = stG
Next i
End With
End Sub
|
|