Excelシートのタブの色をセルにコピー

Question

ExcelシートのタブをセルにコピーするExcelシートには数百のワークシートがあり、他のすべてのシートを参照するワークシート（トラッカーシート）があります。他のシートには完成に基づいて色分けされたタブがあり、トラッカーシートでそのシートを参照したいと思います。ワークシート・タブの色を見つけて、それをトラッカー・シートのそれぞれのトラッカー行に追加する方法はありますか？

Answer 1

Dim ws As Worksheet 
    Set ws = ActiveWorkbook.Worksheets("Sheet1") 
    MsgBox ws.Tab.Color 

これは、それはこれが

Answer 2

実際に行うには非常にシンプルなもの、

ActiveWorkbook.Sheets("SheetABC").Tab.Color '<= parse the color of the tab 

あなたは、変数を使用して、あなたのニーズに合わせてこの色を操作することができます。

Answer 3

はい、あなたが使用することができますをテストするためのMsgBoxで表示するようにした

プライマリまたはないのかどうかに応じて、ヘックス/ RGBなどの色の値を返します。

dim ws as worksheet 
ws.tab.color=' numerical value of the tab color you are looking for 

if文で設定し、カウンタを使用して設定色のタブを追跡します。

for each sht in application.worksheet 

next sht 

Answer 4

私はあなたの問題を試してみて、複製するsample worksheetを作成しました。あなたにも、ブック内のすべてのワークシートをループすることができます。 「TrackerSheet」と色付きのタブを持つ他のいくつかの空白のワークシートがあります。あなたの命名規則がシートのためにどのようなものか分かりませんので、ちょうど "シート"を使用しました。私はまた、次のコードを実行するためのボタンを使用していますが、使用している場合には、それを使用することができます。

Sub Button2_Click() 
    Dim tabColorIndex As Variant, index As Integer 

    'For all of your sheets being tracked 
    For index = 1 To 3 
     'Retrieve the tab's colorIndex at index 
     tabColorIndex = Sheets("Sheet" & index).Tab.colorIndex 
     'Set the cells' colors in the respective row from columns A to F 
     Sheets("TrackerSheet").Range("A" & index & ":F" & index).Interior.colorIndex = tabColorIndex 
    Next index 
End Sub 

この色の行を上記のリンクに示すように。