DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_Calculate()
Dim Rng As Range
For Each Rng In Range("H8")
If Not IsError(Rng.Value) Then
Select Case Len(Rng.Value)
Case Is > 30: Rng.Font.Size = 10
Case Is > 20: Rng.Font.Size = 20
Case Is > 10: Rng.Font.Size = 30
Case Is <= 10: Rng.Font.Size = 40
End Select
End If
Next
End Sub