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

• #11293 Delila_1 veterán mr.nagy #11292

  Új Válasz 2011-09-12 17:37:00 #11293

  Ú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 mr.nagy #11292 üzenetére

  A laphoz rendeld az alábbi makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ter As Range
  Set ter = Intersect(Target, Range("A6:D6"))
  If ter Is Nothing Then
  Select Case Len(Target.Value)
  Case Is <= 40
  Range(Target.Address).Font.Size = 18
  Case 41 To 100
  Range(Target.Address).Font.Size = 16
  Case 101 To 200
  Range(Target.Address).Font.Size = 14
  Case Is > 200
  Range(Target.Address).Font.Size = 12
  End Select
  Else: Exit Sub
  End If
  End Sub

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