Word belgesindeki sayıları kelimelere nasıl dönüştürebilirim?
Bu makale, Word belgesindeki sayıları İngilizce kelimelere dönüştürme yönteminden bahsediyor, lütfen ilgileniyorsanız ayrıntıları görüntülemek için devam edin.
VBA ile sayıyı İngilizce kelimelere dönüştürün
Kutools for Excel ile sayıyı Excel'de İngilizce kelimelere dönüştürün
VBA ile sayıyı İngilizce kelimelere dönüştürün
1. Kelimelere dönüştürmek istediğiniz numarayı seçin, Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodları kopyalayıp şuraya yapıştırın: modül komut.
VBA: Sayıyı kelimelere dönüştür
Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
Dim xDigit As Double
Dim xBuff As String
On Error Resume Next
Selection.MoveLeft wdWord, 1, wdMove
Selection.MoveRight wdWord, 1, wdExtend
xDigit = Val(Trim(Selection.Text))
If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
If xDigit > 999999 Then
If xDigit <= 999999999 Then
xBuff = Trim(Int(Str(xDigit / 1000000)))
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xBuff = Selection.Text & " million "
xDigit = Right(Str(xDigit), 6)
End If
End If
If xDigit <= 999999 Then
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xDigit = xBuff & Selection.Text
Selection.TypeText xDigit + " "
Else
MsgBox "Number too large", vbOKOnly, "Kutool for Word"
End If
End Sub3. Basın F5 kodu çalıştırmak için anahtar, şimdi sayı kelimelere dönüştürüldü.
not： Kod her seferinde yalnızca bir numarada çalışır.
Kutools for Excel ile sayıyı İngilizce kelimelere dönüştürün
Excel sayfasındaki sayıları kelimelere dönüştürmek istiyorsanız, kullanışlı bir araç var - Sayılardan Kelimelere Sayıları İngilizce veya Çince kelimelere dönüştürebilen veya sayıları İngilizce para birimine veya Çin para birimine dönüştürebilen Excel için Kutools.
| Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Sayıları kelimelere dönüştürmek istediğiniz hücreleri seçin ve ardından Kutools > içerik > Sayılardan Kelimelere.
2. Açılan iletişim kutusunda kontrol edin İngilizce ve Para Birimine dönüştürülmez seçenekleri.
3. tık Ok or Tamam, seçilen sayılar kelimelere dönüştürülecektir.
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...
