Excel nenodrošina nekādu noklusējuma funkciju, kas konvertē skaitli vai summu vārdos Indijas rūpijās vai jebkurā valūtā. Bet tas nenozīmē, ka mēs nevaram konvertēt skaitli uz Indijas rūpiju. Mēs varam izveidot pielāgotu Excel formulu, lai skaitli pārvērstu vārdos Indijas rūpijās. Esmu izveidojis šo pielāgoto funkciju, lai skaitļus pārvērstu vārdos Indijas rūpiju izteiksmē. Makro failu var lejupielādēt zemāk. Es esmu minējis kodu zemāk un nedaudz paskaidrojis, lai jūs varētu veikt izmaiņas atbilstoši savām prasībām.
Excel funkcija, lai slēptu skaitli vārdos Indijas rūpijās
Tāpēc izmantojiet šo funkciju, lai pārvērstu jebkuru 10 ciparu vai mazāku summu vai skaitli vārdos vai rūpijās. Es nosaucu šo funkciju par NUM_TO_IND_RUPEE_WORD. Šīs funkcijas sintakse ir šāda:
| = NUM_TO_IND_RUPEE_WORD (skaitlis) |
Darba makro failu varat lejupielādēt uz leju:
Skaitlis uz vārdiem Indijas rūpija
Tagad funkcijas kods ir minēts zemāk.
Šis kods ir sadalīts četrās atsevišķās funkcijās. Galvenā funkcija ir NUM_TO_IND_RUPEE_WORD. Un citas trīs funkcijas GetHunderds (), GetTens () un GetDigits palīdz funkcijai, kas palīdz galvenajai funkcijai veidot virkni.
Funkcija 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" : Vieta (3) = "Miljons" Vieta (4) = "Miljards": Vieta (5) = "Triljons" 'Summas attēlojums virknē. MyNumber = Trim (Str (MyNumber)) 'Decimālās vietas stāvoklis 0, ja nav. DecimalPlace = InStr (MyNumber, ".") 'Pārvērst Paise un iestatīt MyNumber uz rūpiju summu. Ja DecimalPlace> 0, tad Paise = GetTens (pa kreisi (vidus (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 Vai kamēr myCrores "" Temp = GetHundreds (Pa labi (myCrores, 3)) If Temp "" Tad Crores = Temp & Place (Count ) & Crores If Len (myCrores)> 3 Tad myCrores = Pa kreisi (myCrores, Len (myCrores) - 3) Citi myCrores = "" End If Count = Count + 1 Loop Count = 1 Do while myLakhs "" Temp = GetHundreds (Pa labi (myLakhs, 3)) Ja Temp "" Tad Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Tad myLakhs = Pa kreisi (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" End If Count = Skaitīt + 1 cilpu skaits = 1 Darīt, kamēr MyNumber "" Temp = GetHundreds (pa labi (MyNumber, 3)) If Temp "" Tad Rupees = Temp & Place (Count) & Rupees If Len (MyNumber)> 3 Tad MyNumber = Pa kreisi (MyNumber, Len (MyNumber) - 3) Else 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" Case Else: Lakhs = Lakhs & "Lakhs" End Select Select Case Rupees Case "": Rupees = "Nulle" Case "One": Rupees = "One" Case Else: Rupees = Rupees Beigas Atlasīt Atlasīt lietu Paise Case "": Paise = "un Paise Zero Only" Case "One": Paise = "and Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select ' vārdu virkne, lai skaitli tulkotu vārdos. Kā virkne Ja Val (MyNumber) = 0, tad iziet no funkcijas MyNumber = Pa labi ("000" & MyNumber, 3) 'Konvertējiet simtiem vietu. Ja vidējs (mans skaitlis, 1, 1) "0", tad rezultāts = GetDigit (vidējais (mans numurs, 1, 1)) un "simts" beigas, ja 'Konvertējiet desmitu un vienotu vietu. Ja vidus (mans numurs, 2, 1) "0", tad rezultāts = rezultāts un GetTens (vidējais (mans numurs, 2)) Cits rezultāts = rezultāts un GetDigit (vidus (mans numurs, 3)) beidzas, ja GetHundreds = Rezultāta beigu funkcija 'Pārvērš skaitlis no 10 līdz 99 tekstā. Funkcija GetTens (TensText) Dim Rezultāts kā virknes rezultāts = "" 'Null out the pagaidu funkcijas vērtība. Ja Val (pa kreisi (TensText, 1)) = 1 Tad 'Ja vērtība ir no 10 līdz 19 … Atlasiet gadījumu Val (TensText) Gadījums 10: Rezultāts = "Desmit" Gadījums 11: Rezultāts = "Vienpadsmit" Gadījums 12: Rezultāts = "Divpadsmit "13. gadījums: rezultāts =" trīspadsmit "14. gadījums: rezultāts =" četrpadsmit "15. gadījums: rezultāts =" piecpadsmit "16. gadījums: rezultāts =" sešpadsmit "17. gadījums: rezultāts =" septiņpadsmit "18. gadījums: rezultāts =" astoņpadsmit "lieta 19: Rezultāts = "Deviņpadsmit" gadījuma citas beigas Izvēlieties citu 'Ja vērtība ir no 20 līdz 99 … Atlasiet gadījuma vērtību (pa kreisi (TensText, 1)) 2. gadījums: Rezultāts = "Divdesmit" 3. gadījums: Rezultāts = "Trīsdesmit" 4. gadījums: Rezultāts = "Četrdesmit" 5. gadījums: Rezultāts = "Piecdesmit" 6. gadījums: Rezultāts = "Sešdesmit" 7. gadījums: Rezultāts = "Septiņdesmit" 8. gadījums: Rezultāts = "Astoņdesmit" 9. gadījums: Rezultāts = "Deviņdesmit" gadījums Cits beigu atlases rezultāts = Rezultāts un GetDigit _ (Pa labi (TensText, 1)) 'Iegūt vietu. Beigt, ja GetTens = Rezultāta beigu funkcija 'Skaitli no 1 līdz 9 pārvērš tekstā. Funkcija GetDigit (cipars) Atlasīt lietu Val (cipars) 1. gadījums: GetDigit = "Viens" 2. gadījums: GetDigit = "Divi" 3. gadījums: GetDigit = "Trīs" 4. gadījums: GetDigit = "Četri" 5. gadījums: GetDigit = "Pieci" "Lieta 6: GetDigit =" Seši "7. gadījums: GetDigit =" Septiņi "8. gadījums: GetDigit =" Astoņi "9. gadījums: GetDigit =" Deviņi "gadījumi Citi: GetDigit =" "Beigu atlases beigu funkcija
Funkcijas kods ir garš, bet viegli saprotams.
Lai izmantotu šo kodu, ievietojiet moduli VBE un kopējiet to. Un šī funkcija ir gatava lietošanai uz lapas. Tas pārveidos skaitli vārdos, īpaši Indijas rūpijas formātā.
Tātad, jā, puiši, šādā veidā jūs varat izmantot pielāgotu funkciju programmā Excel, lai skaitli pārvērstu vārdos. Es ceru, ka tas ir noderīgi. Ja jums ir šaubas par šo rakstu vai kādu citu funkciju, jautājiet komentāru sadaļā zemāk.
Izveidojiet VBA funkciju masīva atgriešanai| Lai atgrieztu masīvu, izmantojot Excel pielāgotu funkciju, pielāgotās funkcijas rakstīšanai izmantojam nedaudz atšķirīgu sintaksi. Šī funkcija atgriež vērtību masīvu, nevis tikai vienu vērtību.
Masīvi Excel formulā| Masīvi ir viena veida kolekcijas vērtības katrā tehniskajā valodā. Programmā Excel tas ir vienāds, taču tiek apstrādāts nedaudz atšķirīgi no citām programmēšanas valodām …
Kā izveidot lietotāja definētu funkciju, izmantojot VBA| Uzziniet, kā programmā Excel izveidot lietotāja definētas funkcijas.
Lietotāja definētas funkcijas (UDF) izmantošana no citas darbgrāmatas, izmantojot Microsoft Excel VBA| Izmantojiet lietotāja definētu funkciju citā Excel darbgrāmatā.
Atgriež kļūdas vērtības no lietotāja definētām funkcijām, izmantojot Microsoft Excel VBA| Uzziniet, kā atgriezt kļūdu vērtības no lietotāja definētas funkcijas.
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti | Ātrāk izpildiet savu uzdevumu. Šie 50 īsceļi ļaus jums strādāt vēl ātrāk programmā Excel.
Kā izmantot Excel VLOOKUP funkciju| Šī ir viena no visbiežāk izmantotajām un populārākajām Excel funkcijām, kas tiek izmantota, lai meklētu vērtību no dažādiem diapazoniem un lapām.
Kā lietot Excel Funkcija COUNTIF| Saskaitiet vērtības ar nosacījumiem, izmantojot šo apbrīnojamo funkciju. Jums nav jāfiltrē dati, lai uzskaitītu noteiktu vērtību. Skaitītāja funkcija ir būtiska, lai sagatavotu informācijas paneli.
Kā lietot SUMIF funkciju programmā Excel | Šī ir vēl viena būtiska informācijas paneļa funkcija. Tas palīdz apkopot vērtības noteiktos apstākļos.
