Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

Word belgelerindeki sayılara binlik ayraçları nasıl eklenir?

Author Sun Last modified

Bir Word belgesindeki sayılara binlik ayraçları eklemek, özellikle büyük rakamlarla çalışırken okunabilirliği büyük ölçüde artırabilir. Microsoft Word'un sayıların binlik ayraçlarını eklemek için doğrudan bir özelliği olmasa da, VBA (Visual Basic for Applications) kullanarak veya Kutools for Word gibi kullanışlı bir araçla bu işlemi gerçekleştirmek için etkili yöntemler bulunmaktadır.

Bu eğitimde, hem VBA hem de Kutools for Word kullanarak Word belgenizdeki sayılara binlik ayraçları eklemek için size adım adım rehberlik edeceğiz.

VBA ile binlik ayraçları ekleme

Kutools for Word ile binlik ayraçları ekleme good idea

VBA ile binlik ayraçları ekleme

Binlik ayraçlarını büyük sayılara eklemek, özellikle bunu sürekli yapmanız gerekiyorsa can sıkıcı olabilir. VBA kodu kullanarak bu süreci otomatik hale getirebilir ve yalnızca bir sayıyı seçip F5 tuşuna basarak ayırıcıları anında ekleyebilirsiniz.

  1. Binlik ayraçlarıyla biçimlendirmek istediğiniz sayıyı seçin, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
  2. Tıklayın Ekle > ModülArdından aşağıdaki kodu kopyalayıp Modül editörüne 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
  3. F5 tuşuna basın ve seçilen sayıya binlik ayraçları eklenecektir.

    Thousand separators are inserted into the selected number

  4. Başka bir sayıya ayırıcılar eklemek için yeni sayıyı seçin ve ardından Modül penceresine geri dönüp tekrar F5 tuşuna basın.

Kutools for Word ile binlik ayraçları ekleme

Eğer bir seçimdeki veya tüm Word belgesindeki birden fazla sayıya ayırıcılar eklemek istiyorsanız, Kutools for Word'un Binlik Ayırıcı Ekle aracı sadece birkaç tıklamayla bu işi çözebilir.

Kutools for Word,yapay zeka 🤖 ile donatılmış, görevlerinizi basitleştirmek için 100 üzerinde kullanışlı özellik sunar.

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

  1. Tüm belgedeki sayılara binlik ayraçları eklemek için herhangi bir veri seçmeyin ve Kutools > Ekle > Binlik Ayırıcı Ekle'ye tıklayın.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Bu fonksiyonu tüm belgeye uygulamak isteyip istemediğinizi soran bir iletişim kutusu açılacak, Evet'e tıklayın.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Şimdi, tüm sayılara binlik ayraçları eklendi.
    Thousand separators are inserted into all numbers

Notlar:

  • Belirli bir bölüme ait sayılara binlik ayraçları eklemek istiyorsanız, önce bölümü seçin ve ardından Kutools > Ekle > Binlik Ayırıcı Ekle'ye tıklayın.
    Thousand separators are inserted into numbers in the selected range
  • Binlik ayraçlarını kaldırmak için Kutools > Kaldır > Seçili Aralıktaki Tüm Binlik Ayraçlarını Kaldır'a tıklayın.
    Remove Thousand Separators option on the Kutools tab on the ribbon

Demo: Word belgesindeki sayılara binlik ayraçları ekleme

Bu videoyu Kutools for Word'den izleyerek Kutools / Kutools Plus sekmesini keşfedin. 100+ özellikler ve kalıcı olarak ücretsiz AI araçlarını keyfini çıkarın. Şimdi indirin!

En İyi Ofis Verimliliği Araçları

Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / 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 / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...

✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır / Metin Kutularını Kaldır / Bağlantıları Kaldır / Diğer kaldırma araçları için Kaldır grubuna göz atın...

➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...

🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...

⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...

🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u hemen indirin! 🚀
 

✨ Kutools for Office – Tek kurulumda beş güçlü araç!

Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır

En İyi Ofis Verimliliği Araçları

Kutools for Word - 100+ Word için araçlar

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