hücre içindeki sayının sonunu otomatik olarak tamamlanması

[umutsert]

merhaba arkadaşlar

ekte gönderdiğim dosyada hücre içindeki sayıların otomatik olarak 11 haneye tamamlanmasını nasıl yapabilirim

saygılar.

 

[hamitcan]

İlgili sayfanın kod kısmına ekleyin. Bu işlem Excel içindeki her hücre için çalışmakta, belli sütunlar için çalıştırmak için kod içine ekleme yapmak gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)
    u = Len(Target.Text)
    Target = Target & WorksheetFunction.Rept(0, 11 - u)
End Sub

 

[umutsert]

İlgili sayfanın kod kısmına ekleyin. Bu işlem Excel içindeki her hücre için çalışmakta, belli sütunlar için çalıştırmak için kod içine ekleme yapmak gerekir.

Private Sub Worksheet_Change(ByVal Target As Range)
    u = Len(Target.Text)
    Target = Target & WorksheetFunction.Rept(0, 11 - u)
End Sub

merhaba
b sütununda olması için nasıl bir ekleme yapmam gerek ayrıca sayı yazıldıktan sonra 2,5E+1800 gibi ifade çıkıyor burada herhangi bir değişiklik yapamıyorum.
syg.

 

[Murat OSMA]

■ Alternatif;

Sub Emre()
    uz = 11
    For i = 2 To Range("F65536").End(3).Row
        If Len(Cells(i, "F")) < 11 Then
            ekle = uz - Len(Cells(i, "F"))
            a = [B][COLOR="Red"]String[/COLOR][/B](ekle, "0")
            Cells(i, "F") = Cells(i, "F") & a
        End If
    Next i
End Sub

 

[hamitcan]

B kolonunun hücre formatını Genel olarak değiştirin. Aşağıdaki koduda eskisi ile değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target <> "" Then
        u = Len(Target.Text)
        Target = Target.Text & WorksheetFunction.Rept(0, 11 - u)
    End If
End Sub

 

[umutsert]

B kolonunun hücre formatını Genel olarak değiştirin. Aşağıdaki koduda eskisi ile değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If Target <> "" Then
        u = Len(Target.Text)
        Target = Target.Text & WorksheetFunction.Rept(0, 11 - u)
    End If
End Sub

yaklaşık 141000 satır var b sütunun biçimini genel yaptım formül If Target <> "" Then satırında hata veriyor.

 

[hamitcan]

Dosyanızın küçük bir örneğini ekleyin, öyle bakalım.

 

[umutsert]

Dosyanızın küçük bir örneğini ekleyin, öyle bakalım.

dosya ektedir.

saygılar.

 

[hamitcan]

Ben B sütununu Genel olarak tanımladım galiba bu yüzden sıkıntı oluşuyor. Eki inceleyin.

 

[umutsert]

Arkadaşlar bu soruyu şöyle sorsam daha kısa yoldan işim çözülür diye düşünüyorum.
A1 hücresinde isteğe uyarlanmış formatta 00000124 sayısı yer alıyor bu sayıyıy metne çevirdiğimde öndeki sıfırların kaybolmamasını nasıl sağlarım

 

[bzace]

Merhaba,
Herhangi bir hücreye 0 yazınız.
Daha sonra 0 yazılı hücreyi kopyalayın.
Hücre solundan kaldırılacak 0 lar için hücre aralığını seçin.
Özel yapıştır / Topla sekmesini seçin.
İstediğiniz sonuca ulaşırsınız.

 

[hamitcan]

1. mesajdaki sorunuz ile 10. mesajdaki sorunuz birbirinden farklı, bunu açıklayabilir misiniz ?