Soru Sayıların Başına Sıfır Ekleme

[husocan005]

[TR][TD]
Arkadaşlar Merhaba;

Aşağıdaki sayıların bu şekilde yapmak istiyorum ( 05.01.00.00.01 / 05.01.00.14.00 / 05.01.00.00.00 )

5.1.0.0.1
5.1.0.14.0
5.1.0.0.0

Yardımlarınız için teşekkür ederim.
[/TD][/TR]
[TR][TD]

[/TD][/TR]

 

[Korhan Ayhan]

A1 hücresi için formül;

="0"&SUBSTITUTE(A1;".";".0")

SUBSTITUTE = YERİNEKOY

 

[husocan005]

Korhan hocam teşekkür ederim.

 

[husocan005]

Korhan hocam 5.1.0.14.0 olanları 05.01.00.014.00 olarak değiştiriyor. Olması gereken 05.01.00.14.00 bu şekilde. İki nokta arasında eğer çift haneli sayı varsa bu sayıyı değiştirmesin ama tek olanların başına 0 eklesin.

 

[Korhan Ayhan]

Bu durumda aşağıdaki KTF'yi deneyiniz.

Kullanım şekli;

=INSERT_ZERO(A1)

Option Explicit

Function INSERT_ZERO(My_Cell As Range) As String
    Dim Data As Variant, X As Integer
   
    Application.Volatile True
   
    Data = Split(My_Cell.Value2, ".")
   
    For X = LBound(Data) To UBound(Data)
        If Len(Data(X)) = 1 Then
            INSERT_ZERO = INSERT_ZERO & "0" & Data(X) & "."
        Else
            INSERT_ZERO = INSERT_ZERO & Data(X) & "."
        End If
    Next
    INSERT_ZERO = Left(INSERT_ZERO, Len(INSERT_ZERO) - 1)
End Function