Makro pogrubiające

Makro pogrubiające tekst w komórkach

Sub pogrubKomorki()

    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    For Each c In Selection
      If c.Value > 100 Or c.Value < 0 Then
         c.Font.Bold = True
      Else
         c.Font.Bold = False
      End If
    Next c
    
    Application.ScreenUpdating = True

End Sub

Ta strona internetowa została utworzona bezpłatnie pod adresem Stronygratis.pl. Czy chcesz też mieć własną stronę internetową?

Darmowa rejestracja