Új hozzászólás Aktív témák

• #16510 Delila_1 veterán Thom6 #16509

  Új Válasz 2013-01-28 15:49:58 #16510

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Thom6 #16509 üzenetére

  Írtam egy rövid makrót, ami "kifehéríti" azoknak a celláknak a karaktereit, amiket nem akarsz megjeleníteni.

  A képen az L oszlopig látszanak az adatok. Ha több oszlopban is vannak, a feltétel (If) 2. sorában írd át.

  Sub szin()
  Dim sor As Integer, usor As Integer
  
  usor = Cells(Rows.Count, ("H")).End(xlUp).Row
  For sor = 2 To usor
  If (sor + 1) Mod 5 Then
  Range(Cells(sor, "A"), Cells(sor, "G")).Font.ColorIndex = 2
  Range(Cells(sor, "J"), Cells(sor, "L")).Font.ColorIndex = 2
  End If
  Next
  End Sub

  Ezt lefuttatod, a táblázat bővítésekor csak másolnod kell az utolsó 5 sor formátumát a formátumfestő ecsettel.

Új hozzászólás Aktív témák