色付きセルの列ヘッダーを返す

Question

このプロセスはQC目的で使用されています。私は、その値に基づいて間違っている特定のセルと、私たちが適所に持っているバリデーションルールをハイライトするスプレッドシートを持っています。各行の列Aに色分けされた各セルの列名を返す方法があるかどうかは疑問でした。たとえば、D2、F2、およびG2が間違っている場合、正確に何が間違っているかを指定するために、それらの列見出しをすべてA2に入れます。私は、細胞の色を使って物を自動化しようとすると少し複雑になることを知っています。私はこれが必要であると仮定しているVBAで経験はありません。これが可能なのでしょうか、もしそうなら、適切なルートは何でしょうか？データは列Aから列BSまで実行され、行番号は異なる可能性があります。行1,000まで実行できればそれは素晴らしいでしょう。添付されているデータは、私が作業しているようなものです。

The red means something is wrong in that row, and the orange cell is the color indicating that it is a wrong value

Answer 1

はい、行うことが可能です。ここでは、私が一緒に引っ張って始める手助けをするコードの一部を紹介します。

Lastrow = Cells(Rows.count, "A").End(xlUp).Row 'Get last row 
With ActiveSheet 
Lastcol = .Cells(1, .Columns.count).End(xlToLeft).Column 'Get last col 
End With 

For x = 1 To Lastcol 'Iterate Col  
     For i = 1 To Lastrow 'Iterate Row 
      'if red.... 
      If Cells(i, x).Selection.Interior.Color = 255 then 
       'Move name to Cell A and append off of old name(s). 
       Cells(i, "A") = Cells(i, "A") & ", " & Cells(i, x) 
      End If  
     Next i 'next row 
    Next x 'next col