TOP

योग, संख्या, संख्या यूक्रेनी में लिखी गई है

विवरण

बहुत बार ऐसा होता है कि हमें प्रदर्शित करने की आवश्यकता पड़ती है एक्सेल में यूक्रेनी भाषा में लिखे गए नंबर . उदाहरण के लिए, किसी दस्तावेज़ में पृष्ठों की संख्या को लिखित रूप में प्रदर्शित करें - एक संख्या "27" जैसा "Двадцять сім" .

इसके अलावा, लेखांकन उद्देश्यों के लिए, व्यापार लेनदेन की लागत को शब्दों में लिखा जाना चाहिए। उदाहरण के लिए, राशि 10 568,23 लिखित रूप में प्रदर्शित करें कि कैसे "Десять тисяч п'ятсот шістдесят вісім грн. 23 коп." , अर्थात आवश्यक है यूक्रेनी भाषा में योग , लेकिन Excel के पास ऐसे उद्देश्यों के लिए कोई मानक कार्य नहीं है।

VBA फ़ंक्शन के लिए कोड SUMINWORDS

नीचे आपको VBA पर एक तैयार फ़ंक्शन मिलेगा, जो यूक्रेनी भाषा में किसी भी संख्या को उसके पाठ प्रतिनिधित्व में अनुवादित करता है, अर्थात। लिखित में संख्या . उपयोग से पहले यह सुविधा आपकी पुस्तक में जोड़ी जानी चाहिए।

इसके लिए:

Visual Basic संपादक खोलने के लिए ALT+F11 दबाएँ
एक नया खाली मॉड्यूल जोड़ें मेनू के माध्यम से Insert - Module
इस फ़ंक्शन के टेक्स्ट को कॉपी और पेस्ट करें:

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
 ' हम सहायक फ़ंक्शन क्लास का उपयोग करके संख्या को अंकों में विभाजित करते हैं 
 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)
   
 ' अरबों की जाँच 
 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
   
 ' लाखों की जाँच 
 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)
 
 ' हम हजारों की जांच करते हैं 
 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)
 
 ' हम दर्जनों की जाँच करते हैं 
 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:
 ' अंतिम पंक्ति बनाएं 
 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
  
 ' अंकों की संख्या से चयन के लिए सहायक कार्य 
Private Function Class(M, I)
  Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1))
End Function

फ़ाइल सहेजें और Excel पर वापस लौटें।

फ़ंक्शन का उपयोग करना

अब आप बनाए गए फ़ंक्शन को इस पुस्तक की शीट के किसी भी सेल में सामान्य तरीके से सम्मिलित कर सकते हैं - फ़ंक्शन विज़ार्ड (बटन) के माध्यम से सूत्र पट्टी, श्रेणी में उपयोगकर्ता परिभाषित (User defined) या इसे सेल में मैन्युअल रूप से टाइप करके और तर्क के रूप में योग के साथ सेल को निर्दिष्ट करके। इसके अलावा, फ़ंक्शन पैरामीटर में, आप मुद्रा का नाम (रिव्निया, डॉलर, यूरो, आदि) और सौवें (पैनी, सेंट, आदि) का नाम निर्दिष्ट कर सकते हैं:

=SUMINWORDS(पाठ; मुद्रा; सैकड़ों)

यदि पैरामीटर में "धन" खाली दोहरे उद्धरण चिह्न डालें ( "" ), तो राशि समग्र रूप में प्रदर्शित की जाएगी लिखित में संख्या :

विषय पर लेख:

ऑनलाइन सेवाओं

VBA मैक्रोज़

कार्य

प्रक्रियाओं