Excel nu oferă nicio funcție implicită care convertește un număr sau o sumă în cuvinte în rupii indiene sau în orice monedă. Dar nu înseamnă că nu putem converti numărul în rupie indiană. Putem crea o formulă Excel personalizată pentru a converti numărul în cuvinte în rupii indiene. Am creat această funcție personalizată pentru a converti numărul în cuvinte în termeni de rupii indiene. Puteți descărca fișierul macro de mai jos. Am menționat codul de mai jos și am explicat puțin, astfel încât să puteți face modificări conform cerințelor dvs.
Funcția Excel pentru a acoperi numărul de cuvinte în rupii indiene
Deci, utilizați această funcție pentru a converti orice sumă sau număr de 10 cifre sau mai puțin în cuvinte sau rupii. Am numit această funcție NUM_TO_IND_RUPEE_WORD. Sintaxa acestei funcții este:
| = NUM_TO_IND_RUPEE_WORD (număr) |
Puteți descărca fișierul macro funcțional:
Număr la cuvinte rupie indiană
Acum, codul funcției este menționat mai jos.
Acest cod este împărțit în patru funcții individuale. Funcția principală este NUM_TO_IND_RUPEE_WORD. Și alte trei funcții GetHunderds (), GetTens () și GetDigits sunt funcții care ajută funcția principală să formeze șirul.
Funcția NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Optional incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace As Long, Count As Long Dim myLakhs, myCrores ReDim Place (9) As String Place (2) = "Thousand" : Place (3) = "Milion" MyNumber = Trim (Str (MyNumber)) 'Poziția zecimale 0 dacă nu există. DecimalPlace = InStr (MyNumber, ".") 'Convertiți Paise și setați MyNumber la valoarea Rupees. Dacă DecimalPlace> 0 atunci Paise = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End If myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds (Right (myCrores, 3)) If Temp "" Then Crores = Temp & Place (Count ) & Crore If Len (myCrores)> 3 Then myCrores = Left (myCrores, Len (myCrores) - 3) Altfel myCrores = "" End If Count = Count + 1 Loop Count = 1 Do While myLakhs "" Temp = GetHundreds (Right) (myLakhs, 3)) If Temp "" Then Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Then myLakhs = Left (myLakhs, Len (myLakhs) - 3) Altfel myLakhs = "" End If Count = Număr + 1 Buclă Număr = 1 Faceți în timp ce Numărul meu "" Temp = GetHundreds (Dreapta (Numărul meu, 3)) Dacă Temp "" Atunci Rupii = Temp & Loc (Număr) și Rupii Dacă Len (Numărul meu)> 3 Apoi Numărul meu = Stânga (MyNumber, Len (MyNumber) - 3) Altfel MyNumber = "" End If Count = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Else: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Case „One”: Lakhs = „One Lakh” Caz în caz contrar: Lakhs = Lakhs și „Lakhs” Sfârșit Selectați selectarea cazului Rupii Caz "": Rupii = "Zero" Cazul "Unu": Rupii = "Unu" Cazul în urmă: Rupii = Rupii Sfârșit Selectare Selectare majusculă Case "": Paise = "și Paise Zero Only" Case "One": Paise = "și Paise One Only" Altele: Paise = "și Paise" & Paise & "Only" End Select 'creând șir de cuvinte pentru a traduce numărul în cuvinte NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function 'Convertește un număr de la 100-999 în text Function Function GetHundreds (ByVal MyNumber) Dim Result Ca șir dacă Val (MyNumber) = 0 Apoi ieșiți din funcția MyNumber = Right ("000" & MyNumber, 3) 'Convertiți sutele. Dacă Mid (MyNumber, 1, 1) "0", atunci Rezultat = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Convertește zecile și cele pe loc. If Mid (MyNumber, 2, 1) "0" Then Result = Result & GetTens (Mid (MyNumber, 2)) Else Result = Result & GetDigit (Mid (MyNumber, 3)) End If GetHundreds = Result End Function 'Converts a numărul de la 10 la 99 în text. Funcția GetTens (TensText) Dim Rezultat ca rezultat șir = "" 'Anulează valoarea funcției temporare. Dacă Val (Stânga (TensText, 1)) = 1 Apoi 'Dacă valoarea cuprinsă între 10-19 … Selectați cazul Val (TensText) Cazul 10: Rezultat = "Zece" Cazul 11: Rezultat = "Unsprezece" Cazul 12: Rezultat = "Doisprezece "Cazul 13: Rezultat =" Treisprezece "Cazul 14: Rezultatul =" Paisprezece "Cazul 15: Rezultatul =" Cincisprezece "Cazul 16: Rezultatul =" Șaisprezece "Cazul 17: Rezultatul =" Șaptesprezece "Cazul 18: Rezultatul =" Optsprezece "Caz 19: Rezultat = "Nouăsprezece" Casă Altă Selectare Altă 'Dacă valoarea cuprinsă între 20-99 … Selectați Caz Val (Stânga (TensText, 1)) Cazul 2: Rezultat = "Douăzeci" Cazul 3: Rezultat = "Treizeci" Cazul 4: Rezultat = "Patruzeci" Cazul 5: Rezultat = "Cincizeci" Cazul 6: Rezultatul = "Șaizeci" Cazul 7: Rezultatul = "Șaptezeci" Cazul 8: Rezultatul = "Optzeci" Cazul 9: Rezultatul = "Nouăzeci" Altele caz Sfârșit Selectați rezultatul = Rezultat & GetDigit _ (Dreapta (TensText, 1)) 'Recuperați locul. End If GetTens = Result End Function 'Convertește un număr de la 1 la 9 în text. Funcție GetDigit (cifră) Selectare caz Val (cifră) Cazul 1: GetDigit = "Unul" Cazul 2: GetDigit = "Două" Cazul 3: GetDigit = "Trei" Cazul 4: GetDigit = "Patru" Cazul 5: GetDigit = "Cinci "Cazul 6: GetDigit =" Șase "Cazul 7: GetDigit =" Șapte "Cazul 8: GetDigit =" Opt "Cazul 9: GetDigit =" Nouă "Cazul celălalt: GetDigit =" "Sfârșit Selectare Sfârșit funcție
Codul funcției este lung, dar ușor de înțeles.
Pentru a utiliza acest cod, introduceți un modul în VBE și copiați-l. Iar funcția este gata să fie utilizată direct pe foaie. Acesta va converti numărul în cuvinte, în special în format rupie indiană.
Deci, băieți, așa puteți folosi o funcție personalizată în Excel pentru a converti numărul în cuvinte. Sper că acest lucru vă va fi de ajutor. Dacă aveți îndoieli cu privire la acest articol sau la orice altă funcție, întrebați în secțiunea de comentarii de mai jos.
Creați funcția VBA pentru a returna matricea| Pentru a returna o matrice utilizând o funcție personalizată în Excel, folosim o sintaxă ușor diferită pentru scrierea funcției personalizate. Această funcție returnează o serie de valori în loc de o singură valoare.
Matrice în formula Excel| Tablourile sunt valori de colecție de același tip în fiecare limbaj tehnic. În Excel este același, dar tratat ușor diferit de celelalte limbaje de programare …
Cum se creează o funcție definită de utilizator prin VBA| Aflați cum să creați funcții definite de utilizator în Excel.
Utilizarea unei funcții definite de utilizator (UDF) dintr-un alt registru de lucru utilizând VBA în Microsoft Excel| Utilizați funcția definită de utilizator într-un alt registru de lucru Excel.
Returnează valorile de eroare din funcțiile definite de utilizator utilizând VBA în Microsoft Excel| Aflați cum puteți returna valorile de eroare dintr-o funcție definită de utilizator.
Articole populare:
50 de comenzi rapide Excel pentru a vă crește productivitatea | Deveniți mai rapid la sarcina dvs. Aceste 50 de comenzi rapide vă vor face să lucrați și mai rapid pe Excel.
Cum se utilizează funcția Excel VLOOKUP| Aceasta este una dintre cele mai utilizate și populare funcții ale Excel, care este utilizată pentru a căuta valoarea din diferite intervale și foi.
Cum se folosește Excel Funcția COUNTIF| Numărați valorile cu condiții folosind această funcție uimitoare. Nu trebuie să vă filtrați datele pentru a număra o anumită valoare. Funcția Countif este esențială pentru a vă pregăti tabloul de bord.
Cum se utilizează funcția SUMIF în Excel | Aceasta este o altă funcție esențială a tabloului de bord. Acest lucru vă ajută să rezumați valori în condiții specifice.