Färgmarkera rader vid autofiltrering

Färgmarkera rader vid autofiltrering

Det finns ingen händelseprocedur att tillgå vid autofiltrering, dvs när vi gör urvalet i en eller flera kolumner.

Det gör att vi måste nyttja en annan händelseprocedur istället, nämligen Worksheet_Calculate. För att denna händelse ska exekveras krävs dock att det finns en eller flera formler i arbetsbladet.

I detta tips visas hur vi kan färgmarkera varannan rad vid filtrering av poster.

I exemplet används följande formel för att instantiera händelseproceduren Calculate:

=DELSUMMA(9;B2:B100)

För att erhålla färgmarkering används villkorsstyrd formatering där följande formel används:

=REST(RAD();2)

För engelsk version används: =MOD(ROW(),2)

Följande bild visar hur resultatet blir vid en filtrering av data:

Om ett felmeddelande erhålls vid kopiering till VBA-modul så läs mer här»

(© 2002 - 2004 All rights Colo - Used by permission)

Option Explicit

Private Sub Worksheet_Calculate()

   Dim rnData As Range

   With Me

      Set rnData = .Range("A2:B" & .Range("B65536").End(xlUp).Row)

   End With

   With rnData.SpecialCells(xlCellTypeVisible)

      With .FormatConditions

         .Delete

         .Add Type:=xlExpression, Formula1:="=REST(RAD();2)"

      End With

      .FormatConditions(1).Interior.ColorIndex = 15

   End With

End Sub