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.

Pratite Krstaricu na www.krstarica.com