Farklı bir sayı formatı

[ongbey]

Amacım sayıları aşağıdaki formatta görüntülemek, yani virgüllü sayılar virgülden sonra tek hane olacak, virgülsüz sayılarda ",0" olmayacak. Bu nasıl yapılır?

0
2,5
5
7,5
10

 

[YUSUF44]

Eğer hücreye veri girerken bu değişikliğin olmasını istiyorsanız aşağıdaki kodları ilgili sayfanın kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. A1:A100 aralığına sayısal veri girildiğinde istediğiniz biçimde yazar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:a100]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Then Exit Sub
If Int(Target) <> Target Then
    Target.NumberFormat = "0.0"
Else
    Target.NumberFormat = xlGeneral
End If

End Sub

 

[ongbey]

Teşekkürler, bu iş herhalde makrosuz olmayacak.

Yusuf bey, kod virgüllü olanlarda çalışıyor ama tamsayı giridiğinizde sayıyı "1" yapıyor. Ayrıca veri girerken değil de, örneğin "A" kolonundaki mevcut sayı içeren hücrelerde bunu yapsa benim için daha iyi olacak.

 

[YUSUF44]

Pardon, xlgeneral değil General olacakmış.

Özel sayı biçimleriyle ilgili Sayın Necdet Yeşertener'in güzel bir paylaşımı var:

https://www.excel.web.tr/threads/oezel-huecre-bicimleri.11509/

Maalesef orda isteğinize uygun bir biçim ayarı göremedim. Dolayısıyla makrosuz olmuyor muhtemelen.

A sütunundaki mevcut verilerin düzenlenmesi için aşağıdaki kodları deneyiniz:

Sub virgul()
Dim hucre As Range
For Each hucre In Range("A1:A" & Cells(Rows.Count, "A").End(3).Row)
    If IsNumeric(hucre) = True Then
        If hucre.Value Mod 1 = 0 Then
            hucre.NumberFormat = General
        Else
            hucre.NumberFormat = "0.0"
        End If
    End If
Next
End Sub

 

[ongbey]

Yusuf bey elinize sağlık, çok güzel çalışıyor.

 

[Merhum İdris SERDAR]

Amacım sayıları aşağıdaki formatta görüntülemek, yani virgüllü sayılar virgülden sonra tek hane olacak, virgülsüz sayılarda ",0" olmayacak. Bu nasıl yapılır?

0
2,5
5
7,5
10

Anlayamadım ama.

Genel / General biçimi bu sonucu veriyor. Başka bir şey mi istiyorsunuz?

.

 

[YUSUF44]

Sanıyorum virgülden sonra birden fazla basamak olanların bir basamak olmasını istiyor arkadaş.