Excel VBA Store/Dimシートタブの色

Question

このコードを使用して、アクティブなシートを削除し、別のシートをコピーしてから、コピーしたシートの名前を削除したシートの名前に変更します。削除されたシートと一致するシート。

Dim ShtName As String 
Dim ws As Worksheet 
Application.DisplayAlerts = False 

ShtName = ActiveSheet.NAme 
ActiveSheet.Delete 

Dim NewSht As Worksheet 

Master_Work_Order.Copy After:=ActiveSheet 

Set NewSht = ActiveSheet 

'set new copied sheet name to Previous ActiveSheet's name 
NewSht.NAme = ShtName 

Answer 1

使用Sheet.Tab.Color

Sub test() 

    Dim ShtName As String 
    Dim ws As Worksheet 

    Dim oldTabColor 

    Application.DisplayAlerts = False 

    ShtName = ActiveSheet.Name 

    '/ Store Old Tab Color 

    oldTabColor = ActiveSheet.Tab.Color 

    ActiveSheet.Delete 

    Dim NewSht As Worksheet 

    Master_Work_Order.Copy After:=ActiveSheet 

    Set NewSht = ActiveSheet 

    'set new copied sheet name to Previous ActiveSheet's name 
    NewSht.Name = ShtName 


    NewSht.Tab.Color = oldTabColor 


End Sub