Hücre birleştirme ve yazı boyutunu ayarlama

[MT007]

Merhaba,

ben ekte yer alan dosyada ki formüllü tablomda bulunan parasal hücrelerdeki ilk iki veya son iki rakamın puntosunun büyük veya küçük olması için bir makro yapılabilir mi merak ediyor ve yardımlarınızı bekliyorum.

 

[Orion1]

dosyanıza uyarlayınız.

ActiveCell.Characters(Start:=1, Length:=2).Font.Size = 20

 

[MT007]

yalnız tutarın tamamı büyüyor. benim için gerekli olan 44,00 gibi. Aynı hücrede farklı değerler istiyorum

 

[Orion1]

Formüllü hücreleri o hücreyi komple büyük yapıyor.
Formülsüz hücre girişi yaparsanız uyguluyor.
Yalnızca B sütunu için yaptım.
Veri girdikçe çalışıyor.Dosya ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    Target.Characters(1, Len(Target.Value)).Font.Size = 8
If Len(Target.Value) >= 2 Then
    Target.Characters(1, 2).Font.Size = 20
    Else
    Target.Characters(1, 1).Font.Size = 20
End If
End Sub

 

[MT007]

Ama hücre hücre ve formül içerikli olarak kullanmam gerkiyor.

 

[Orion1]

Ama hücre hücre ve formül içerikli olarak kullanmam gerkiyor.

Maalesef excel formül içerikli hücrelerde kısmi karakterler için karakter kalınlıklarını ayarlayamıyor.Tümden fontu büyütüyor,yada küçültüyor.
Sadece fonksiyon dışında veri girişinde uyguluyor.
iyi çalışmalar.

 

[MT007]

Walla çok uğraştırdım emeğinize sağlık. çok teşekkür ederim.