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

• #11301 Delila_1 veterán mr.nagy #11298

  Új Válasz 2011-09-12 19:01:10 #11301

  Ú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 #11298 üzenetére

  Az adat laphoz rendeld a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$5" Then
  Dim meret As Integer
  Select Case Len(Range("A6"))
  Case Is <= 40
  meret = 18
  Case 41 To 100
  meret = 16
  Case 101 To 200
  meret = 14
  Case Is > 200
  meret = 12
  End Select
  Range("A6").Font.Size = meret
  End If
  End Sub

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