SOISK - SYSTEMY OPERACYJNE I SIECI KOMPUTEROWE
Tomasz Puchała

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