Word belgelerindeki sayılara binlik ayraçları nasıl eklenir?
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
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.
- 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.
- 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
- F5 tuşuna basın ve seçilen sayıya binlik ayraçları eklenecektir.
- 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'u yükledikten sonra şu adımları izleyin:
- 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.
- Bu fonksiyonu tüm belgeye uygulamak isteyip istemediğinizi soran bir iletişim kutusu açılacak, Evet'e tıklayın.
- Şimdi, tüm sayılara binlik ayraçları eklendi.
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.
- 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.
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 Verimlilik Araçları
Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Zirveye Taşıyın!
🤖 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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu PDF’ye Dönüştür...
✏ İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazla Boşlukları / Bölüm Sonlarını / Metin Kutularını / Bağlantıları Kolayca Temizleyin. Daha fazla kaldırma aracı için Kaldır grubuna göz atın...
➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...
🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...
⭐ Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu PDF’ye Dönüştür
- ✏ İçerik Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / QR Kodları Oluştur