Excel VBA シートの見出し色を他のシートからコピーするマクロ 個人用マクロブックに組み込める
Excelで、シートの見出し色を他のシートと同じものにするマクロを示す。内容の説明は後で書きます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub copySheetTabColor() Dim ws As Worksheet Dim rng As Range Set ws = ActiveSheet On Error GoTo myErr '***Application.InputBoxのType:=8は、セル範囲を選択させるものです。*** Set rng = Application.InputBox("シート見出し色をコピーしたいシートのセルをどこか選択してください", Type:=8) ws.Tab.Color = rng.Parent.Tab.Color'シート見出し色をコピー myErr: Exit Sub End Sub |
このマクロは、コピペしてからExcelの個人用マクロブ…
