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

Sut i drosi rhifau i eiriau mewn rupees Indiaidd yn Excel?

Yr erthygl hon, byddaf yn cyflwyno sut i drosi rhestr o rifau i eiriau mewn rupees Indiaidd neu doler Saesneg yn Excel.

Trosi rhifau i eiriau mewn rupees Indiaidd gyda chod VBA

Trosi rhifau i eiriau mewn doler Saesneg gyda nodwedd anhygoel


Trosi rhifau i eiriau mewn rupees Indiaidd gyda chod VBA

Gall y cod VBA canlynol eich helpu chi i drosi'r rhifau yn eiriau mewn rupees, gwnewch hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Trosi rhifau i eiriau mewn rupees

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. Ar ôl mewnosod y cod, arbed a chau ffenestr y cod, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon: = RupeeFormat (A2) i mewn i gell wag, ac yna llusgwch y handlen llenwi i lawr i gymhwyso'r fformiwla hon i gelloedd eraill, mae'r holl rifau wedi'u sillafu allan mewn rupees, gweler y screenshot:


Trosi rhifau i eiriau mewn doler Saesneg gyda nodwedd anhygoel

Os ydych chi am drosi'r rhifau yn eiriau yn doler Saesneg, Kutools ar gyfer Excel'S Rhifau i Eiriau gall nodwedd eich helpu chi i ddatrys y swydd hon yn gyflym ac yn hawdd.

Awgrym:I gymhwyso hyn Nifer i Eiriau nodwedd, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Dewiswch y rhestr o rifau rydych chi am eu trosi, ac yna cliciwch Kutools > Cynnwys > Rhifau i Eiriau, gweler sgrinluniau:

2. Yn y Niferoedd i Eiriau Arian Cyfred blwch deialog, dewiswch Saesneg opsiwn gan y Ieithoedd adran, ac yna cliciwch Ok botwm, mae'r rhifau yn y detholiad wedi'u trosi i'r geiriau arian cyfred Saesneg, gweler y screenshot:

Cliciwch i Lawrlwytho Kutools ar gyfer Excel a threial am ddim Nawr!

 



  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (12)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae Excel yn damwain pan nad oes gan y gell gyfeirio falf!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Defnyddiwr,
Diolch am eich sylw, mae'r cod yn yr erthygl hon wedi'i ddiweddaru, ceisiwch eto, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr,

Da dydd,

Profais uwchlaw'r fformiwla nad yw'n gweithio mewn cysylltnod minws gwerthoedd fel -100 -10,000 neu (100) (10,000)

Syr, rwy'n defnyddio'r cod isod am y blynyddoedd 1 diwethaf a heddiw darganfyddais yr un gwall.

Pan fyddaf yn ysgrifennu minws -10,000 neu (10,000) mae'n dangos "Dim ond Cant Deg Mil"
Pan fyddaf yn ysgrifennu Positive 10,000 mae'n gweithio'n wych "Dim ond Deg Mil"

Isod enghraifft:

(10,000.99) Dim ond Cant Deg Mil a 99/100 o Riyals
10,000.99 Dim ond Deg Mil & 99/100 Riyals
(10,000,000.99) Dim ond Cant Deg Miliwn a 99/100 Riyals
10,000,000.99 Dim ond Deg Miliwn a 99/100 o Riyals
(10,000,000,000.99) Dim ond Cant Deg Biliwn a 99/100 Riyals
10,000,000,000.99 Dim ond Deg Biliwn a 99/100 Riyals
(10,000,000,000,000.90) Dim ond Cant Deg Triliwn a 90/100 o Riyals
10,000,000,000,000.90 Dim ond Deg Triliwn a 90/100 Riyals

Fformiwla = sillafu

FY CÔD VBA:

'Prif Swyddogaeth
Swyddogaeth SillafuBil(FyVal MyNumber)
Dim Riyals, Halalas, Temp
Dim DegolPlace, Cyfri
ReDim Place(9) Fel Llinyn
Place(2) = " Mil"
Place(3) = " Miliwn "
Place(4) = " Biliwn "
Place(5) = " Triliwn "
' Cynrychiolaeth llinynnol o'r swm.
FyNumber = Trimio(Str(FyNumber))
' Safle'r lle degol 0 os dim.
DecimalPlace = InStr(FyNumber, ".")
' Trosi Halalas a gosod swm MyNumber i Riyal.
Os DegolLle > 0 Yna
Halalas = GetTens(Chwith(Canol(FyNumber, DecimalPlace + 1)) & _
"00", 2))
FyNumber = Trimio(Chwith(FyNumber, DegolPlace - 1))
Gorffennwch Os
Cyfrif = 1
Gwnewch Tra FyRhif <> ""
Temp = GetHundreds(Iawn(FyRhif, 3))
If Temp <> "" Yna Riyals = Temp & Place(Count) & Riyals
Os Len(FyRhif) > 3 Yna
FyNumber = Chwith(FyRhif, Len(FyRhif) - 3)
arall
FyRhif=""
Gorffennwch Os
Cyfrif = Cyfrif + 1
dolen
Dewiswch Case Riyals
Achos""
Riyals = "Dim Riyal"
Achos "Un"
Riyals = "Dim ond Un Riyal"
Achos Arall
Riyals = "Dim ond" & Riyals
Riyals = Riyals & ""
Diwedd Dewis
Dewiswch Halalas Achos
Achos""
Halalas = "& Riyals 00/00"
Achos "Un"
Halalas = "& Riyals 01/100"
Achos "Dau"
Halalas = "& Riyals 02/100"
Achos "Tri"
Halalas = "& Riyals 03/100"
Achos "Pedwar"
Halalas = "& Riyals 04/100"
Achos "pump"
Halalas = "& Riyals 05/100"
Achos "Chwech"
Halalas = "& Riyals 06/100"
Achos "Saith"
Halalas = "& Riyals 07/100"
Achos "Wyth"
Halalas = "& Riyals 08/100"
Achos "Naw"
Halalas = "& Riyals 09/100"
Achos "Deg"
Halalas = "& Riyals 10/100"
Achos "Un ar ddeg"
Halalas = "& Riyals 11/100"
Achos "Twelve"
Halalas = "& Riyals 12/100"
Achos "Tri ar ddeg"
Halalas = "& Riyals 13/100"
Achos "Pedwar ar ddeg"
Halalas = "& Riyals 14/100"
Achos "Pymtheg"
Halalas = "& Riyals 15/100"
Achos "Sixteen"
Halalas = "& Riyals 16/100"
Achos "Seventeen"
Halalas = "& Riyals 17/100"
Achos "Deunaw"
Halalas = "& Riyals 18/100"
Achos "Nineteen"
Halalas = "& Riyals 19/100"
Achos "Twenty"
Halalas = "& Riyals 20/100"
Achos "Un ar Hugain"
Halalas = "& Riyals 21/100"
Achos "Twenty Two"
Halalas = "& Riyals 22/100"
Achos "Twenty Three"
Halalas = "& Riyals 23/100"
Achos "Twenty Four"
Halalas = "& Riyals 24/100"
Achos "Twenty Five"
Halalas = "& Riyals 25/100"
Achos "Twenty Six"
Halalas = "& Riyals 26/100"
Achos "Saith ar Hugain"
Halalas = "& Riyals 27/100"
Achos "Twenty Eight"
Halalas = "& Riyals 28/100"
Achos "Twenty Naw"
Halalas = "& Riyals 29/100"
Achos " Tri deg "
Halalas = "& Riyals 30/100"
Achos "Tri Deg Un"
Halalas = "& Riyals 31/100"
Achos "Tri Deg Dau"
Halalas = "& Riyals 32/100"
Achos "Tri Deg Tri"
Halalas = "& Riyals 33/100"
Achos "Tri Deg Pedwar"
Halalas = "& Riyals 34/100"
Achos "Trideg Pump"
Halalas = "& Riyals 35/100"
Achos "Tri Deg Chwech"
Halalas = "& Riyals 36/100"
Achos "Tri Deg Saith"
Halalas = "& Riyals 37/100"
Achos "Tri Deg Wyth"
Halalas = "& Riyals 38/100"
Achos "Tri Deg Naw"
Halalas = "& Riyals 39/100"
Achos " Pedwar deg "
Halalas = "& Riyals 40/100"
Achos "Forty One"
Halalas = "& Riyals 41/100"
Achos "Forty Two"
Halalas = "& Riyals 42/100"
Achos "Forty Three"
Halalas = "& Riyals 43/100"
Achos "Forty Four"
Halalas = "& Riyals 44/100"
Achos "Forty Five"
Halalas = "& Riyals 45/100"
Achos "Forty Six"
Halalas = "& Riyals 46/100"
Achos "Forty Seven"
Halalas = "& Riyals 47/100"
Achos "Forty Eight"
Halalas = "& Riyals 48/100"
Achos "Forty Naw"
Halalas = "& Riyals 49/100"
Achos "Fifty"
Halalas = "& Riyals 50/100"
Achos "Fifty One"
Halalas = "& Riyals 51/100"
Achos "Fifty Two"
Halalas = "& Riyals 52/100"
Achos "Fifty Three"
Halalas = "& Riyals 53/100"
Achos "Fifty Four"
Halalas = "& Riyals 54/100"
Achos "Fifty Five"
Halalas = "& Riyals 55/100"
Achos "Fifty Six"
Halalas = "& Riyals 56/100"
Achos "Fifty Seven"
Halalas = "& Riyals 57/100"
Achos "Fifty Eight"
Halalas = "& Riyals 58/100"
Achos "Fifty Naw"
Halalas = "& Riyals 59/100"
Achos " Chwe deg "
Halalas = "& Riyals 60/100"
Achos "Chwe deg Un"
Halalas = "& Riyals 61/100"
Achos "Chwe deg Dau"
Halalas = "& Riyals 62/100"
Achos "Chwe deg Tri"
Halalas = "& Riyals 63/100"
Achos "Chwe deg Pedwar"
Halalas = "& Riyals 64/100"
Achos "Sixty Five"
Halalas = "& Riyals 65/100"
Achos "Sixty Six"
Halalas = "& Riyals 66/100"
Achos "Chwe deg Saith"
Halalas = "& Riyals 67/100"
Achos "Chwe deg wyth"
Halalas = "& Riyals 68/100"
Achos "Chwe deg naw"
Halalas = "& Riyals 69/100"
Achos "Saithdeg"
Halalas = "& Riyals 70/100"
Achos "Saith deg Un"
Halalas = "& Riyals 71/100"
Achos "Saith deg Dau"
Halalas = "& Riyals 72/100"
Achos "Saith deg Tri"
Halalas = "& Riyals 73/100"
Achos "Saith deg pedwar"
Halalas = "& Riyals 74/100"
Achos "Seventy Five"
Halalas = "& Riyals 75/100"
Achos "Seventy Six"
Halalas = "& Riyals 76/100"
Achos "Seventy Seven"
Halalas = "& Riyals 77/100"
Achos "Seventy Wyth"
Halalas = "& Riyals 78/100"
Achos "Saith deg Naw"
Halalas = "& Riyals 79/100"
Achos "Eighty"
Halalas = "& Riyals 80/100"
Achos "Eighty One"
Halalas = "& Riyals 81/100"
Achos "Eighty Two"
Halalas = "& Riyals 82/100"
Achos "Eighty Three"
Halalas = "& Riyals 83/100"
Achos "Eighty Four"
Halalas = "& Riyals 84/100"
Achos "Eighty Five"
Halalas = "& Riyals 85/100"
Achos "Eighty Six"
Halalas = "& Riyals 86/100"
Achos "Eighty Seven"
Halalas = "& Riyals 87/100"
Achos "Eighty Wyth"
Halalas = "& Riyals 88/100"
Achos "Eighty Naw"
Halalas = "& Riyals 89/100"
Achos "Ninety"
Halalas = "& Riyals 90/100"
Achos "Ninety One"
Halalas = "& Riyals 91/100"
Achos "Naw deg Dau"
Halalas = "& Riyals 92/100"
Achos "Ninety Three"
Halalas = "& Riyals 93/100"
Achos "Ninety Four"
Halalas = "& Riyals 94/100"
Achos "Ninety Five"
Halalas = "& Riyals 95/100"
Achos "Ninety Six"
Halalas = "& Riyals 96/100"
Achos "Naw deg Saith"
Halalas = "& Riyals 97/100"
Achos "Naw deg wyth"
Halalas = "& Riyals 98/100"
Achos "Naw deg naw"
Halalas = "& Riyals 99/100"


Achos Arall
Halalas = " & " & Halalas & " Halalas"
Diwedd Dewis
SpellBilling = Riyals & Halalas
Swyddogaeth End


' Trosi rhif o 100-999 yn destun
Swyddogaeth GetHundreds(FyVal MyNumber)
Dim Canlyniad Fel Llinyn
Os yw Val(MyNumber) = 0 Yna Gadael Swyddogaeth
MyNumber = I'r Dde("000" & FyNumber, 3)
' Trosi lle cannoedd.
Os Canolbarth(FyRhif, 1, 1) <> "0" Yna
Canlyniad = GetDigit(Canol(FyNrif, 1, 1)) & " Can "
Gorffennwch Os
' Trosi'r degau ac un lle.
Os Canolbarth(FyRhif, 2, 1) <> "0" Yna
Canlyniad = Canlyniad a GetTens(Canol(FyRhif, 2))
arall
Canlyniad = Canlyniad a GetDigit(Canol(FyRhif, 3))
Gorffennwch Os
GetHundreds = Canlyniad
Swyddogaeth End

' Trosi rhif o 10 i 99 yn destun.
Swyddogaeth GetTens(TensText)
Dim Canlyniad Fel Llinyn
Canlyniad = "" ' Dileu gwerth ffwythiant dros dro.
Os yw Val(Chwith(TensText, 1)) = 1 Yna ' Os yw gwerth rhwng 10-19...
Dewiswch Case Val(TensText)
Achos 10: Canlyniad = "Deg"
Achos 11: Canlyniad = "Un ar ddeg"
Achos 12: Canlyniad = "Twelve"
Achos 13: Canlyniad = "Tri ar ddeg"
Achos 14: Canlyniad = "Pedwar ar ddeg"
Achos 15: Canlyniad = "Pymtheg"
Achos 16: Canlyniad = "Un ar bymtheg"
Achos 17: Canlyniad = "Daith ar bymtheg"
Achos 18: Canlyniad = "Deunaw"
Achos 19: Canlyniad = "Pedwar ar bymtheg"
Achos Arall
Diwedd Dewis
Arall ' Os yw gwerth rhwng 20-99...
Dewiswch Case Val(Chwith(TensText, 1))
Achos 2: Canlyniad = "Ugain"
Achos 3: Canlyniad = "Tri deg"
Achos 4: Canlyniad = "Deugain"
Achos 5: Canlyniad = "Fifty"
Achos 6: Canlyniad = "Chwe deg"
Achos 7: Canlyniad = "Saithdeg"
Achos 8: Canlyniad = "Wyth deg"
Achos 9: Canlyniad = "Naw deg"
Achos Arall
Diwedd Dewis
Canlyniad = Canlyniad & GetDigit _
(I'r dde(TensText, 1)) ' Adalw rhai lle.
Gorffennwch Os
GetTens = Canlyniad
Swyddogaeth End

' Trosi rhif o 1 i 9 yn destun.
Swyddogaeth GetDigit(Digit)
Dewiswch Achos Val(Digit)
Achos 1: GetDigit = "Un"
Achos 2: GetDigit = "Dau"
Achos 3: GetDigit = "Tri"
Achos 4: GetDigit = "Pedwar"
Achos 5: GetDigit = "Pump"
Achos 6: GetDigit = "Chwech"
Achos 7: GetDigit = "Saith"
Achos 8: GetDigit = "Wyth"
Achos 9: GetDigit = "Naw"
Achos Arall: GetDigit=""
Diwedd Dewis
Swyddogaeth End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim i'w ddweud! Extremlysuper
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Syr,

Da dydd,
Profais eich cod VBA ond yn anffodus nid yw'n gweithio'n dda ar werthoedd negyddol / minws fel -100 -10,000 / (100) (10,000).

Syr, rwy'n defnyddio'r cod isod am y blynyddoedd 1 diwethaf a heddiw darganfyddais yr un gwall a geir yn eich cod VBA hefyd.

Pan fyddaf yn ysgrifennu minws -10,000 mae'n dangos ar "Dim ond Cant Deg Mil"
Pan fyddaf yn ysgrifennu cadarnhaol 10,000 mae'n dangos ar "Dim ond Deg Mil" yn gweithio'n iawn

Isod enghraifft:

(10,000.99) Dim ond Cant Deg Mil a 99/100 o Riyals
10,000.99 Dim ond Deg Mil & 99/100 Riyals
(10,000,000.99) Dim ond Cant Deg Miliwn a 99/100 Riyals
10,000,000.99 Dim ond Deg Miliwn a 99/100 o Riyals
(10,000,000,000.99) Dim ond Cant Deg Biliwn a 99/100 Riyals
10,000,000,000.99 Dim ond Deg Biliwn a 99/100 Riyals
(10,000,000,000,000.90) Dim ond Cant Deg Triliwn a 90/100 o Riyals
10,000,000,000,000.90 Dim ond Deg Triliwn a 90/100 Riyals

Fformiwla = sillafu

FY CÔD VBA:

'Prif Swyddogaeth
Swyddogaeth SillafuBil(FyVal MyNumber)
Dim Riyals, Halalas, Temp
Dim DegolPlace, Cyfri
ReDim Place(9) Fel Llinyn
Place(2) = " Mil"
Place(3) = " Miliwn "
Place(4) = " Biliwn "
Place(5) = " Triliwn "
' Cynrychiolaeth llinynnol o'r swm.
FyNumber = Trimio(Str(FyNumber))
' Safle'r lle degol 0 os dim.
DecimalPlace = InStr(FyNumber, ".")
' Trosi Halalas a gosod swm MyNumber i Riyal.
Os DegolLle > 0 Yna
Halalas = GetTens(Chwith(Canol(FyNumber, DecimalPlace + 1)) & _
"00", 2))
FyNumber = Trimio(Chwith(FyNumber, DegolPlace - 1))
Gorffennwch Os
Cyfrif = 1
Gwnewch Tra FyRhif <> ""
Temp = GetHundreds(Iawn(FyRhif, 3))
If Temp <> "" Yna Riyals = Temp & Place(Count) & Riyals
Os Len(FyRhif) > 3 Yna
FyNumber = Chwith(FyRhif, Len(FyRhif) - 3)
arall
FyRhif=""
Gorffennwch Os
Cyfrif = Cyfrif + 1
dolen
Dewiswch Case Riyals
Achos""
Riyals = "Dim Riyal"
Achos "Un"
Riyals = "Dim ond Un Riyal"
Achos Arall
Riyals = "Dim ond" & Riyals
Riyals = Riyals & ""
Diwedd Dewis
Dewiswch Halalas Achos
Achos""
Halalas = "& Riyals 00/00"
Achos "Un"
Halalas = "& Riyals 01/100"
Achos "Dau"
Halalas = "& Riyals 02/100"
Achos "Tri"
Halalas = "& Riyals 03/100"
Achos "Pedwar"
Halalas = "& Riyals 04/100"
Achos "pump"
Halalas = "& Riyals 05/100"
Achos "Chwech"
Halalas = "& Riyals 06/100"
Achos "Saith"
Halalas = "& Riyals 07/100"
Achos "Wyth"
Halalas = "& Riyals 08/100"
Achos "Naw"
Halalas = "& Riyals 09/100"
Achos "Deg"
Halalas = "& Riyals 10/100"
Achos "Un ar ddeg"
Halalas = "& Riyals 11/100"
Achos "Twelve"
Halalas = "& Riyals 12/100"
Achos "Tri ar ddeg"
Halalas = "& Riyals 13/100"
Achos "Pedwar ar ddeg"
Halalas = "& Riyals 14/100"
Achos "Pymtheg"
Halalas = "& Riyals 15/100"
Achos "Sixteen"
Halalas = "& Riyals 16/100"
Achos "Seventeen"
Halalas = "& Riyals 17/100"
Achos "Deunaw"
Halalas = "& Riyals 18/100"
Achos "Nineteen"
Halalas = "& Riyals 19/100"
Achos "Twenty"
Halalas = "& Riyals 20/100"
Achos "Un ar Hugain"
Halalas = "& Riyals 21/100"
Achos "Twenty Two"
Halalas = "& Riyals 22/100"
Achos "Twenty Three"
Halalas = "& Riyals 23/100"
Achos "Twenty Four"
Halalas = "& Riyals 24/100"
Achos "Twenty Five"
Halalas = "& Riyals 25/100"
Achos "Twenty Six"
Halalas = "& Riyals 26/100"
Achos "Saith ar Hugain"
Halalas = "& Riyals 27/100"
Achos "Twenty Eight"
Halalas = "& Riyals 28/100"
Achos "Twenty Naw"
Halalas = "& Riyals 29/100"
Achos " Tri deg "
Halalas = "& Riyals 30/100"
Achos "Tri Deg Un"
Halalas = "& Riyals 31/100"
Achos "Tri Deg Dau"
Halalas = "& Riyals 32/100"
Achos "Tri Deg Tri"
Halalas = "& Riyals 33/100"
Achos "Tri Deg Pedwar"
Halalas = "& Riyals 34/100"
Achos "Trideg Pump"
Halalas = "& Riyals 35/100"
Achos "Tri Deg Chwech"
Halalas = "& Riyals 36/100"
Achos "Tri Deg Saith"
Halalas = "& Riyals 37/100"
Achos "Tri Deg Wyth"
Halalas = "& Riyals 38/100"
Achos "Tri Deg Naw"
Halalas = "& Riyals 39/100"
Achos " Pedwar deg "
Halalas = "& Riyals 40/100"
Achos "Forty One"
Halalas = "& Riyals 41/100"
Achos "Forty Two"
Halalas = "& Riyals 42/100"
Achos "Forty Three"
Halalas = "& Riyals 43/100"
Achos "Forty Four"
Halalas = "& Riyals 44/100"
Achos "Forty Five"
Halalas = "& Riyals 45/100"
Achos "Forty Six"
Halalas = "& Riyals 46/100"
Achos "Forty Seven"
Halalas = "& Riyals 47/100"
Achos "Forty Eight"
Halalas = "& Riyals 48/100"
Achos "Forty Naw"
Halalas = "& Riyals 49/100"
Achos "Fifty"
Halalas = "& Riyals 50/100"
Achos "Fifty One"
Halalas = "& Riyals 51/100"
Achos "Fifty Two"
Halalas = "& Riyals 52/100"
Achos "Fifty Three"
Halalas = "& Riyals 53/100"
Achos "Fifty Four"
Halalas = "& Riyals 54/100"
Achos "Fifty Five"
Halalas = "& Riyals 55/100"
Achos "Fifty Six"
Halalas = "& Riyals 56/100"
Achos "Fifty Seven"
Halalas = "& Riyals 57/100"
Achos "Fifty Eight"
Halalas = "& Riyals 58/100"
Achos "Fifty Naw"
Halalas = "& Riyals 59/100"
Achos " Chwe deg "
Halalas = "& Riyals 60/100"
Achos "Chwe deg Un"
Halalas = "& Riyals 61/100"
Achos "Chwe deg Dau"
Halalas = "& Riyals 62/100"
Achos "Chwe deg Tri"
Halalas = "& Riyals 63/100"
Achos "Chwe deg Pedwar"
Halalas = "& Riyals 64/100"
Achos "Sixty Five"
Halalas = "& Riyals 65/100"
Achos "Sixty Six"
Halalas = "& Riyals 66/100"
Achos "Chwe deg Saith"
Halalas = "& Riyals 67/100"
Achos "Chwe deg wyth"
Halalas = "& Riyals 68/100"
Achos "Chwe deg naw"
Halalas = "& Riyals 69/100"
Achos "Saithdeg"
Halalas = "& Riyals 70/100"
Achos "Saith deg Un"
Halalas = "& Riyals 71/100"
Achos "Saith deg Dau"
Halalas = "& Riyals 72/100"
Achos "Saith deg Tri"
Halalas = "& Riyals 73/100"
Achos "Saith deg pedwar"
Halalas = "& Riyals 74/100"
Achos "Seventy Five"
Halalas = "& Riyals 75/100"
Achos "Seventy Six"
Halalas = "& Riyals 76/100"
Achos "Seventy Seven"
Halalas = "& Riyals 77/100"
Achos "Seventy Wyth"
Halalas = "& Riyals 78/100"
Achos "Saith deg Naw"
Halalas = "& Riyals 79/100"
Achos "Eighty"
Halalas = "& Riyals 80/100"
Achos "Eighty One"
Halalas = "& Riyals 81/100"
Achos "Eighty Two"
Halalas = "& Riyals 82/100"
Achos "Eighty Three"
Halalas = "& Riyals 83/100"
Achos "Eighty Four"
Halalas = "& Riyals 84/100"
Achos "Eighty Five"
Halalas = "& Riyals 85/100"
Achos "Eighty Six"
Halalas = "& Riyals 86/100"
Achos "Eighty Seven"
Halalas = "& Riyals 87/100"
Achos "Eighty Wyth"
Halalas = "& Riyals 88/100"
Achos "Eighty Naw"
Halalas = "& Riyals 89/100"
Achos "Ninety"
Halalas = "& Riyals 90/100"
Achos "Ninety One"
Halalas = "& Riyals 91/100"
Achos "Naw deg Dau"
Halalas = "& Riyals 92/100"
Achos "Ninety Three"
Halalas = "& Riyals 93/100"
Achos "Ninety Four"
Halalas = "& Riyals 94/100"
Achos "Ninety Five"
Halalas = "& Riyals 95/100"
Achos "Ninety Six"
Halalas = "& Riyals 96/100"
Achos "Naw deg Saith"
Halalas = "& Riyals 97/100"
Achos "Naw deg wyth"
Halalas = "& Riyals 98/100"
Achos "Naw deg naw"
Halalas = "& Riyals 99/100"


Achos Arall
Halalas = " & " & Halalas & " Halalas"
Diwedd Dewis
SpellBilling = Riyals & Halalas
Swyddogaeth End


' Trosi rhif o 100-999 yn destun
Swyddogaeth GetHundreds(FyVal MyNumber)
Dim Canlyniad Fel Llinyn
Os yw Val(MyNumber) = 0 Yna Gadael Swyddogaeth
MyNumber = I'r Dde("000" & FyNumber, 3)
' Trosi lle cannoedd.
Os Canolbarth(FyRhif, 1, 1) <> "0" Yna
Canlyniad = GetDigit(Canol(FyNrif, 1, 1)) & " Can "
Gorffennwch Os
' Trosi'r degau ac un lle.
Os Canolbarth(FyRhif, 2, 1) <> "0" Yna
Canlyniad = Canlyniad a GetTens(Canol(FyRhif, 2))
arall
Canlyniad = Canlyniad a GetDigit(Canol(FyRhif, 3))
Gorffennwch Os
GetHundreds = Canlyniad
Swyddogaeth End

' Trosi rhif o 10 i 99 yn destun.
Swyddogaeth GetTens(TensText)
Dim Canlyniad Fel Llinyn
Canlyniad = "" ' Dileu gwerth ffwythiant dros dro.
Os yw Val(Chwith(TensText, 1)) = 1 Yna ' Os yw gwerth rhwng 10-19...
Dewiswch Case Val(TensText)
Achos 10: Canlyniad = "Deg"
Achos 11: Canlyniad = "Un ar ddeg"
Achos 12: Canlyniad = "Twelve"
Achos 13: Canlyniad = "Tri ar ddeg"
Achos 14: Canlyniad = "Pedwar ar ddeg"
Achos 15: Canlyniad = "Pymtheg"
Achos 16: Canlyniad = "Un ar bymtheg"
Achos 17: Canlyniad = "Daith ar bymtheg"
Achos 18: Canlyniad = "Deunaw"
Achos 19: Canlyniad = "Pedwar ar bymtheg"
Achos Arall
Diwedd Dewis
Arall ' Os yw gwerth rhwng 20-99...
Dewiswch Case Val(Chwith(TensText, 1))
Achos 2: Canlyniad = "Ugain"
Achos 3: Canlyniad = "Tri deg"
Achos 4: Canlyniad = "Deugain"
Achos 5: Canlyniad = "Fifty"
Achos 6: Canlyniad = "Chwe deg"
Achos 7: Canlyniad = "Saithdeg"
Achos 8: Canlyniad = "Wyth deg"
Achos 9: Canlyniad = "Naw deg"
Achos Arall
Diwedd Dewis
Canlyniad = Canlyniad & GetDigit _
(I'r dde(TensText, 1)) ' Adalw rhai lle.
Gorffennwch Os
GetTens = Canlyniad
Swyddogaeth End

' Trosi rhif o 1 i 9 yn destun.
Swyddogaeth GetDigit(Digit)
Dewiswch Achos Val(Digit)
Achos 1: GetDigit = "Un"
Achos 2: GetDigit = "Dau"
Achos 3: GetDigit = "Tri"
Achos 4: GetDigit = "Pedwar"
Achos 5: GetDigit = "Pump"
Achos 6: GetDigit = "Chwech"
Achos 7: GetDigit = "Saith"
Achos 8: GetDigit = "Wyth"
Achos 9: GetDigit = "Naw"
Achos Arall: GetDigit=""
Diwedd Dewis
Swyddogaeth End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi gymhwyso'r holl Excell Workbook. Sut i gymhwyso'r codio hwn i holl lyfr gwaith excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwpi Pedwar Mil ar Ddeg Wyth Cant , Saith deg Pump Dim ond y swm olaf ddylai gynnwys y gair acenghraifft
Rwpi Pedwar Mil ar Ddeg Wyth Cant Saith deg Pump yn Unig
Lleihawyd y sylw hwn gan y safonwr ar y wefan
methu darllen mwy na 10 crore.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Un Lac Chwe deg Naw Mil Wythdeg Un a Pedwar Deg Dau Paise - Heb ei drosi'n iawn.Hefyd heb drosi'r ffigwr uchod pan mae'n talgrynnu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
DIOLCH AM Y CÔD...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y codio. Ymgeisiais a'i Weithio. Ond dim ond ar gyfer y llyfr gwaith penodol hwnnw y mae'n berthnasol. Mae angen i mi gymhwyso'r holl Excell Workbook. Sut i gymhwyso'r codio hwn i holl lyfr gwaith excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, SivaG
Ydy, mae'r cod hwn yn Swyddogaeth Diffiniedig gan Ddefnyddiwr, dylech gymhwyso'r fformiwla i'r ffeiliau fesul un, os oes angen cod arnoch i fod yn berthnasol i lyfrau gwaith lluosog, bydd yn berthnasol i bob rhif, felly bydd yr holl rifau'n cael eu newid. Ac ni all y cod gefnogi dadwneud, mae rhai risgiau diogelwch. Ni argymhellir gwneud hyn. Diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir