Excel neposkytuje žádnou výchozí funkci, která převádí číslo nebo částku slovy na indické rupie nebo jakoukoli měnu. Ale to neznamená, že nemůžeme převést číslo na indickou rupii. Můžeme vytvořit vlastní vzorec aplikace Excel pro převod čísla na slova v indických rupiích. Vytvořil jsem tuto vlastní funkci pro převod čísla na slova v indických rupiích. Soubor makra si můžete stáhnout níže. Níže jsem zmínil kód a vysvětlil jsem to trochu, abyste mohli provádět změny podle svého požadavku.
Funkce Excel pro skrytí čísla na slova v indických rupiích
Pomocí této funkce tedy převeďte libovolnou 10místnou částku nebo méně na slova nebo rupie. Tuto funkci jsem pojmenoval NUM_TO_IND_RUPEE_WORD. Syntaxe této funkce je:
| = NUM_TO_IND_RUPEE_WORD (číslo) |
Pracovní soubor makra si můžete stáhnout dolů:
Číslo na slova indická rupie
Nyní je kód funkce uveden níže.
Tento kód je rozdělen do čtyř jednotlivých funkcí. Hlavní funkcí je NUM_TO_IND_RUPEE_WORD. A další tři funkce GetHunderds (), GetTens () a GetDigits jsou pomocné funkce, které pomáhají hlavní funkci tvořit řetězec.
Funkce: : Place (3) = "Million" Place (4) = "Billion": Place (5) = "Trillion" 'String reprezentace částky. MyNumber = Trim (Str (MyNumber)) 'Pozice desetinného místa 0, pokud není. DecimalPlace = InStr (MyNumber, ".") 'Převést Paise a nastavit MyNumber na částku rupií. Pokud DecimalPlace> 0 Then 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 ) & Crores If Len (myCrores)> 3 Then myCrores = Left (myCrores, Len (myCrores) - 3) Else 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) Else myLakhs = "" End If Count = Count + 1 Loop Count = 1 Do While MyNumber "" Temp = GetHundreds (Right (MyNumber, 3)) If Temp "" Then Rupees = Temp & Place (Count) & Rupees If Len (MyNumber)> 3 Then MyNumber = Left (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 = "Zero" Case "One": Rupees = "One" Case Else: Rupees = Rupees End Select Select Case Paise Case "": Paise = "a Paise Zero Only" Case "One": Paise = "and Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'creating the řetězec slov k převodu čísla na slova As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right ("000" & MyNumber, 3) 'Convert the stovky place. If Mid (MyNumber, 1, 1) "0" Then Result = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Převede místo desítek a jedniček. 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 'Convertts a číslo od 10 do 99 do textu. Funkce GetTens (TensText) Dim Výsledek jako řetězec Výsledek = "" 'Vynuluje dočasnou hodnotu funkce. If Val (Left (TensText, 1)) = 1 Then 'If value between 10-19… Select Case Val (TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve "Případ 13: Výsledek =" Třináct "Případ 14: Výsledek =" Čtrnáct "Případ 15: Výsledek =" Patnáct "Případ 16: Výsledek =" Šestnáct "Případ 17: Výsledek =" Sedmnáct "Případ 18: Výsledek =" Osmnáct "případ 19: Výsledek = „Devatenáct“ Případ Jiný Konec Vyberte Jiný 'Pokud je hodnota mezi 20–99… Vyberte Případ Val (Vlevo (TensText, 1)) Případ 2: Výsledek = „Dvacet“ Případ 3: Výsledek = „Třicet“ Případ 4: Výsledek = „Čtyřicet“ Případ 5: Výsledek = „Padesát“ Případ 6: Výsledek = „Šedesát“ Případ 7: Výsledek = „Sedmdesát“ Případ 8: Výsledek = „Osmdesát“ Případ 9: Výsledek = „Devadesát“ Případ Jiný konec Vybrat výsledek = Result & GetDigit _ (Right (TensText, 1)) 'Načíst ty místo. End If GetTens = Result End Function 'Převede číslo z 1 na 9 na text. Funkce GetDigit (Digit) Select Case Val (Digit) Případ 1: GetDigit = "Jeden" Případ 2: GetDigit = "Dva" Případ 3: GetDigit = "Tři" Případ 4: GetDigit = "Čtyři" Případ 5: GetDigit = "Pět "Případ 6: GetDigit =" Šest "Případ 7: GetDigit =" Sedm "Případ 8: GetDigit =" Osm "Případ 9: GetDigit =" Devět "Případ Jiný: GetDigit =" "Konec Vybrat Koncová funkce
Kód funkce je dlouhý, ale snadno pochopitelný.
Chcete -li tento kód použít, vložte modul do VBE a zkopírujte jej. A funkce je připravena k použití přímo na listu. Převede číslo na slova, konkrétně ve formátu indické rupie.
Takže jo, lidi, takto můžete v Excelu použít vlastní funkci k převodu čísla na slova. Doufám, že to pomůže. Máte -li jakékoli pochybnosti týkající se tohoto článku nebo jakékoli jiné funkce, zeptejte se v sekci komentáře níže.
Vytvořte funkci VBA pro návrat pole| Chcete -li vrátit pole pomocí vlastní funkce v aplikaci Excel, používáme pro zápis vlastní funkce mírně odlišnou syntaxi. Tato funkce vrací pole hodnot namísto pouze jedné hodnoty.
Pole ve vzorci aplikace ExcelZpět nahoru Dejte nám zpětnou vazbu Další informace Pole jsou hodnoty kolekce stejného typu v každém technickém jazyce. V Excelu je to stejné, ale je to trochu odlišné od ostatních programovacích jazyků …
Jak vytvořit funkci definovanou uživatelem prostřednictvím VBA| Naučte se vytvářet v Excelu funkce definované uživatelem.
Použití funkce definované uživatelem (UDF) z jiného sešitu pomocí jazyka VBA v aplikaci Microsoft Excel| Použijte funkci definovanou uživatelem v jiném sešitu aplikace Excel.
Vraťte chybové hodnoty z funkcí definovaných uživatelem pomocí jazyka VBA v aplikaci Microsoft Excel| Zjistěte, jak můžete vrátit chybové hodnoty z funkce definované uživatelem.
Oblíbené články:
50 zkratek aplikace Excel pro zvýšení produktivity | Získejte rychleji svůj úkol. Těchto 50 klávesových zkratek vám umožní pracovat v Excelu ještě rychleji.
Jak používat funkci Excel VLOOKUP| Toto je jedna z nejpoužívanějších a nejoblíbenějších funkcí Excelu, která slouží k vyhledávání hodnot z různých rozsahů a listů.
Jak používat Excel Funkce COUNTIF| Pomocí této úžasné funkce spočítejte hodnoty s podmínkami. K počítání konkrétní hodnoty není nutné filtrovat data. Funkce Countif je nezbytná pro přípravu řídicího panelu.
Jak používat funkci SUMIF v aplikaci Excel | Toto je další základní funkce řídicího panelu. To vám pomůže shrnout hodnoty za konkrétních podmínek.