-2

データのリストを検索し、コンテンツ リストのデータに基づいてエントリを色分けできるマクロが必要です。

たとえば、列 A のデータを検索し、列 B (コンテンツ) に対応する場合、列 A のエントリを色分けして、列 B の事前に色分けされたデータと一致させます。

約1000のエントリをループするにはこれが必要です。

前もって感謝します。アンディ

4

1 に答える 1

0

質問をする前に調査して解決策を試み、すでに試したことを共有するというサイトのルールに従わなかったので、あなたを励ますことはできません. それがおそらく、他の人があなたの質問に否定的な評価を付けた理由です.

ただし、問題のパラメーターについて十分に検討したため、この質問を作成する前に何かを試した可能性があると思われます。疑いの恩恵をあなたに与えています。「事前に色分けされたデータ」がセルの内部を意味する場合、これが可能な解決策です。

データの列とヘッダー行に一致するように上部の定数を変更します。

データの事前の色分けが、私が使用した内部設定以外のものである場合は、マクロ レコーダーを使用してどの設定を変更するかを判断し、このコード (With rCell.Interiorコードがある場所)に組み込むというマーティ マクブリーのアドバイスを参考にしてください。 .

Sub MatchColor()

Const sColumnID As String = "A"
Const iHeaderID As Integer = 1

Dim rCell As Range
Dim rColumn As Range

Set rColumn = Range(sColumnID & iHeaderID, Range(sColumnID & iHeaderID).End(xlDown))

For Each rCell In rColumn

    If rCell.Value = rCell.Offset(0, 1).Value Then
        With rCell.Interior
            .Pattern = rCell.Offset(0, 1).Interior.Pattern
            .PatternColorIndex = rCell.Offset(0, 1).Interior.PatternColorIndex
            .ThemeColor = rCell.Offset(0, 1).Interior.ThemeColor
            .TintAndShade = rCell.Offset(0, 1).Interior.TintAndShade
            .PatternTintAndShade = rCell.Offset(0, 1).Interior.PatternTintAndShade
        End With
    End If

Next rCell

End Sub
于 2013-08-19T15:08:57.697 に答える