sayı biçimlendirme

[modoste]

merhaba sayın hocalarım
A1 hücresine 23567,854 yazdığımda 23+567,854 yapcam ama virgülden sonraki 562 yi de üst simge olarak yapması gerekiyo
nasıl yapılır.

 

[Erdem Akdemir]

Bu soruda sanki bir eksik var.

 

[modoste]

sayın kuvari şöyle ki
ben bir hücreye 23567,854 yazcam bazende 23567 yazcam (böyle olursa sonu 000 gibi düşünülcek) ve hücredeki görünümü 23+567,854 olcak fakat 854 olan kısım (virgülden sonraki) m³ gibi üst karakter olarak görünecek.
umarım anlatabilmişimdir.

 

[Erdem Akdemir]

İlk sorunuzda 562 rakamı var

Örnek bir dosya ekleyebilir misiniz. Hiçbirşey anlamadım.

 

[modoste]

3 nolu mesajımda tekrarladım sorumu
küçük hatam için özür dilerim

 

[Korhan Ayhan]

Ondalık bölümün üst karakter olmasını istediğiniz için makrolu çözüm öneriyorum.

Oluşan değer sayısal değer olmayacaktır.

İlgili sayfanızın kod bölümüne uygulayınız. Kod "A" sütunu için çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sayi As String, Tamsayi As String, Ondalik As String
    
    On Error GoTo Son
        
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.ClearFormats
    Sayi = Replace(Target, "+", "")
    Tamsayi = CStr(Int(Sayi))
    Ondalik = Round(Sayi - Int(Sayi), 3)
    Ondalik = Mid(Ondalik, 3, Len(Ondalik) - 2)
    
    Target.NumberFormat = "@"
    Tamsayi = Format(Tamsayi, "#+##0")
    Target = Tamsayi & "," & Ondalik
    
    With Target.Characters(Start:=Len(Tamsayi) + 2, Length:=Len(Ondalik)).Font
        .Superscript = True
    End With

    Target.EntireColumn.AutoFit

Son: Application.EnableEvents = True
End Sub

 

[modoste]

makro için teşekkür ederim korhan hocam arşivime aldım bu çalışmayı
hücre biçimlendirme ile yanı makrosuz çözümü yok yani bunun değil mi hocam.

 

[Korhan Ayhan]

Benim bildiğim kadarıyla yok...