Hücredeki Son İki değerin fontunu değiştirme

[RIKU]

Merhaba arkadaşlar,

Benim bir sorum olacak. Epey uğraştım fakat aklıma bir şey gelmedi.
Olay şöyle: Bir hücrede bir sürü yazı var ve aynı hücrede en sonda iki rakam var.
İstediğim şu bunun gibi bir sürü hücreyi tarayıp, o hücrelerin sonundaki rakamların font değerini 10'dan 7'ye nasıl çevirebilirim? Tabii ki makroyla..

Yardımcı olanlara şimdiden teşekürler...

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu inceleyiniz...

Private Sub CommandButton1_Click()
say = Len(Range("A1"))
Range("A1").Characters(Start:=say - 1, Length:=2).Font.Size = 7
End Sub

 

[RIKU]

Teşekkürler; fakat bu kod sadece A1 hücresi için geçerli sanırım. Eğer bunu istediğimiz kadar hücreye (mesela c2:f20) nasıl uygularız? Kodda spesifik bir hücreyi belirtmeden?

Ekleme : Enteresan bir şey. Sizin kodunuzda A1 yerine A1:A3 yazdım ve şöyle bir şey oldu.
A1 'de ve A3'de 6 harfli kelimenin sonundaki rakamların fontunu 7 yaptı fakat A2'de ki
üç harfli kelimenin sonundaki iki ralamın fontunu değiştirmedi.

 

[ozgretmen]

Aşağıdaki kodu dener misiniz ?

Private Sub CommandButton1_Click()
For i = 2 To 20
For j = 3 To 6
say = Len(Cells(i, j))
Cells(i, j).Characters(Start:=say - 1, Length:=2).Font.Size = 7
Next j
Next i
End Sub

 

[RIKU]

Bunu nereye ve nasıl yerleştirmem gerekiyor?

 

[Ayhan Ercan]

Teşekkürler; fakat bu kod sadece A1 hücresi için geçerli sanırım. Eğer bunu istediğimiz kadar hücreye (mesela c2:f20) nasıl uygularız? Kodda spesifik bir hücreyi belirtmeden?

Ekleme : Enteresan bir şey. Sizin kodunuzda A1 yerine A1:A3 yazdım ve şöyle bir şey oldu.
A1 'de ve A3'de 6 harfli kelimenin sonundaki rakamların fontunu 7 yaptı fakat A2'de ki
üç harfli kelimenin sonundaki iki ralamın fontunu değiştirmedi.

Tekrar Merhaba
c2:f20 arası için kod:

Private Sub CommandButton1_Click()
For i = 2 To 20
Cells(i,"c").Characters(Start:=Len(Cells(i, "c")) - 1, Length:=2).Font.Size = 7
Cells(i,"d").Characters(Start:=Len(Cells(i, "d")) - 1, Length:=2).Font.Size = 7
Cells(i,"e").Characters(Start:=Len(Cells(i, "e")) - 1, Length:=2).Font.Size = 7
Cells(i,"f").Characters(Start:=Len(Cells(i, "f")) - 1, Length:=2).Font.Size = 7
Next
End Sub

 

[RIKU]

Tekrar Merhaba
c2:f20 arası için kod:

Private Sub CommandButton1_Click()
For i = 2 To 20
Cells(i,"c").Characters(Start:=Len(Cells(i, "c")) - 1, Length:=2).Font.Size = 7
Cells(i,"d").Characters(Start:=Len(Cells(i, "d")) - 1, Length:=2).Font.Size = 7
Cells(i,"e").Characters(Start:=Len(Cells(i, "e")) - 1, Length:=2).Font.Size = 7
Cells(i,"f").Characters(Start:=Len(Cells(i, "f")) - 1, Length:=2).Font.Size = 7
Next
End Sub

Hocam çok teşekkürler. Verdiğiniz kod süper çalıştı...

 

[Ayhan Ercan]

Hocam çok teşekkürler. Verdiğiniz kod süper çalıştı...

Rica ederim.
Ancak bir teşekkür de sn ozgretmen hakketti.
Oda aynı kodun kıslatılmış halini yazmış.
İyi çalışmalar... k::

 

[ozgretmen]

Rica ederim.
Ancak bir teşekkür de sn ozgretmen hakketti.
Oda aynı kodun kıslatılmış halini yazmış.
İyi çalışmalar... k::

Teşekkürler sayın Ayhan Ercan. Kod yazma konusunun daha emekleme aşamasında gibiyim.Ama sizlerin sayesinde ÇOK şey öğrendim ve öğrenmeye de devam ediyorum.İyi ki varsınız ...