Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս Excel- ում հնդկական ռուփիով թվերը վերածել բառերի:

Այս հոդվածում ես կներկայացնեմ, թե ինչպես կարելի է Excel- ում թվերի ցուցակը բառերի վերածել հնդկական ռուփիով կամ անգլերեն դոլարով:

VBA կոդով թվերը վերածեք հնդկական ռուփիի բառերի

Numbersարմանալի հատկությամբ թվերը փոխեք անգլերենի դոլարով բառերի


VBA կոդով թվերը վերածեք հնդկական ռուփիի բառերի

Հետևյալ VBA կոդը կարող է օգնել ձեզ թվերը ռուփիով բառերի վերածել, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Թվերը փոխեք ռուփիով բառերի

Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = " Rupees " & xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function 

3, Կոդը տեղադրելուց հետո պահեք և փակեք ծածկագրի պատուհանը, վերադարձեք աշխատանքային թերթ և մուտքագրեք այս բանաձևը. = RupeeFormat (A2) դատարկ բջիջի մեջ, իսկ հետո լրացնելու բռնիչը ներքև քաշեք ՝ այս բանաձևը այլ բջիջների վրա կիրառելու համար, բոլոր համարները գրված են ռուփիով, տե՛ս նկարը.


Numbersարմանալի հատկությամբ թվերը փոխեք անգլերենի դոլարով բառերի

Եթե ​​ուզում եք թվերը վերածել բառերի անգլերեն դոլարով, Excel- ի համար նախատեսված գործիքներ'S Բառեր համարներ առանձնահատկությունը կարող է օգնել ձեզ արագ և հեշտ լուծել այս աշխատանքը:

Հուշում.Սա կիրառելու համար Համարը բառերին հատկությունը, նախ, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1, Ընտրեք թվերի ցանկը, որը ցանկանում եք փոխարկել, և այնուհետև կտտացրեք Կուտոլս > Պարունակություն > Բառեր համարներ, տես սքրինշոթեր.

2, Մեջ Համարներ արտարժույթի բառերի համար երկխոսության տուփ, ընտրեք Անգլերեն տարբերակը լեզուներ բաժինը, ապա կտտացրեք Ok կոճակը, ընտրության մեջ նշված համարները փոխարկվել են անգլերենի արժույթի բառերի, տես նկարի նկարը.

Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:

 


  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...
kte էջանիշը 201905
  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում

 

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (21)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Excel-ը խափանում է, երբ հղման բջիջը փական չունի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, օգտատեր,
Շնորհակալություն մեկնաբանության համար, այս հոդվածի կոդը թարմացվել է, խնդրում ենք նորից փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Dear Sir,

Բարի օր,

Ես փորձարկեցի վերը նշված բանաձևը, այն չի աշխատում գծիկով մինուս արժեքներով, ինչպիսիք են -100 -10,000 կամ (100) (10,000)

Պարոն, ես օգտագործում եմ ստորև նշված կոդը վերջին 1 տարվա ընթացքում և այսօր հայտնաբերեցի նույն սխալը:

Երբ գրում եմ մինուս -10,000 կամ (10,000) ցույց է տալիս «Ընդամենը հարյուր տասը հազար»
Երբ ես գրում եմ Positive 10,000, այն հիանալի է աշխատում «Միայն տասը հազար»

Ստորև բերված օրինակը.

(10,000.99) Ընդամենը հարյուր տասը հազար և 99/100 ռիալ
10,000.99 Ընդամենը տասը հազար և 99/100 ռիալ
(10,000,000.99) Ընդամենը հարյուր տասը միլիոն և 99/100 ռիալ
10,000,000.99 Ընդամենը տասը միլիոն և 99/100 ռիալ
(10,000,000,000.99) Ընդամենը հարյուր տասը միլիարդ և 99/100 ռիալ
10,000,000,000.99 Ընդամենը տասը միլիարդ և 99/100 ռիալ
(10,000,000,000,000.90) Ընդամենը հարյուր տասը տրիլիոն և 90/100 ռիալ
10,000,000,000,000.90 Միայն տասը տրիլիոն և 90/100 ռիալ

Բանաձև = ուղղագրություն

ԻՄ VBA ԿՈԴԸ.

«Հիմնական գործառույթը
SpellBilling ֆունկցիան (ByVal MyNumber)
Dim Riyals, Halalas, Temp
Dim տասնորդական տեղ, Count
ReDim Place(9) As String
Տեղ (2) = «Հազար»
Տեղ (3) = «Միլիոն»
Տեղ (4) = «Միլիարդ»
Տեղ (5) = «Տրիլիոն»
Գումարի լարային ներկայացում:
Իմ համարը = կտրել (Str(MyNumber))
Տասնորդական 0-ի դիրքը, եթե ոչ:
Տասնորդական տեղ = InStr (Իմ համարը, ".")
Փոխակերպեք Halalas-ը և սահմանեք MyNumber-ը ռիալի գումարի:
Եթե ​​տասնորդական տեղ > 0 Ապա
Halalas = GetTens (Ձախ (Միջ (Իմ համարը, տասնորդական տեղ + 1) & _
«00», 2))
MyNumber = կտրում (ձախ (Իմ համարը, տասնորդական տեղ - 1))
Վերջ: Եթե
Հաշվարկ = 1
Do while MyNumber <> ""
Temp = GetHundreds (Right (My Number, 3))
Եթե ​​Temp <> "" Ապա Ռիալ = Temp & Place(Count) & Riyals
Եթե ​​Len(MyNumber) > 3 Ապա
MyNumber = Ձախ (MyNumber, Len(MyNumber) - 3)
Ուրիշ
Իմ համարը = ""
Վերջ: Եթե
Հաշվել = Հաշվել + 1
Հանգույց
Ընտրեք Case Riyals
Գործ «»
Ռիալ = «Ոչ ռիալ»
Գործ «մեկ»
Ռիալ = «Միայն մեկ ռիալ»
Այլ դեպք
Ռիալ = «Միայն» & Ռիալ
Ռիալ = Ռիալ & ""
Վերջ ընտրեք
Ընտրեք Case Halalas
Գործ «»
Հալալաս = «& 00/00 ռիալ»
Գործ «մեկ»
Հալալաս = «& 01/100 ռիալ»
Գործ «երկու»
Հալալաս = «& 02/100 ռիալ»
Գործ «երեք»
Հալալաս = «& 03/100 ռիալ»
Գործ «չորս»
Հալալաս = «& 04/100 ռիալ»
Գործ «հինգ»
Հալալաս = «& 05/100 ռիալ»
Գործ «վեց»
Հալալաս = «& 06/100 ռիալ»
Գործ «Յոթ»
Հալալաս = «& 07/100 ռիալ»
Գործ «ութ»
Հալալաս = «& 08/100 ռիալ»
Գործ «Ինը»
Հալալաս = «& 09/100 ռիալ»
Գործ «Տասը»
Հալալաս = «& 10/100 ռիալ»
Գործ «Տասնմեկ»
Հալալաս = «& 11/100 ռիալ»
Գործ «Տասներկու»
Հալալաս = «& 12/100 ռիալ»
Գործ «Տասներեք»
Հալալաս = «& 13/100 ռիալ»
Գործ «Տասնչորս»
Հալալաս = «& 14/100 ռիալ»
Գործ «Տասնհինգ»
Հալալաս = «& 15/100 ռիալ»
Գործ «Տասնվեց»
Հալալաս = «& 16/100 ռիալ»
Գործ «Տասնյոթ»
Հալալաս = «& 17/100 ռիալ»
Գործ «Տասնութ»
Հալալաս = «& 18/100 ռիալ»
Գործ «Տասնինը»
Հալալաս = «& 19/100 ռիալ»
Գործ «քսան»
Հալալաս = «& 20/100 ռիալ»
Գործ «Քսանմեկ»
Հալալաս = «& 21/100 ռիալ»
Գործ «Քսաներկու»
Հալալաս = «& 22/100 ռիալ»
Գործ «Քսաներեք»
Հալալաս = «& 23/100 ռիալ»
Գործ «Քսանչորս»
Հալալաս = «& 24/100 ռիալ»
Գործ «Քսան հինգ»
Հալալաս = «& 25/100 ռիալ»
Գործ «Քսանվեց»
Հալալաս = «& 26/100 ռիալ»
Գործ «Քսանյոթ»
Հալալաս = «& 27/100 ռիալ»
Գործ «Քսան ութ»
Հալալաս = «& 28/100 ռիալ»
Գործ «Քսանինը»
Հալալաս = «& 29/100 ռիալ»
Գործ «երեսուն»
Հալալաս = «& 30/100 ռիալ»
Գործ «երեսուն մեկ»
Հալալաս = «& 31/100 ռիալ»
Գործ «երեսուն երկու»
Հալալաս = «& 32/100 ռիալ»
Գործ «երեսուն երեք»
Հալալաս = «& 33/100 ռիալ»
Գործ «երեսուն չորս»
Հալալաս = «& 34/100 ռիալ»
Գործ «երեսուն հինգ»
Հալալաս = «& 35/100 ռիալ»
Գործ «երեսուն վեց»
Հալալաս = «& 36/100 ռիալ»
Գործ «երեսունյոթ»
Հալալաս = «& 37/100 ռիալ»
Գործ «երեսուն ութ»
Հալալաս = «& 38/100 ռիալ»
Գործ «երեսունինը»
Հալալաս = «& 39/100 ռիալ»
Գործ «Քառասուն»
Հալալաս = «& 40/100 ռիալ»
Գործ «Քառասունմեկ»
Հալալաս = «& 41/100 ռիալ»
Գործ «Քառասուն երկու»
Հալալաս = «& 42/100 ռիալ»
Գործ «Քառասուն երեք»
Հալալաս = «& 43/100 ռիալ»
Գործ «Քառասունչորս»
Հալալաս = «& 44/100 ռիալ»
Գործ «Քառասուն հինգ»
Հալալաս = «& 45/100 ռիալ»
Գործ «Քառասունվեց»
Հալալաս = «& 46/100 ռիալ»
Գործ «Քառասունյոթ»
Հալալաս = «& 47/100 ռիալ»
Գործ «Քառասունութ»
Հալալաս = «& 48/100 ռիալ»
Գործ «Քառասունինը»
Հալալաս = «& 49/100 ռիալ»
Գործ «Հիսուն»
Հալալաս = «& 50/100 ռիալ»
Գործ «Հիսուն մեկ»
Հալալաս = «& 51/100 ռիալ»
Գործ «Հիսուն երկու»
Հալալաս = «& 52/100 ռիալ»
Գործ «Հիսուն երեք»
Հալալաս = «& 53/100 ռիալ»
Գործ «Հիսուն չորս»
Հալալաս = «& 54/100 ռիալ»
Գործ «Հիսուն հինգ»
Հալալաս = «& 55/100 ռիալ»
Գործ «Հիսունվեց»
Հալալաս = «& 56/100 ռիալ»
Գործ «Հիսունյոթ»
Հալալաս = «& 57/100 ռիալ»
Գործ «Հիսուն ութ»
Հալալաս = «& 58/100 ռիալ»
Գործ «Հիսուն ինը»
Հալալաս = «& 59/100 ռիալ»
Գործ «Վաթսուն»
Հալալաս = «& 60/100 ռիալ»
Գործ «Վաթսունմեկ»
Հալալաս = «& 61/100 ռիալ»
Գործ «Վաթսուն երկու»
Հալալաս = «& 62/100 ռիալ»
Գործ «Վաթսուն երեք»
Հալալաս = «& 63/100 ռիալ»
Գործ «Վաթսունչորս»
Հալալաս = «& 64/100 ռիալ»
Գործ «Վաթսուն հինգ»
Հալալաս = «& 65/100 ռիալ»
Գործ «Վաթսունվեց»
Հալալաս = «& 66/100 ռիալ»
Գործ «Վաթսունյոթ»
Հալալաս = «& 67/100 ռիալ»
Գործ «Վաթսուն ութ»
Հալալաս = «& 68/100 ռիալ»
Գործ «Վաթսունինը»
Հալալաս = «& 69/100 ռիալ»
Գործ «Յոթանասուն»
Հալալաս = «& 70/100 ռիալ»
Գործ «Յոթանասունմեկ»
Հալալաս = «& 71/100 ռիալ»
Գործ «Յոթանասուն երկու»
Հալալաս = «& 72/100 ռիալ»
Գործ «Յոթանասուն երեք»
Հալալաս = «& 73/100 ռիալ»
Գործ «Յոթանասունչորս»
Հալալաս = «& 74/100 ռիալ»
Գործ «Յոթանասուն հինգ»
Հալալաս = «& 75/100 ռիալ»
Գործ «Յոթանասունվեց»
Հալալաս = «& 76/100 ռիալ»
Գործ «Յոթանասունյոթ»
Հալալաս = «& 77/100 ռիալ»
Գործ «Յոթանասուն ութ»
Հալալաս = «& 78/100 ռիալ»
Գործ «Յոթանասունինը»
Հալալաս = «& 79/100 ռիալ»
Գործ «ութսուն»
Հալալաս = «& 80/100 ռիալ»
Գործ «ութսունմեկ»
Հալալաս = «& 81/100 ռիալ»
Գործ «ութսուն երկու»
Հալալաս = «& 82/100 ռիալ»
Գործ «ութսուն երեք»
Հալալաս = «& 83/100 ռիալ»
Գործ «ութսուն չորս»
Հալալաս = «& 84/100 ռիալ»
Գործ «ութսուն հինգ»
Հալալաս = «& 85/100 ռիալ»
Գործ «Ութսունվեց»
Հալալաս = «& 86/100 ռիալ»
Գործ «ութսունյոթ»
Հալալաս = «& 87/100 ռիալ»
Գործ «ութսուն ութ»
Հալալաս = «& 88/100 ռիալ»
Գործ «Ութսունինը»
Հալալաս = «& 89/100 ռիալ»
Գործ «իննսուն»
Հալալաս = «& 90/100 ռիալ»
Գործ «Իննսունմեկ»
Հալալաս = «& 91/100 ռիալ»
Գործ «իննսուն երկու»
Հալալաս = «& 92/100 ռիալ»
Գործ «իննսուն երեք»
Հալալաս = «& 93/100 ռիալ»
Գործ «իննսունչորս»
Հալալաս = «& 94/100 ռիալ»
Գործ «իննսուն հինգ»
Հալալաս = «& 95/100 ռիալ»
Գործ «Իննսունվեց»
Հալալաս = «& 96/100 ռիալ»
«Իննսունյոթ» գործ
Հալալաս = «& 97/100 ռիալ»
Գործ «իննսուն ութ»
Հալալաս = «& 98/100 ռիալ»
Գործ «իննսուն ինը»
Հալալաս = «& 99/100 ռիալ»


Այլ դեպք
Halalas = " & " & Halalas & " Halalas "
Վերջ ընտրեք
SpellBilling = Ռիալ և Հալալա
End գործառույթը


100-999 թիվը փոխակերպում է տեքստի
Գործառույթ GetHundreds (ByVal MyNumber)
Պղտոր արդյունքը որպես լար
Եթե ​​Val(MyNumber) = 0 Ապա Ելք Ֆունկցիայից
MyNumber = Աջ ("000" & MyNumber, 3)
Փոխակերպեք հարյուրավոր տեղերը:
Եթե ​​Mid(MyNumber, 1, 1) <> «0» Ապա
Արդյունք = GetDigit (Mid(MyNumber, 1, 1)) & «Hurred»
Վերջ: Եթե
Փոխակերպի՛ր տասնյակների և միավորների տեղերը։
Եթե ​​Mid(MyNumber, 2, 1) <> «0» Ապա
Արդյունք = Արդյունք & GetTens (Միջ (Իմ համարը, 2))
Ուրիշ
Արդյունք = Արդյունք & GetDigit (Միջ (Իմ համարը, 3))
Վերջ: Եթե
GetHundreds = Արդյունք
End գործառույթը

10-ից 99 թիվը վերածում է տեքստի:
GetTens (TensText) ֆունկցիա
Պղտոր արդյունքը որպես լար
Արդյունք = "" ' Չեղարկեք ժամանակավոր ֆունկցիայի արժեքը:
Եթե ​​Val(Left(TensText, 1)) = 1 Ապա ' Եթե արժեքը 10-19 միջակայքում...
Ընտրեք Case Val (TensText)
Դեպք 10. Արդյունք = «Տասը»
Դեպք 11. Արդյունք = «Տասնմեկ»
Դեպք 12. Արդյունք = «Տասներկու»
Դեպք 13. Արդյունք = «Տասներեք»
Դեպք 14. Արդյունք = «Տասնչորս»
Դեպք 15. Արդյունք = «Տասնհինգ»
Դեպք 16. Արդյունք = «Տասնվեց»
Դեպք 17. Արդյունք = «Տասնյոթ»
Դեպք 18. Արդյունք = «Տասնութ»
Դեպք 19. Արդյունք = «Տասնինը»
Այլ դեպք
Վերջ ընտրեք
Հակառակ դեպքում, եթե արժեքը 20-99 միջակայքում է...
Ընտրեք Case Val (Ձախ (TensText, 1))
Դեպք 2. Արդյունք = «Քսան»
Դեպք 3. Արդյունք = «Երեսուն»
Դեպք 4. Արդյունք = «Քառասուն»
Դեպք 5. Արդյունք = «Հիսուն»
Դեպք 6. Արդյունք = «Վաթսուն»
Դեպք 7. Արդյունք = «Յոթանասուն»
Դեպք 8. Արդյունք = «Ութսուն»
Դեպք 9. Արդյունք = «Իննսուն»
Այլ դեպք
Վերջ ընտրեք
Արդյունք = Արդյունք & GetDigit _
(Right(TensText, 1)) ' Վերցրեք նրանց տեղը:
Վերջ: Եթե
GetTens = Արդյունք
End գործառույթը

1-ից 9 թիվը վերածում է տեքստի:
GetDigit (թվանշան) ֆունկցիա
Ընտրեք Case Val (թվանշան)
Դեպք 1. GetDigit = «Մեկ»
Դեպք 2. GetDigit = «Երկու»
Դեպք 3. GetDigit = «Երեք»
Դեպք 4. GetDigit = «Չորս»
Դեպք 5. GetDigit = «Հինգ»
Դեպք 6. GetDigit = «Վեց»
Դեպք 7. GetDigit = «Յոթ»
Դեպք 8. GetDigit = «Ութ»
Դեպք 9. GetDigit = «Ինը»
Այլ դեպք՝ GetDigit = ""
Վերջ ընտրեք
End գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչինչ չունեմ ասելու! Ծայրահեղ գերծանրքաշային
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Dear Sir,

Բարի օր,
Ես փորձարկեցի ձեր VBA կոդը, բայց, ցավոք, այն լավ չի աշխատում բացասական / մինուս արժեքների վրա, ինչպիսիք են -100 -10,000 / (100) (10,000):

Պարոն, ես օգտագործում եմ ստորև նշված կոդը վերջին 1 տարվա ընթացքում և այսօր հայտնաբերեցի նույն սխալը, որը հայտնաբերվել է նաև ձեր VBA կոդում:

Երբ գրում եմ մինուս -10,000, դա ցույց է տալիս «Ընդամենը հարյուր տասը հազար»
Երբ ես գրում եմ դրական 10,000, այն ցույց է տալիս, որ «Միայն տասը հազար»-ով լավ է աշխատում

Ստորև բերված օրինակը.

(10,000.99) Ընդամենը հարյուր տասը հազար և 99/100 ռիալ
10,000.99 Ընդամենը տասը հազար և 99/100 ռիալ
(10,000,000.99) Ընդամենը հարյուր տասը միլիոն և 99/100 ռիալ
10,000,000.99 Ընդամենը տասը միլիոն և 99/100 ռիալ
(10,000,000,000.99) Ընդամենը հարյուր տասը միլիարդ և 99/100 ռիալ
10,000,000,000.99 Ընդամենը տասը միլիարդ և 99/100 ռիալ
(10,000,000,000,000.90) Ընդամենը հարյուր տասը տրիլիոն և 90/100 ռիալ
10,000,000,000,000.90 Միայն տասը տրիլիոն և 90/100 ռիալ

Բանաձև = ուղղագրություն

ԻՄ VBA ԿՈԴԸ.

«Հիմնական գործառույթը
SpellBilling ֆունկցիան (ByVal MyNumber)
Dim Riyals, Halalas, Temp
Dim տասնորդական տեղ, Count
ReDim Place(9) As String
Տեղ (2) = «Հազար»
Տեղ (3) = «Միլիոն»
Տեղ (4) = «Միլիարդ»
Տեղ (5) = «Տրիլիոն»
Գումարի լարային ներկայացում:
Իմ համարը = կտրել (Str(MyNumber))
Տասնորդական 0-ի դիրքը, եթե ոչ:
Տասնորդական տեղ = InStr (Իմ համարը, ".")
Փոխակերպեք Halalas-ը և սահմանեք MyNumber-ը ռիալի գումարի:
Եթե ​​տասնորդական տեղ > 0 Ապա
Halalas = GetTens (Ձախ (Միջ (Իմ համարը, տասնորդական տեղ + 1) & _
«00», 2))
MyNumber = կտրում (ձախ (Իմ համարը, տասնորդական տեղ - 1))
Վերջ: Եթե
Հաշվարկ = 1
Do while MyNumber <> ""
Temp = GetHundreds (Right (My Number, 3))
Եթե ​​Temp <> "" Ապա Ռիալ = Temp & Place(Count) & Riyals
Եթե ​​Len(MyNumber) > 3 Ապա
MyNumber = Ձախ (MyNumber, Len(MyNumber) - 3)
Ուրիշ
Իմ համարը = ""
Վերջ: Եթե
Հաշվել = Հաշվել + 1
Հանգույց
Ընտրեք Case Riyals
Գործ «»
Ռիալ = «Ոչ ռիալ»
Գործ «մեկ»
Ռիալ = «Միայն մեկ ռիալ»
Այլ դեպք
Ռիալ = «Միայն» & Ռիալ
Ռիալ = Ռիալ & ""
Վերջ ընտրեք
Ընտրեք Case Halalas
Գործ «»
Հալալաս = «& 00/00 ռիալ»
Գործ «մեկ»
Հալալաս = «& 01/100 ռիալ»
Գործ «երկու»
Հալալաս = «& 02/100 ռիալ»
Գործ «երեք»
Հալալաս = «& 03/100 ռիալ»
Գործ «չորս»
Հալալաս = «& 04/100 ռիալ»
Գործ «հինգ»
Հալալաս = «& 05/100 ռիալ»
Գործ «վեց»
Հալալաս = «& 06/100 ռիալ»
Գործ «Յոթ»
Հալալաս = «& 07/100 ռիալ»
Գործ «ութ»
Հալալաս = «& 08/100 ռիալ»
Գործ «Ինը»
Հալալաս = «& 09/100 ռիալ»
Գործ «Տասը»
Հալալաս = «& 10/100 ռիալ»
Գործ «Տասնմեկ»
Հալալաս = «& 11/100 ռիալ»
Գործ «Տասներկու»
Հալալաս = «& 12/100 ռիալ»
Գործ «Տասներեք»
Հալալաս = «& 13/100 ռիալ»
Գործ «Տասնչորս»
Հալալաս = «& 14/100 ռիալ»
Գործ «Տասնհինգ»
Հալալաս = «& 15/100 ռիալ»
Գործ «Տասնվեց»
Հալալաս = «& 16/100 ռիալ»
Գործ «Տասնյոթ»
Հալալաս = «& 17/100 ռիալ»
Գործ «Տասնութ»
Հալալաս = «& 18/100 ռիալ»
Գործ «Տասնինը»
Հալալաս = «& 19/100 ռիալ»
Գործ «քսան»
Հալալաս = «& 20/100 ռիալ»
Գործ «Քսանմեկ»
Հալալաս = «& 21/100 ռիալ»
Գործ «Քսաներկու»
Հալալաս = «& 22/100 ռիալ»
Գործ «Քսաներեք»
Հալալաս = «& 23/100 ռիալ»
Գործ «Քսանչորս»
Հալալաս = «& 24/100 ռիալ»
Գործ «Քսան հինգ»
Հալալաս = «& 25/100 ռիալ»
Գործ «Քսանվեց»
Հալալաս = «& 26/100 ռիալ»
Գործ «Քսանյոթ»
Հալալաս = «& 27/100 ռիալ»
Գործ «Քսան ութ»
Հալալաս = «& 28/100 ռիալ»
Գործ «Քսանինը»
Հալալաս = «& 29/100 ռիալ»
Գործ «երեսուն»
Հալալաս = «& 30/100 ռիալ»
Գործ «երեսուն մեկ»
Հալալաս = «& 31/100 ռիալ»
Գործ «երեսուն երկու»
Հալալաս = «& 32/100 ռիալ»
Գործ «երեսուն երեք»
Հալալաս = «& 33/100 ռիալ»
Գործ «երեսուն չորս»
Հալալաս = «& 34/100 ռիալ»
Գործ «երեսուն հինգ»
Հալալաս = «& 35/100 ռիալ»
Գործ «երեսուն վեց»
Հալալաս = «& 36/100 ռիալ»
Գործ «երեսունյոթ»
Հալալաս = «& 37/100 ռիալ»
Գործ «երեսուն ութ»
Հալալաս = «& 38/100 ռիալ»
Գործ «երեսունինը»
Հալալաս = «& 39/100 ռիալ»
Գործ «Քառասուն»
Հալալաս = «& 40/100 ռիալ»
Գործ «Քառասունմեկ»
Հալալաս = «& 41/100 ռիալ»
Գործ «Քառասուն երկու»
Հալալաս = «& 42/100 ռիալ»
Գործ «Քառասուն երեք»
Հալալաս = «& 43/100 ռիալ»
Գործ «Քառասունչորս»
Հալալաս = «& 44/100 ռիալ»
Գործ «Քառասուն հինգ»
Հալալաս = «& 45/100 ռիալ»
Գործ «Քառասունվեց»
Հալալաս = «& 46/100 ռիալ»
Գործ «Քառասունյոթ»
Հալալաս = «& 47/100 ռիալ»
Գործ «Քառասունութ»
Հալալաս = «& 48/100 ռիալ»
Գործ «Քառասունինը»
Հալալաս = «& 49/100 ռիալ»
Գործ «Հիսուն»
Հալալաս = «& 50/100 ռիալ»
Գործ «Հիսուն մեկ»
Հալալաս = «& 51/100 ռիալ»
Գործ «Հիսուն երկու»
Հալալաս = «& 52/100 ռիալ»
Գործ «Հիսուն երեք»
Հալալաս = «& 53/100 ռիալ»
Գործ «Հիսուն չորս»
Հալալաս = «& 54/100 ռիալ»
Գործ «Հիսուն հինգ»
Հալալաս = «& 55/100 ռիալ»
Գործ «Հիսունվեց»
Հալալաս = «& 56/100 ռիալ»
Գործ «Հիսունյոթ»
Հալալաս = «& 57/100 ռիալ»
Գործ «Հիսուն ութ»
Հալալաս = «& 58/100 ռիալ»
Գործ «Հիսուն ինը»
Հալալաս = «& 59/100 ռիալ»
Գործ «Վաթսուն»
Հալալաս = «& 60/100 ռիալ»
Գործ «Վաթսունմեկ»
Հալալաս = «& 61/100 ռիալ»
Գործ «Վաթսուն երկու»
Հալալաս = «& 62/100 ռիալ»
Գործ «Վաթսուն երեք»
Հալալաս = «& 63/100 ռիալ»
Գործ «Վաթսունչորս»
Հալալաս = «& 64/100 ռիալ»
Գործ «Վաթսուն հինգ»
Հալալաս = «& 65/100 ռիալ»
Գործ «Վաթսունվեց»
Հալալաս = «& 66/100 ռիալ»
Գործ «Վաթսունյոթ»
Հալալաս = «& 67/100 ռիալ»
Գործ «Վաթսուն ութ»
Հալալաս = «& 68/100 ռիալ»
Գործ «Վաթսունինը»
Հալալաս = «& 69/100 ռիալ»
Գործ «Յոթանասուն»
Հալալաս = «& 70/100 ռիալ»
Գործ «Յոթանասունմեկ»
Հալալաս = «& 71/100 ռիալ»
Գործ «Յոթանասուն երկու»
Հալալաս = «& 72/100 ռիալ»
Գործ «Յոթանասուն երեք»
Հալալաս = «& 73/100 ռիալ»
Գործ «Յոթանասունչորս»
Հալալաս = «& 74/100 ռիալ»
Գործ «Յոթանասուն հինգ»
Հալալաս = «& 75/100 ռիալ»
Գործ «Յոթանասունվեց»
Հալալաս = «& 76/100 ռիալ»
Գործ «Յոթանասունյոթ»
Հալալաս = «& 77/100 ռիալ»
Գործ «Յոթանասուն ութ»
Հալալաս = «& 78/100 ռիալ»
Գործ «Յոթանասունինը»
Հալալաս = «& 79/100 ռիալ»
Գործ «ութսուն»
Հալալաս = «& 80/100 ռիալ»
Գործ «ութսունմեկ»
Հալալաս = «& 81/100 ռիալ»
Գործ «ութսուն երկու»
Հալալաս = «& 82/100 ռիալ»
Գործ «ութսուն երեք»
Հալալաս = «& 83/100 ռիալ»
Գործ «ութսուն չորս»
Հալալաս = «& 84/100 ռիալ»
Գործ «ութսուն հինգ»
Հալալաս = «& 85/100 ռիալ»
Գործ «Ութսունվեց»
Հալալաս = «& 86/100 ռիալ»
Գործ «ութսունյոթ»
Հալալաս = «& 87/100 ռիալ»
Գործ «ութսուն ութ»
Հալալաս = «& 88/100 ռիալ»
Գործ «Ութսունինը»
Հալալաս = «& 89/100 ռիալ»
Գործ «իննսուն»
Հալալաս = «& 90/100 ռիալ»
Գործ «Իննսունմեկ»
Հալալաս = «& 91/100 ռիալ»
Գործ «իննսուն երկու»
Հալալաս = «& 92/100 ռիալ»
Գործ «իննսուն երեք»
Հալալաս = «& 93/100 ռիալ»
Գործ «իննսունչորս»
Հալալաս = «& 94/100 ռիալ»
Գործ «իննսուն հինգ»
Հալալաս = «& 95/100 ռիալ»
Գործ «Իննսունվեց»
Հալալաս = «& 96/100 ռիալ»
«Իննսունյոթ» գործ
Հալալաս = «& 97/100 ռիալ»
Գործ «իննսուն ութ»
Հալալաս = «& 98/100 ռիալ»
Գործ «իննսուն ինը»
Հալալաս = «& 99/100 ռիալ»


Այլ դեպք
Halalas = " & " & Halalas & " Halalas "
Վերջ ընտրեք
SpellBilling = Ռիալ և Հալալա
End գործառույթը


100-999 թիվը փոխակերպում է տեքստի
Գործառույթ GetHundreds (ByVal MyNumber)
Պղտոր արդյունքը որպես լար
Եթե ​​Val(MyNumber) = 0 Ապա Ելք Ֆունկցիայից
MyNumber = Աջ ("000" & MyNumber, 3)
Փոխակերպեք հարյուրավոր տեղերը:
Եթե ​​Mid(MyNumber, 1, 1) <> «0» Ապա
Արդյունք = GetDigit (Mid(MyNumber, 1, 1)) & «Hurred»
Վերջ: Եթե
Փոխակերպի՛ր տասնյակների և միավորների տեղերը։
Եթե ​​Mid(MyNumber, 2, 1) <> «0» Ապա
Արդյունք = Արդյունք & GetTens (Միջ (Իմ համարը, 2))
Ուրիշ
Արդյունք = Արդյունք & GetDigit (Միջ (Իմ համարը, 3))
Վերջ: Եթե
GetHundreds = Արդյունք
End գործառույթը

10-ից 99 թիվը վերածում է տեքստի:
GetTens (TensText) ֆունկցիա
Պղտոր արդյունքը որպես լար
Արդյունք = "" ' Չեղարկեք ժամանակավոր ֆունկցիայի արժեքը:
Եթե ​​Val(Left(TensText, 1)) = 1 Ապա ' Եթե արժեքը 10-19 միջակայքում...
Ընտրեք Case Val (TensText)
Դեպք 10. Արդյունք = «Տասը»
Դեպք 11. Արդյունք = «Տասնմեկ»
Դեպք 12. Արդյունք = «Տասներկու»
Դեպք 13. Արդյունք = «Տասներեք»
Դեպք 14. Արդյունք = «Տասնչորս»
Դեպք 15. Արդյունք = «Տասնհինգ»
Դեպք 16. Արդյունք = «Տասնվեց»
Դեպք 17. Արդյունք = «Տասնյոթ»
Դեպք 18. Արդյունք = «Տասնութ»
Դեպք 19. Արդյունք = «Տասնինը»
Այլ դեպք
Վերջ ընտրեք
Հակառակ դեպքում, եթե արժեքը 20-99 միջակայքում է...
Ընտրեք Case Val (Ձախ (TensText, 1))
Դեպք 2. Արդյունք = «Քսան»
Դեպք 3. Արդյունք = «Երեսուն»
Դեպք 4. Արդյունք = «Քառասուն»
Դեպք 5. Արդյունք = «Հիսուն»
Դեպք 6. Արդյունք = «Վաթսուն»
Դեպք 7. Արդյունք = «Յոթանասուն»
Դեպք 8. Արդյունք = «Ութսուն»
Դեպք 9. Արդյունք = «Իննսուն»
Այլ դեպք
Վերջ ընտրեք
Արդյունք = Արդյունք & GetDigit _
(Right(TensText, 1)) ' Վերցրեք նրանց տեղը:
Վերջ: Եթե
GetTens = Արդյունք
End գործառույթը

1-ից 9 թիվը վերածում է տեքստի:
GetDigit (թվանշան) ֆունկցիա
Ընտրեք Case Val (թվանշան)
Դեպք 1. GetDigit = «Մեկ»
Դեպք 2. GetDigit = «Երկու»
Դեպք 3. GetDigit = «Երեք»
Դեպք 4. GetDigit = «Չորս»
Դեպք 5. GetDigit = «Հինգ»
Դեպք 6. GetDigit = «Վեց»
Դեպք 7. GetDigit = «Յոթ»
Դեպք 8. GetDigit = «Ութ»
Դեպք 9. GetDigit = «Ինը»
Այլ դեպք՝ GetDigit = ""
Վերջ ընտրեք
End գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պետք է կիրառեմ Excel-ի ամբողջ աշխատանքային գրքույկը: Ինչպես կիրառել այս կոդավորումը Excel-ի բոլոր աշխատանքային գրքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ռուփի տասնչորս հազար ութ հարյուր յոթանասունհինգ Միայն վերջին գումարը պետք է ունենա բառ և օրինակ
Միայն տասնչորս հազար ութ հարյուր յոթանասունհինգ ռուփի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
չեմ կարող կարդալ ավելի քան 10 միլիոն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեկ լաք վաթսուն ինը հազար ութսունմեկ և քառասուներկու փեյս - ճիշտ չի փոխարկվել: Նաև չի փոխարկվում վերը նշված ցուցանիշը, երբ այն ավարտվում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ ԿՈԴԻ ՀԱՄԱՐ...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդավորման համար: Ես դիմել եմ և աշխատում է: Բայց դա կիրառվում է միայն այդ աշխատանքային գրքի համար: Ես պետք է կիրառեմ Excel-ի ամբողջ աշխատանքային գրքույկը: Ինչպես կիրառել այս կոդավորումը Excel-ի բոլոր աշխատանքային գրքում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, SivaG
Այո, այս կոդը User Defined Function-ն է, դուք պետք է ֆայլերի վրա կիրառեք բանաձևը մեկ առ մեկ, եթե ձեզ անհրաժեշտ է կոդը մի քանի աշխատանքային գրքույկների վրա կիրառելու համար, այն կկիրառվի բոլոր թվերի վրա, ուստի բոլոր թվերը կփոխվեն: Իսկ կոդը չի կարող աջակցել հետարկել, կան անվտանգության որոշ ռիսկեր: Խորհուրդ չի տրվում դա անել։ Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարելի է հեռացնել «ռուփի» բառը: Սովորաբար չեկի տերևներում արդեն կա «Ռուփի» բառը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Սաքարիա
Ձեր խնդիրը լուծելու համար խնդրում ենք կիրառել հետևյալ կոդը.
Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(Str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function



Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ... 🙂
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բայց սա կիրառելի է միայն մեկ Excel-ի համար: Եթե ​​ես այս բանաձևը մուտքագրեմ այլ Excel-ում, դա չի աշխատում
որն է դրա լուծումը
խնդրում եմ վերադարձնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Եթե ​​դուք ունեք մի քանի աշխատանքային գրքույկ, դուք պետք է պատճենեք կոդը մի քանի աշխատանքային գրքում:
Եթե ​​այն պատճենեք միայն մեկ աշխատանքային գրքում, այն չի աշխատի մյուս աշխատանքային գրքում: 😀
Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն, դա շատ օգտակար է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, պարոն, հնարավո՞ր է սա լռելյայն սահմանել յուրաքանչյուր excel աշխատանքային թերթիկի համար, թե ոչ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մուկեշ

Այո, քանի դեռ կոդը պատճենված է vba պատուհանի մոդուլում, բանաձևը կարող է կիրառվել ամբողջ աշխատանքային գրքում:
Բայց աշխատանքային գրքույկը փակելիս պետք է պահպանել այն որպես Excel մակրոներով աշխատունակ գիրք ֆայլի ձևաչափ
Խնդրում եմ փորձեք, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մի քանի անգամ փորձել է, չի աշխատում: Խնդրում ենք օգնել
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից