• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayı Formatları Hk.

Katılım
14 Ekim 2005
Mesajlar
187
Excel Vers. ve Dili
Office 365 for Business
Günaydın herkese,
Basit bir sorum olacak. Bir database inceliyoruz ve sayı formatlar virgülden sonra 3 basamak daha gitmeli. Karışıklığı önlemek adına sayı 14 punto, virgülden sonrası 8 punto olsun istiyorum. Mümkün müdür?
Teşekkür ederim.
 
Yaptığım araştırmalarda sayılarda aynı hücrede farklı biçim kullanmanın mümkün olmadığını gördüm. Yani sayıyı hücre içine girip bir kısmını farklı biçimlendirmek mümkün değil. Bunu yapabilmek için hücrenin sayı olarak değil metin olarak biçimlendirilmesi gerekiyor.

Bununla ilgili denemelerim sonucunda aşağıdaki makroyla C2'den itibaren C sütunundaki son dolu satıra kadar olan verileri sizin istediğiniz gibi biçimlendirebildim:

Kod:
Sub fontlar()
son = Cells(Rows.Count, "C").End(3).Row
For i = 2 To son
    If Len(Cells(i, "C")) <> Len(Replace(Cells(i, "C"), ",", "")) Then
        For j = 1 To Len(Cells(i, "C"))
            If Mid(Cells(i, "C"), j, 1) = "," Then
                Cells(i, "C") = Format(Cells(i, "C"), "#,##0.000")
                Cells(i, "C").Characters(Start:=1, Length:=j).Font.Size = 14
                Cells(i, "C").Characters(Start:=j + 1, Length:=3).Font.Size = 8
            End If
        Next
    End If
Next
End Sub
 
Benzer konular...

 
Geri
Üst