Numara formatını Text' e dönüştürmek

[tamer42]

Merhabalar,

39,97455556 formatındaki bir numarayı olduğu gibi virgül yerine nokta gelecek şekilde,

39.97455556 yazılmasını kod ile nasıl sağlarız?


iyi çalışmalar.

 

[mancubus]

istediğiniz bu mu net emin olamadım.
ama aktif sayfadaki A1:A500 aralığında numerik değerlerin içindeki "," işaretini "." işareti ile değiştirmek için aşağıdaki kullanılabilir.

Sub virgul_nokta()

Dim cll As Range, Rng As Range

Set Rng = Range("A1:A500")
For Each cll In Rng
    If IsNumeric(cll) Then
        cll = "'" & cll
        cll.Replace ",", ".", xlPart
        cll.Replace "'", "", xlPart
    End If
Next

End Sub

 

[tamer42]

istediğiniz bu mu net emin olamadım.
ama aktif sayfadaki A1:A500 aralığında numerik değerlerin içindeki "," işaretini "." işareti ile değiştirmek için aşağıdaki kullanılabilir.

Sub virgul_nokta()

[color=red]Dim cll As Range, Rng As Range

Set Rng = Range("A1:A500")
For Each cll In Rng
[/color]
    If IsNumeric(cll) Then
        cll = "'" & cll
        cll.Replace ",", ".", xlPart
        cll.Replace "'", "", xlPart
    End If
Next

End Sub

Sn Mancubus burada değerleri hücreden değil de; manuel olarak girmek istersek nasıl bir düzenleme yapılmalıdır?

Örn=

 cll = [color=red]39,9742567[/color]

iyi çalışmalar.

 

[mancubus]

kodun içinde yazılacak numerik ifadeler amerika formatında olmalıdır.

Sub rakam_nokta()

Dim cll As Range, Rng As Range

Set Rng = Range("A1:A500")
For Each cll In Rng
        cll = 39[COLOR="red"].[/COLOR]9742567
Next

End Sub

sayfaya geri döndüğümüzde A1:A500 aralığındaki tüm hücrelerde Türkiye rakam formatı olarak 39,9742567 yazılmış olduğunu görürüz.