Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Makro v Excelu pro podbarvení celého řádku 

Sub ObarviRadky()
Dim i As Long, Obsaz As Boolean
  i = 1
  Do
    Obsaz = IsEmpty(Cells(i, 1).Value)
    If Cells(i, 1).Font.Bold = True Then
      Rows(i).Interior.Color = 65535
    End If
    i = i + 1
  Loop Until Obsaz
End Sub
Testuje to jen obsah buňky v prvním sloupci. Pokud potřebuješ otestovat něco jiného, už si to lehce upravíš.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny