VBA - Naizmenično bojenje redova u Excel-u

Kada imate ogromne radne listove sa velikim brojem podataka, često možete da se izgubite u redovima i kolonama. Zato bi na neki način trebali da ih vidno obeležite. Jedan od najboljih načina je naizmenično bojenje redova, ili kolona, radi lakšeg čitanja istih linija (redova) od leve strane prema desnoj. Izgled radnog lista koji ćemo dobiti je sličan izgledu papira za kompjutersku štampu. Ceo posao naizmeničnog obeležavanja redova, uradiće sledeći makro:

  Sub ObojeneLinije()
   Dim BrojBoje As Integer
   Dim TrRed As Long
   Dim PrviRed As Long
   Dim PoslRed As Long
   Dim IntervalRedova As Long
   Dim OvajRed As String
   Dim PoslKolona As String
   Dim BrReda As String
   
   PrviRed = InputBox("Koji je prvi red za bojenje?")
   PoslRed = InputBox("Koliko redova imate u radnom listu?")
   IntervalRedova = InputBox("Na koliko redova zelite promenu?")
   PoslKolona = InputBox("Koja kolona je poslednja?")
   PoslKolona = UCase(PoslKolona)
   BrojBoje = InputBox("Koju boju zelite?" _
   & vbCrLf & "Svetlo zuta=36" _
   & vbCrLf & "Svetlo zelena=35" _
   & vbCrLf & "Svetlo plava=34" _
   & vbCrLf & "Krem boja=40")
   TrRed = PrviRed
   Do While TrRed <= PoslRed
      OvajRed = Str(TrRed)
      OvajRed = Trim(OvajRed)
      BrReda = "A" & OvajRed & ":" _
      & Trim(PoslKolona) & OvajRed
      Range(BrReda).Select
      With Selection.Interior
         .ColorIndex = BrojBoje
         .Pattern = xlSolid
      End With
   TrRed = TrRed + IntervalRedova
   Loop
 End Sub

Za korišćenje ovog makroa, otvorite novi radni list, te izaberite meni "Tools> Macro>Macros". U polje "Macro name" unesite naziv za ovaj novi makro - "ObojeneLinije", pa kliknite na dugme "Create". Prethodni kod iskopirajte u VBA šablon (bez dupliranja linija Sub i End Sub), a radni list snimite kao "ObojeneLinije.xls".

Da bi koristili upravo snimljeni makro uradite sledeće:

1. Otvorite radni list na koji želite da primenite naizmenično farbanje redova.
2. Otvorite radnu svesku "ObojeneLinije.xls", a zatim se vratite na prethodni radni list.
3. Izaberite meni "Tools> Macro> Macros> ObojeneLinije.xls!ObojeneLinije" i kliknite na "Run".
4. Odgovorite na postavljena pitanja i pogledajte šta će makro odraditi.