マクロをつかうしかないですか？

質問

シート１のＡ１、シート２のＡ１、シート３のＡ１を同じ数字（文字）を入れたいのです。

　たとえばシート１のＡ１（以下略します）を変更した場合シート２、シート３を自動的に変更

　シート２を変更した場合はシート１、シート３を変更

　シート３を変更した場合はシート１、シート２を変更

ちなみにエクセル２００３です。

管理用のシートを作成し、そのシートのＡ１とシート１～シート３を参照させ、管理用のシートのＡ１を変更するマクロを作るしかないのでしょうか？

またアクセスでしなさいという意見は申し訳ありませんが、却下とします。

回答No.5

jindon · ベストアンサー

参考になりますか？

>３つではないのでコレからかんがります

下記コードをThisWorkbookのモジュールに貼り付けます。

Sub 変更()
Dim i As Integer, ws As Worksheet
For Each ws In Worksheets
Application.EnableEvents = False
If ws.Name <> "管理" Then
ws.Range("A1").Value = ActiveSheet.Range("A1").Value
End If
Next
Application.EnableEvents = True
End Sub

意味：
ブック中のシートで 管理 と名前の付いたシート以外のシートの A1 の値を A1 を変更したシートの値にします。
コード中の If ws.Name <> "管理" の部分で変更したくないシート名を指定していますので、""内を適当に変えてやればそれ以外のシートを変更します。
又、変更したくないシートが複数の場合は、
If ws.Name <> "管理" And ws.Name <> "シート名" And ws.Name <> "シート名" then
という具合に And で続けていきます。

各シートのモジュールには、

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
ThisWorkbook.変更
End If
End Sub

としておけば、何か修正が必要になった場合はSub 変更 の内容を変えれば良いので、後が楽になりますね。

お礼

皆様　ご回答・アドバイス等ありがとうございます。

回答No.4

sydneyh

シート1～3を作業グループとし、全てのシートのA1を一括変更するやり方はどうでしょう。

補足

毎回、グループ化するのなら、意味がない（毎回、管理用のsheetに移動し、戻るのが面倒だからマクロでやろうかなと思ったのですから）ですよね・・・。（たぶん）

回答・アドバイス等ありがとうございます。

回答No.3

jindon

VBA以外では無理だと思います。

各シートのモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row <> 1) + (Target.Column <> 1) Then Exit Sub
Application.EnableEvents = False
Sheets("Sheet1").Cells(1, 1).Value = Target.Value
Sheets("Sheet2").Cells(1, 1).Value = Target.Value
Sheets("Sheet3").Cells(1, 1).Value = Target.Value
Application.EnableEvents = True

End Sub

を貼り付ける。

シートのどれかのA1が変更された場合、Sheet1からSheet3迄のA1の値は最後に変更された値になります。

お礼

なんとかできましたが、３つではないのでコレからかんがります。ｗ

ご回答・アドバイス等ありがとうございます。

回答No.2

jindon

VBA以外では無理だと思います。

各シートのモジュールに

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row <> 1) + (Target.Column <> 1) Then Exit Sub
Application.EnableEvents = False
Sheets("Sheet1").Cells(1, 1).Value = Target.Value
Sheets("Sheet2").Cells(1, 1).Value = Target.Value
Sheets("Sheet3").Cells(1, 1).Value = Target.Value
Application.EnableEvents = True

End Sub

を貼り付ける。

シートのどれかのA1が変更された場合、Sheet1からSheet3迄のA1の値は最後に変更された値になります。

お礼

なんとかできましたが、３つではないのでコレからかんがります。ｗ

ご回答・アドバイス等ありがとうございます。

※５０％の確率で、お礼が消されるので、両方にお礼かいときます。ｗ

回答No.1

OMP

Sheet1,Sheet2,Sheet3という名前と仮定します。
Sheet2のA1とSheet3のA1に以下の関数を入れてください

=Sheet1!A1

これで出来ます。

お礼

何をしたいのかよく分からない気もしますので、少し具体的に書きます。

シート４にデータが含まれているとします。

シート１～シート３はシート４のデータを参照して、表を作成します。主キー（？）によっては表が１枚になったり２枚になったりします。
コレを管理するのがエクセルで管理するのは少々面倒だと思います。のでシート１には１枚目、シート２には２枚目（表が完全にＮＵＬＬの場合あり）を表示しょうとおもっているのです。
（しつこいですがアクセスで表や計算をさせるのは少し大変なので嫌です。）

でシート１でもシート２でも自由に主キーを変更し、関連するシート（シート１ならシート２、シート２ならシート１）も同時に変更をしたいのです。

補足

それだとシート１のＡ１を変えても、シート２のＡ１、シート３のＡ１はかわりませんよね？

ほかのシートに同じようにすると循環エラーになるかと思います。

　ご回答・アドバイス等ありがとうございます。