Macro'da Bir Hücredeki yazıyı içinden belirli bir yeri küçültme

[safaari]

Macro'da Bir Hücredeki yazıyı içinden belirli bir yeri küçültme

Merhaba Arkadaşlar benim küçük bir sorunum var. Sorunumu Ayrıntılı olarak anlatıcam şimdiden yardımlarınız için teşekkür ediyorum.

Ben bir hücre içerisinde 10 punto büyüklüğünde yazı yazdım
ve yazının uzunluğu değişebiliyor.

Yanlız sonran 6 harfini 8 punto ile küçültmek istiyorum.
Ama yazı uzadığı için belirlediğim yer sona denk gelmiyor.

Bunu macro ortamında nasıl bir formul yapabilirim.

Macro bilgim ileri düzey ama bir türlü bunu yapamadım.
Teşekkürler.:yardim:

 

[Levent Menteşoğlu]

Örneğin A1 hücresindeki veri için kodu düzenlersek aşağıdaki gibi düzenleyebilirsiniz.

 [a1].Characters(Start:=Len([a1]) - 5, Length:=6).Font.Size = 8

 

[safaari]

yanlız yazı uzunluğu günde bir değişiyor. bazen kısalıyor bazen uzuyor ama hücre yeri değişmiyor.

çok sağlun bir deneyeceğim ilginiz için teşekkür ederim. iyi çalışmalar.

 

[safaari]

Çok teşekkür ediyorum beni büyük bir dertten kurtardınız. az önce formulu yerine yazdım ve çok başarılı çalıştı.

Yanlız bir sorum daha olacak Yazı küçültmesi için formül sonuna
.Size = 8
yazmıştık bu yazı da 8 punto ile küçüldükten sonra son üç hanesinide
altı çizik ve yatık yapmak istiyorum.

Size = 8 formül devamına yazılacak komutu da yazarsanız çok sevinirim iyi çalışamlar.

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi kullanabilirsiniz.

[a1].Characters(Start:=Len([a1]) - 5, Length:=6).Font.Size = 8
[a1].Characters(Start:=Len([a1]) - 2, Length:=3).Font.Underline = 2
[a1].Characters(Start:=Len([a1]) - 2, Length:=3).Font.FontStyle = "İtalik"

 

[veyselemre]

Sub HucreIcindeYaziStilDegistir()
uz = Len([a1])
Set v = [a1].Characters(Start:=uz - 5, Length:=6).Font
v.Size = 8
Set v = [a1].Characters(Start:=uz - 2, Length:=6).Font
v.FontStyle = "İtalik"
v.Underline = xlUnderlineStyleSingle
Set v = Nothing
End Sub

 

[safaari]

Gerçekten başarılı bir formul teşekkür ediyorum. Yaptığım programda Bilginiz sayesinde bazı kolaylıklar sağladım.

Sürekli artık bu forma takılacağım benimde bir kaç yararım olursa diye.
iyi çalışmalar.