Excel VBA 質問スレ Part44at TECHExcel VBA 質問スレ Part44 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト1043:デフォルトの名無しさん 17/01/03 11:14:55.29 wnrnHeuT.net うめ 1044:デフォルトの名無しさん 17/01/03 22:42:43.33 v/nbA2QD.net あめ 1045:デフォルトの名無しさん 17/01/04 06:09:09.73 a8j3oUUf.net かめ 1046:デフォルトの名無しさん 17/01/04 09:05:25.75 /4cm7e5r.net おめ 1047:デフォルトの名無しさん 17/01/04 11:17:19.55 QaTHv5+Z.net 週間スケジュールを作りたいです。 シートが7つあって、全シートのB3にToDoを書き込むセルがあります。 どのシートのToDoを変更しても全てのシートのToDoが連動して変更されるようにしたいです。 コードを教えていただけないでしょうか。 1048:デフォルトの名無しさん 17/01/04 11:57:23.66 zmi2V8Wc.net >>987 目的はよしとして より具体的に動作を表現して。 1049:デフォルトの名無しさん 17/01/04 11:58:47.15 0ISnzSv/.net 全シートにWorksheet_Change置いて変更箇所がB3だったら全シートに反映でいいんじゃね Private Sub Worksheet_Change(ByVal Target As Range) Dim Sheet As Worksheet Application.EnableEvents = False If Target.Address = "$B$3" Then For Each Sheet In ActiveWorkbook.Worksheets If Not ActiveSheet Is Sheet Then Sheet.Range(Target.Address).Value = Target.Value End If Next End If Application.EnableEvents = True End Sub 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch