Excel ile Ukraynaca yazılmış toplam, sayılar, sayı

Tanım

Çoğu zaman göstermemiz gerekir Excel'de Ukraynaca yazılmış sayılar . Örneğin, belgedeki sayfa sayısını yazılı olarak görüntüleyin - "27" sayısı "Двадцять сім".

Ayrıca muhasebe açısından bir ticari işlemin maliyetinin yazıyla yazılması gerekir. Örneğin 10.568,23 toplamı yazılı olarak şu şekilde gösterilmelidir: "Десять тисяч п'ятсот шістдесят вісім грн. 23 коп."yani gerekli Ukrayna dilinde toplam , ancak Excel'nin bu tür amaçlara yönelik standart bir işlevi yoktur.

VBA işlevi için kod SUMINWORDS

Aşağıda VBA üzerinde herhangi bir sayıyı Ukrayna dilindeki metin temsiline, yani yazılı bir sayıya çeviren hazır bir fonksiyon bulacaksınız. Bu özelliğin kullanılmadan önce kitabınıza eklenmesi gerekmektedir.

Bunun için:

Visual Basic düzenleyicisini açmak için ALT+F11 tuşlarına basın
Yeni bir boş modül ekle Insert - Module menüsü aracılığıyla
Bu fonksiyonun metnini kopyalayıp buraya yapıştırın:

Function SUMINWORDS(n As Double, curr As Variant, kop As Variant) As String
 'moonexcel.com.ua 
 Dim Nums1, Nums2, Nums3, Nums4 As Variant
 
 Nums0 = Array("", "одна ", "дві ", "три ", "чотири ", "п'ять ", "шість ", "сім ", "вісім ", "дев'ять ")
 Nums1 = Array("", "один ", "два ", "три ", "чотири ", "п'ять ", "шість ", "сім ", "вісім ", "дев'ять ")
 Nums2 = Array("", "десять ", "двадцять ", "тридцять ", "сорок ", "п'ятдесят ", "шістдесят ", "сімдесят ", _
                        "вісімдесят ", "дев'яносто ")
 Nums3 = Array("", "сто ", "двісті ", "триста ", "чотириста ", "п'ятсот ", "шістсот ", "сімсот ", _
                        "вісімсот ", "дев'ятсот ")
 Nums4 = Array("", "одна ", "дві ", "три ", "чотири ", "п'ять ", "шість ", "сім ", "вісім ", "дев'ять ")
 Nums5 = Array("десять ", "одинадцять ", "дванадцять ", "тринадцять ", "чотирнадцять ", _
                        "п'ятнадцять ", "шістнадцять ", "сімнадцять ", "вісімнадцять ", "дев'ятнадцять ")
  
 If n < 1 Then
   SUMINWORDS = "Нуль " & curr & " " & Round((n - Fix(n)) * 100) & " " & kop
   
If curr = "" Then
   SUMINWORDS = "Нуль"
End If
      
   Exit Function
 End If
 'sınıf yardımcı fonksiyonunu kullanarak sayıyı rakamlara böleriz 
 ed     = Class(n, 1)
 dec    = Class(n, 2)
 sot    = Class(n, 3)
 tys    = Class(n, 4)
 dectys = Class(n, 5)
 sottys = Class(n, 6)
 mil    = Class(n, 7)
 decmil = Class(n, 8)
 sotmil = Class(n, 9)
 bil    = Class(n, 10)
   
 'milyarları kontrol etmek 
 Select Case bil
    Case 1
      bil_txt = Nums1(bil) & "мільярд "
    Case 2 To 4
      bil_txt = Nums1(bil) & "мільярди "
    Case 5 To 9
      bil_txt = Nums1(bil) & "мільярдів "
 End Select
   
 'milyonları kontrol etmek 
 Select Case sotmil
   Case 1 To 9
     sotmil_txt = Nums3(sotmil)
 End Select
  
 Select Case decmil
   Case 1
     mil_txt = Nums5(mil) & "мільйонів "
     GoTo www
   Case 2 To 9
     decmil_txt = Nums2(decmil)
 End Select
 
 Select Case mil
   Case 0
     If decmil > 0 Then mil_txt = Nums4(mil) & "мільйонів "
   Case 1
     mil_txt = Nums1(mil) & "мільйон "
   Case 2, 3, 4
     mil_txt = Nums1(mil) & "мільйона "
   Case 5 To 9
     mil_txt = Nums1(mil) & "мільйонів "
 End Select
 
 If decmil = 0 And mil = 0 And sotmil <> 0 Then sotmil_txt = sotmil_txt & "мільйонів "
 
www:
 sottys_txt = Nums3(sottys)
 
 'binlercesini kontrol ediyoruz 
 Select Case dectys
   Case 1
     tys_txt = Nums5(tys) & "тисяч "
     GoTo eee
   Case 2 To 9
     dectys_txt = Nums2(dectys)
 End Select
 
 Select Case tys
   Case 0
     If dectys > 0 Then tys_txt = Nums4(tys) & "тисяч "
   Case 1
     tys_txt = Nums4(tys) & "тисячa "
   Case 2, 3, 4
     tys_txt = Nums4(tys) & "тисячі "
   Case 5 To 9
     tys_txt = Nums4(tys) & "тисяч "
 End Select
 
 If dectys = 0 And tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & " тисяч "
 
eee:
 sot_txt = Nums3(sot)
 
 'onlarcasını kontrol ediyoruz 
 Select Case dec
   Case 1
     ed_txt = Nums5(ed)
     GoTo rrr
   Case 2 To 9
     dec_txt = Nums2(dec)
 End Select
  
 ed_txt = Nums0(ed)

rrr:
 'son çizgiyi oluştur 
 SUMINWORDS = bil_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt _
 & tys_txt & sot_txt & dec_txt & ed_txt & curr & " " & Round((n - Fix(n)) * 100) & " " & kop

 If curr = "" Then
   SUMINWORDS = bil_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt _
 & tys_txt & sot_txt & dec_txt & ed_txt
 End If
 
 SUMINWORDS = UCase(Mid(SUMINWORDS, 1, 1)) + Mid(SUMINWORDS, 2)
 
End Function
  
 'basamak sayısından seçim yapmak için yardımcı fonksiyon 
Private Function Class(M, I)
  Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1))
End Function

Dosyayı kaydedin ve Excel'ye dönün.

Fonksiyonun kullanılması

Artık oluşturulan işlevi bu kitabın sayfasının herhangi bir hücresine her zamanki gibi - işlev sihirbazı aracılığıyla (düğme) ekleyebilirsiniz. formül çubuğunda Kullanıcı Tanımlı kategorisinde) veya hücreye manuel olarak yazarak ve toplamın bulunduğu hücreyi bağımsız değişken olarak belirterek. Ayrıca, işlev parametrelerinde para biriminin adını (Grivna, dolar, euro...) ve yüzdelerin adını (peni, sent...) belirtebilirsiniz:

=SUMINWORDS(metin; para birimi; yüzlerce)

Parametrede ise "para birimi" boş çift tırnak işareti ("") koyarsanız, toplam yazılı olarak bir tamsayı olarak gösterilecektir:

Konuyla ilgili makaleler: