| |
こんにちは。
具体例がちょっと解らなかったのですが、入力したら、全シートの同じセルが同じ値になる、というのであれば、
sheetA,sheetB,sheetC,sheetDの各シートモジュールに、
Private Sub Worksheet_Change(ByVal Target As Range)
CopyOtherSheets Target
End Sub
と書き、
標準モジュールに、
Sub CopyOtherSheets(Ref Target As Range)
'イベント発生禁止
Application.EnableEvents = False
'全シートに同じ値を書き込む
Worksheets("sheetA").Cells(Target.row, Target.Column).Value = Target.Value
Worksheets("sheetB").Cells(Target.row, Target.Column).Value = Target.Value
Worksheets("sheetC").Cells(Target.row, Target.Column).Value = Target.Value
Worksheets("sheetD").Cells(Target.row, Target.Column).Value = Target.Value
'イベント発生許可
Application.EnableEvents = True
End Sub
と書けば、某シートの某セルに何かを書き込むと、全シートの某セルと同じセルに同じ値が書き込まれます。
特定のセルだけそのようにしたい場合は、「全シートに同じ値を書き込む」のブロックを、Ifとかで条件分けしてください。
▼初心者 すう さん：
>初めまして、こちらにお世話になるのは始めてです。よろしくお願いします。
>
>４つのシートに入力したものが自動で又別なシートに入力出来るようにしたいのですが、
>マクロの本を見てもどれをすればいいのか分からず（マクロ初心者です）困っています。
>
>相対参照というのも試したのですが、貼付けではなく自動入力と言った形になるよう言われています。
>具体的には
>sheetA aaa
>sheetB bbb
>sheetC ccc
>sheetD ddd
>
>と入れると
>sheetA゜ aaa
> aaa
>sheetB゜ bbb
> bbb
>sheetC゜ ccc
> ccc
>sheetD゜ ddd
> ddd
>になるようにしたいのですが…
>
>どうぞよろしくお願いします
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
