Yuvarlamayı iptal etme

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
31,787
Excel Vers. ve Dili
Ofis 365 Tr-64 Bit
Ofis 2010 Tr-En 32 Bit
Bu dosyanızda hücrelerde SAYI biçimlendirmesi var.

Size denemeyi boş yeni bir excel dosyasında mı yapıyorsunuz diye sordum. Sizde evet dediniz.

SAYI biçimlendirmesini GENEL olarak yapabilirsiniz. Ya da SAYI biçimlendirmesini noktadan sonra 2 karakter gösterecek şekilde ayarlayabilirsiniz.

Bu işlemi de #4 nolu mesajımda paylaştığım linkten takip ederek yapabilirsiniz.
 
Katılım
11 Şubat 2021
Mesajlar
78
Excel Vers. ve Dili
2019, rus
Bu dosyanızda hücrelerde SAYI biçimlendirmesi var.

Size denemeyi boş yeni bir excel dosyasında mı yapıyorsunuz diye sordum. Sizde evet dediniz.

SAYI biçimlendirmesini GENEL olarak yapabilirsiniz. Ya da SAYI biçimlendirmesini noktadan sonra 2 karakter gösterecek şekilde ayarlayabilirsiniz.

Bu işlemi de #4 nolu mesajımda paylaştığım linkten takip ederek yapabilirsiniz.
cevabınız için teşekkür ederim
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,443
Excel Vers. ve Dili
Excel : 2010
Makrolu çözümü deneyiniz, karakter sayısına göre kodu revize edin.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 4 Then Target.NumberFormat = "0\.00"
End Sub
 
Katılım
11 Şubat 2021
Mesajlar
78
Excel Vers. ve Dili
2019, rus
Makrolu çözümü deneyiniz, karakter sayısına göre kodu revize edin.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 4 Then Target.NumberFormat = "0\.00"
End Sub
deniycem, teşekkür ederim.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,443
Excel Vers. ve Dili
Excel : 2010
Örnek kodu revize ettim.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Columns("a:a") Then
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 3 Then Target.NumberFormat = "0\.00"
If Len(Target) = 4 Then Target.NumberFormat = "00\.00"
End If
End Sub
Örnek Dosya :
 

Ekli dosyalar

Katılım
11 Şubat 2021
Mesajlar
78
Excel Vers. ve Dili
2019, rus
Örnek kodu revize ettim.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Columns("a:a") Then
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 3 Then Target.NumberFormat = "0\.00"
If Len(Target) = 4 Then Target.NumberFormat = "00\.00"
End If
End Sub
Örnek Dosya :
altın üye olmadığım için indiremedim, ama yine de yardım ettiğiniz için teşekkür ederim.
 
Üst