Word belgelerindeki sayılara nasıl binlik ayırıcı eklenir?

YazarSun Değiştirme Tarihi2024-09-20

Word belgesindeki sayılara binlik ayırıcı eklemek, özellikle büyük rakamlarla çalışırken okunabilirliği önemli ölçüde artırır. Microsoft Word’ün bu işlem için doğrudan bir özelliği olmasa da, VBA (Visual Basic for Applications) veya Kutools for Word gibi kullanışlı araçlarla bunu etkili bir şekilde gerçekleştirmenin yolları vardır.

Bu eğitimde, Word belgenizdeki sayılara binlik ayırıcı eklemek için hem VBA hem de Kutools for Word kullanarak izlemeniz gereken adımları size göstereceğiz.

VBA ile Binlik Ayırıcı Ekle

Kutools for Word ile Binlik Ayırıcı Ekle

VBA ile Binlik Ayırıcı Ekle

Büyük sayılara binlik ayırıcı eklemek, özellikle bunu tekrar tekrar yapmanız gerekiyorsa oldukça zahmetli olabilir. Ancak bu süreci VBA koduyla otomatikleştirebilirsiniz; böylece bir sayıyı seçip F5 tuşuna bastığınız anda ayırıcılar anında eklenir!

Binlik ayırıcılarla biçimlendirmek istediğiniz sayıyı seçin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

Şu seçeneği tıklayın:Ekle>Modül, ardından aşağıdaki kodu kopyalayıp Modüldüzenleyicisine yapıştırın.

Sub InsertThousandSeparators()
    Dim selectedText As String
    Dim formattedText As String
    Dim decimalPos As Integer
    Dim wholePart As String
    Dim decimalPart As String
    Dim temp As String
    Dim i As Integer
    Dim charCount As Integer
    Dim trailingSpace As String
    Dim trailingParagraphMark As String
    
    If Selection.Type <> wdSelectionIP Then
        selectedText = Selection.Text
        trailingSpace = ""
        trailingParagraphMark = ""
        
        If Right(selectedText, 1) = " " Then
            trailingSpace = " "
            selectedText = Trim(selectedText)
        End If
        
        If Right(selectedText, 1) = Chr(13) Then
            trailingParagraphMark = Chr(13)
            selectedText = Left(selectedText, Len(selectedText) - 1)
        End If
        
        If IsNumeric(selectedText) Then
            decimalPos = InStr(1, selectedText, ".")
            
            If decimalPos > 0 Then
                wholePart = Left(selectedText, decimalPos - 1)
                decimalPart = Mid(selectedText, decimalPos + 1)
            Else
                wholePart = selectedText
                decimalPart = ""
            End If
            
            wholePart = Replace(wholePart, ",", "")
            
            temp = ""
            charCount = 0
            
            For i = Len(wholePart) To 1 Step -1
                temp = Mid(wholePart, i, 1) & temp
                charCount = charCount + 1
                
                If charCount Mod 3 = 0 And i > 1 Then
                    temp = "," & temp
                End If
            Next i
            
            wholePart = temp
            
            If decimalPart <> "" Then
                formattedText = wholePart & "." & decimalPart
            Else
                formattedText = wholePart
            End If
            
            Selection.Text = formattedText & trailingSpace & trailingParagraphMark
        Else
            MsgBox "Please select a valid number."
        End If
    Else
        MsgBox "Please select a number first."
    End If
End Sub

F5tuşuna basın; böylece seçili sayıya binlik ayırıcılar eklenecektir.
Başka bir sayıya ayırıcı eklemek için yeni sayıyı seçin, ardından Modül penceresine dönüp tekrar F5 tuşuna basın.

Kutools for Word ile Binlik Ayırıcı Ekle

Bir seçimdeki veya tüm Word belgenizdeki birden fazla sayıya ayırıcı eklemek istiyorsanız, Binlik Ayırıcı Ekle aracı, Kutools for Word ile bu görevi sadece birkaç tıklamayla halledebilir.

Kutools for Word yüklendikten sonra Kutools for Wordşu adımları izleyin:

Tüm belgedeki tüm sayılara Binlik Ayırıcı Ekle eklemek için herhangi bir veri seçmeyin ve şunu tıklayın:Kutools>Ekle>Binlik Ayırıcı Ekle.
Tüm belge için bu işlevi uygulamak isteyip istemediğinizi soran bir iletişim kutusu açılır;Evetseçeneğini tıklayın.
Artık tüm sayılara binlik ayırıcılar eklenmiştir.

Notlar:

Belirli bir seçimdeki sayılara Binlik Ayırıcı Ekle eklemek istiyorsanız, önce bölümü seçin ve ardından şunu tıklayın:Kutools>Ekle>Binlik Ayırıcı Ekle.
Binlik ayırıcıları kaldırmak için şunu tıklayın:Kutools>Kaldır>Seçili Aralıktaki Tüm Binlik Ayraçları Kaldır.

Demo: Word belgesindeki sayılara Binlik Ayırıcı Ekle ekleme

Kutools for Word, Microsoft Word’ü çok çeşitli pratik araçlarla genişleterek günlük belge düzenleme işlemlerinizde zaman kazanmanızı ve tekrarlı işlerinizi azaltmanızı sağlar.

İndir Daha Fazla Bilgi Edinin

En İyi Ofis Verimlilik Araçları

Kutools for Word ile Word deneyiminizi 100'den fazla göz alıcı özellikle yükseltin!

🤖KUTOOLS AI Özellikleri: Yapay Zeka Asistanı, Gerçek Zamanlı Asistan, Süper Parlat (Biçimi Koru), Süper Çeviri (Biçimi Koru), AI Redaksiyon, Yapay Zeka Düzeltme…

📘Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Biçimlerde Dışa Aktar (PDF/TXT/DOC/HTML…) / Toplu PDF Dönüştürme…

✏İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Çevirerek Tabloyu Döndür / Tabloyu Metne Dönüştür…

🧹Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını ve Köprüleri kaldırmak için daha fazla araç bulmak üzere Kaldırgrubuna gidin…

➕Yaratıcı Ekleme Araçları: Binlik Ayırıcılar, Onay Kutusu, Radyo Düğmesi, QR Kodu, Barkod, Birden Çok Resim ve daha fazlasını Eklegrubunda keşfedin…

🔍Hassas Seçimler:Belirli Sayfaları/Tabloları/Şekilleri/Başlık Paragrafı/ Gezinmeyi daha fazla özelliğiyle geliştirin Seç…

⭐Yıldızlı Geliştirmeler: Herhangi Bir Konuma Git / Tekrarlanan Metni Otomatik Ekle / Belgeler Arasında Geçiş Yap Windows / 11Araçları Dönüşüm…

🌍40+ Dil Desteği: Kutools’u istediğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil dahil olmak üzere kapsamlı dil desteği sunuyor!

Ücretsiz İndir Şimdi Satın Al Daha Fazla Bilgi Edinin

Office Tab- Office’a Sekmeli Arabirim Getirir, İşlerinizi Çok Daha Kolaylaştırır

Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
Yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

Ücretsiz İndir Şimdi Satın Al Daha Fazla Bilgi Edinin

✨ Kutools for Office – Tek Kurulum, Beş Güçlü Araç!

İçerir Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint

📦 Tüm 5 araçları tek bir pakette alın | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve verimliliği hemen artırın

⬇️ Şimdi İndir 🎁 Tam Paketi Satın Al 📖 Daha Fazla Bilgi Edinin

En İyi Ofis Verimlilik Araçları

Kutools for Word- Word için 100+ Araç

🤖KUTOOLS AI Özellikleri:Yapay Zeka Asistanı/Gerçek Zamanlı Asistan/Süper Parlat/Süper Çeviri/AI Redaksiyon/Yapay Zeka Düzeltme
📘Belge Uzmanlığı:Sayfaları Böl/Belgeleri Birleştir/Toplu PDF Dönüştürme
✏İçerik Düzenleme:Toplu Bul ve Değiştir/Tüm Resimleri Yeniden Boyutlandır
🧹Zahmetsiz Temizlik:Fazladan Boşlukları Kaldır/Bölüm Sonu Kaldır
➕Yaratıcı Ekleme Araçları:Binlik Ayırıcılar Ekle/Onay Kutusu Ekle/QR Kodu Oluştur
🌍40+ Dil Desteği: Kutools sizin dilinizde konuşur – 40’tan fazla dil desteğiyle!

Ücretsiz İndir Şimdi Satın Al Kutools Hakkında Daha Fazla Bilgi Edinin