こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

このマクロあっていますでしょうか?よろしくお願いいたします。

★sheetA
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$14" And Target.Address <> "$C$19" _
And Target.Address <> "$F$19" Then Exit Sub
If Target.Address <> "$R$14" And Target.Address <> "$S$14" _
And Target.Address <> "$T$19" Then Exit Sub
Application.EnableEvents = False
With Sheets("B")
.Range("F14").Value = Range("C14").Value
.Range("F17").Value = Range("C19").Value
.Range("F20").Value = Range("F14").Value
.Range("F23").Value = Range("F19").Value
End With
With Sheets("C")
.Range("F13").Value = Range("R14").Value
.Range("F14").Value = Range("S14").Value
.Range("F18").Value = Range("T19").Value
End With
Application.EnableEvents = True
End Sub

★sheetB
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$14" And Target.Address <> "$F$17" _
And Target.Address <> "$F$23" Then Exit Sub
Application.EnableEvents = False
With Sheets("A")
.Range("C14").Value = Range("F14").Value
.Range("C19").Value = Range("F17").Value
.Range("F19").Value = Range("F23").Value
End With
Application.EnableEvents = True
End Sub

★sheetC
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$13" And Target.Address <> "$F$14" _
And Target.Address <> "$F$18" Then Exit Sub
Application.EnableEvents = False
With Sheets("A")
.Range("R14").Value = Range("F13").Value
.Range("S14").Value = Range("F14").Value
.Range("T19").Value = Range("F18").Value
End With
Application.EnableEvents = True
End Sub

投稿日時 - 2006-10-30 12:05:55

QNo.2506586

困ってます

質問者が選んだベストアンサー

> あっていますでしょうか?

Excelのシートの値が分からないと、実行できないし…。
実行してみて、期待どうりの結果になるのなら、合っています。

投稿日時 - 2006-10-30 12:10:30

お礼

回答ありがとうございます。
とりあえず動いていますのでこのまま続けてみます。
ありがとうございました。

投稿日時 - 2006-10-30 14:03:56

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)