Excel上に、赤・青・黄と3色に分類されたシートがあったとして、それぞれの色のシートの一つを値入力や変更したら、同色の他シートも全てそれに反映されるようにすることはできますでしょうか?
例えば、添付画像の[Red1]シートを変更したら[Red2]シート・[Red3]シートも同じ値に変更され、
同様に[Blue1]シートを変更したら[Blue2]シート・[Blue3]シートも、[Yellow1]シートを変更したら[Yellow2]シート・[Yellow3]シートも変更されるようにしたいです。
お詳しい方、どうかご教示願います。
No.2ベストアンサー
- 回答日時:
No.1
- 回答日時:
シートタブの色はTab.Colorなどで取得設定できます
色を限定しないと課題が残ると思いますが まずは同じシートタブ色のシート全てに処理する場合 一例として下記のようなものでどうでしょう
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim groupColor As Double
Dim s As Worksheet
Dim rAddress As String
Application.EnableEvents = False
rAddress = Target.AddressLocal
groupColor = Sh.Tab.Color
For Each s In Worksheets
If s.Tab.Color = groupColor Then
s.Range(rAddress).Value = Target.Value
End If
Next
Application.EnableEvents = True
End Sub
ThisWorkbookモジュールにコピーして使います
課題:
①実行 タブ色を限定する処理を追加する
②実行範囲を限定する など
ご回答いただき、ありがとうございました。
シート色別で変更が反映できることを確認できました。
重ねてのお願いで恐縮ですが、ご記載いただいたVBAコードでは全てのセルが反映される形となっていますが、対象のセル範囲を指定するにはどのようにしたらよいでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Excel(エクセル) エクセル相違の発見 6 2021/11/15 19:36
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- その他(Microsoft Office) Excelのシートの表示、非表示について教えてください。 2 2021/12/23 11:16
- Visual Basic(VBA) 【Excel VBA】全シートのデータを1シートに集約するには? 2 2021/11/15 18:13
- Visual Basic(VBA) 【Excel VBA】Worksheets().Active でエラーが出る原因を教えてください 6 2021/11/08 17:25
- Visual Basic(VBA) 【関数orVBA】カーソルのある行を黄色にし、A列の値を別シートに表示できますか? 4 2021/12/28 00:03
- Visual Basic(VBA) 【Excel VBA】書き込み先のシートが存在しなかった場合、新規でシート作成する方法 3 2021/11/04 21:45
- Excel(エクセル) マクロを修正できないものか、統合シートについて 3 2021/12/07 09:26
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
VBA とびとびの列を結合させる
Visual Basic(VBA)
-
-
4
Excel マクロについて
Visual Basic(VBA)
-
5
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
6
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
7
xmlドキュメントから別拡張子で保存したい
Visual Basic(VBA)
-
8
Vba Cells.Findについて教えてください
Visual Basic(VBA)
-
9
Excelマクロで空白セルの大小比較処理について
Visual Basic(VBA)
-
10
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
13
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
14
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
15
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
16
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
17
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
18
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
19
引数に数値、文字列の混在
Visual Basic(VBA)
-
20
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
Excelマクロのエラーを解決した...
-
【ExcelVBA】全シートのセルの...
-
実行時エラー1004「Select メソ...
-
excelのマクロで該当処理できな...
-
エクセルのシート名変更で重複...
-
Excel チェックボックスにチェ...
-
VBAで指定シート以外の選択
-
特定の文字を含むシートだけマ...
-
Worksheet_Changeの内容を標準...
-
VBA 最終行まで数式をコピーする
-
IFステートの中にWithステート...
-
Excel VBA で自然対数の関数Ln...
-
エクセルVBA 変数への代入がう...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
XL:BeforeDoubleClickが動かない
-
ExcelVBA シート名を複数セルか...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報