VBA適応ハイライトセル動作

図1に示すように、単位セルの行と列のハイライト

最初の方法

プライベートサブworksheet_selectionchange（範囲としてByVal対象）
    Cells.Interior.ColorIndex = xlColorIndexNone
    target.EntireRow.Interior.ColorIndex = 6
    target.EntireColumn.Interior.ColorIndex = 50
End Subの

第二の方法

プライベートサブworksheet_selectionchange（範囲としてByVal対象）
    範囲として暗いRNG
    Cells.Interior.ColorIndex = xlNone
    設定しRNG = Application.Union（target.EntireRow、target.EntireColumn）
    rng.Interior.ColorIndex = 56
End Subの

図2に示すように、セル内にカラーコードの全てを示します

サブカラー（）
    私は薄暗いです
    Sheet2のでは
        I = 1 56
            .Cells（I、1）.ValueのI =
            .Cells（I、1）.Interior.ColorIndex = I
        次
    で終わります
End Subの

　なお：コードシートを実行する必要があり、不使用のコピー＆ペースト操作などが強調表示された領域を実行した後、新しいフォーマットの前にセルの書式がカバーされます。