Dosya Açılırken YTL formatında açılsın.

[vitalexx]

Merhaba,
Rakamsal ifadeleri doğal olarak çok kullanıyoruz ve her seferinde;
a) 1000'lik ayırıcısı
b) Virgülden sonra 2 hane
Ã?zelliklerini Ayrı ayrı uyguluyorum. Default olarak bu ayarların gelmesini nasıl sağlarım acaba? Yani ben 1532 yazdığım zaman 1.532,00 şekline dönüşmesini istiyorum. (Default olarak tabii.)
Kolay gelsin. :hey:

 

[nziya]

Private Sub Worksheet_Change(ByVal Target As Range)
Range("a1:ıv65536").Select
Selection.NumberFormat = "#,##0.00"
Range("a1").Select
End Sub

 

[vitalexx]

nziya teşekkürler,
Ancak bir ricam daha olacak. Bu Fonksiyonu bundan sonra kullancağım tüm çalışma sayfalarına uygulatmak için ne yapmam gerekiyor?
(Seviyemin çok düşük olduğunu söylemeliyim.)

 

[nziya]

Hangi sayfada olmasını istiyorsanız kodu o sayfanın kod bölümüne kopyalamanız yeterlidir.

 

[vitalexx]

Anladım,
Bu yöntemde işimi görür. Ama Microsoft Excel'in açılıştaki font ayarlarını nasıl düzeltebiliyorsak bunu da ayarlarız diye düşünmüştüm. Yani ben bir ayar yapıp bundan sonra kullanacağım her sayfada 2 ondalık basamak ve binlik ayırıcısını aktif hale getirmek istiyorum.

 

[Tornado]

Bişi Sorcam Ama :S
Private Sub Worksheet_Change(ByVal Target As Range)
Range("a1:ıv65536").Select
Selection.NumberFormat = "#,##0.00"
Range("a1").Select
End Subü
Bunu Nereye Yaziyoruz acaba