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

Conas uimhreacha a thiontú go focail i rupees Indiach in Excel?

An t-alt seo, tabharfaidh mé isteach conas liosta uimhreacha a thiontú go focail i rupees Indiach nó dollar Béarla in Excel.

Tiontaigh uimhreacha go focail i rupees Indiach le cód VBA

Tiontaigh uimhreacha go focail i ndollair Béarla le gné iontach


Tiontaigh uimhreacha go focail i rupees Indiach le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat na huimhreacha a thiontú go focail i rupees, déan mar seo:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

Cód VBA: Tiontaigh uimhreacha go focail i 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. Tar éis duit an cód a chur isteach, sábháil agus dún fuinneog an chóid, téigh ar ais chuig an mbileog oibre, agus iontráil an fhoirmle seo: = RupeeFormat (A2) isteach i gcill bhán, agus ansin tarraing an láimhseáil líonta síos chun an fhoirmle seo a chur i bhfeidhm ar chealla eile, tá na huimhreacha go léir litrithe i rupees, féach an scáileán:


Tiontaigh uimhreacha go focail i ndollair Béarla le gné iontach

Más mian leat na huimhreacha a thiontú go focail i ndollair Shasana, Kutools le haghaidh Excel'S Uimhreacha le Focail is féidir le gné cabhrú leat an post seo a réiteach go tapa agus go héasca.

Leid:Chun é seo a chur i bhfeidhm Líon go Focail gné, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Roghnaigh liosta na n-uimhreacha is mian leat a thiontú, agus ansin cliceáil Kutools > Ábhar > Uimhreacha le Focail, féach screenshots:

2. Sa an Uimhreacha le Focail Airgeadra dialóg, roghnaigh english rogha ón teangacha alt, agus ansin cliceáil Ok cnaipe, athraíodh na huimhreacha sa roghnú go focail airgeadra Béarla, féach an scáileán:

Cliceáil chun Íoslódáil Kutools le haghaidh Excel agus triail saor in aisce Anois!

 


  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin agus Sonraí a Choinneáil; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna Dúblacha agus Suim / Meán... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Foirmlí is Fearr agus Cuir isteach go tapa, Ranganna, Cairteacha agus Pictiúir; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Grúpáil Tábla Pivot de réir uimhir na seachtaine, lá na seachtaine agus níos mó ... Taispeáin Cealla Díghlasáilte, Faoi Ghlas de réir dathanna éagsúla; Aibhsigh Cealla a bhfuil Foirmle / Ainm orthu...
cluaisín kte 201905
  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab

 

Sórtáil tuairimí de réir
Comments (21)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tuairteanna Excel nuair nach bhfuil aon chomhla ag an gcill tagartha!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Úsáideoir,
Go raibh maith agat as do thuairim, tá an cód san alt seo nuashonraithe, bain triail eile as, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Sir,

Dea-lá,

Rinne mé tástáil thuas ar an bhfoirmle nach bhfuil sí ag obair i fleiscín lúide luachanna mar -100 -10,000 nó (100) (10,000)

A dhuine uasail, tá mé ag baint úsáide as cód thíos le 1 bliain anuas agus inniu fuair mé amach an earráid chéanna.

Nuair a scríobhaim lúide -10,000 nó (10,000) taispeánann sé "Ach Céad Deich Míle"
Nuair a scríobhaim Positive 10,000 oibríonn sé go hiontach "Only Ten Thousand"

Seo thíos sampla:

(10,000.99) Céad Deich Míle & Riyals 99/100
10,000.99 Amháin Deich Míle & 99/100 Riyals
(10,000,000.99) Céad Deich Milliún & 99/100 Riyals
10,000,000.99 Amháin Deich Milliún & 99/100 Riyals
(10,000,000,000.99) Céad Deich mBilliún & 99/100 Riyals
10,000,000,000.99 Amháin Deich mBilliún & 99/100 Riyals
(10,000,000,000,000.90) Céad Deich Trilliún & 90/100 Riyals
10,000,000,000,000.90 Amháin Deich Trilliún & 90/100 Riyals

Foirmle = litriú

MO CHÓD VBA:

'Príomhfheidhm
Litriú Feidhme (M'Uimhir ByVal)
Dim Riyals, Halalas, Temp
Áit Deachúil Dim, Comhaireamh
ReDim Place(9) Mar Theaghrán
Áit(2) = " Míle "
Áit(3) = " Milliún "
Áit(4) = " Billiúin "
Áit(5) = " Trilliún"
' Léiriú teaghrán ar an méid.
MyUimhir = Baile Átha Troim(Str(M'Uimhir))
' Suíomh na deachúil 0 mura bhfuil ann.
DecimalPlace = InStr(M'Uimhir, ".")
' Tiontaigh Halalas agus socraigh MyUimhir go méid Riyal.
Más Ionad Deachúil > 0 Ansin
Halalas = GetTens(Ar chlé(Lár(M'Uimhir, Áit Deachúil + 1)) & _
"00", 2))
MyUimhir = Baile Átha Troim(Ar Chlé(M'Uimhir, Áit Dheachúil - 1))
Deireadh Má
Líon = 1
Déan Cé go bhfuil M'Uimhir <>""
Temp = GetHundreds(Ar dheis(M'Uimhir, 3))
If Temp <> "" Ansin Riyals = Temp & Place(Count) & Riyals
Má Len(M'Uimhir) > 3 Ansin
M'Uimhir = Ar Chlé(M'Uimhir, Len(M'Uimhir) - 3)
Eile
M'Uimhir=""
Deireadh Má
Comhair = Comhair + 1
Lúb
Roghnaigh Cás Riyals
Cás"""
Riyals = "Níl Riyal"
Cás "One"
Riyals = "Ach Riyal Amháin"
Cás Eile
Riyals = "Amháin" & Riyals
Riyals = Riyals &""
Roghnaigh Roghnaigh
Roghnaigh Cás Halalas
Cás"""
Halalas = "& Riyals 00/00"
Cás "One"
Halalas = "& Riyals 01/100"
Cás "Dhá"
Halalas = "& Riyals 02/100"
Cás "Trí"
Halalas = "& Riyals 03/100"
Cás "Four"
Halalas = "& Riyals 04/100"
Cás "Cúig"
Halalas = "& Riyals 05/100"
Cás "Sé"
Halalas = "& Riyals 06/100"
Cás "Seacht"
Halalas = "& Riyals 07/100"
Cás "Ocht"
Halalas = "& Riyals 08/100"
Cás "Naoi"
Halalas = "& Riyals 09/100"
Cás "Deich"
Halalas = "& Riyals 10/100"
Cás "Eeleven"
Halalas = "& Riyals 11/100"
Cás "Twelve"
Halalas = "& Riyals 12/100"
Cás "Thirteen"
Halalas = "& Riyals 13/100"
Cás "Fourteen"
Halalas = "& Riyals 14/100"
Cás "Fifteen"
Halalas = "& Riyals 15/100"
Cás "Sé Déag"
Halalas = "& Riyals 16/100"
Cás "Seventeen"
Halalas = "& Riyals 17/100"
Cás "Ocht Déag"
Halalas = "& Riyals 18/100"
Cás "Nineteen"
Halalas = "& Riyals 19/100"
Cás "Fiche"
Halalas = "& Riyals 20/100"
Cás "Fiche a hAon"
Halalas = "& Riyals 21/100"
Cás "Fiche a Dó"
Halalas = "& Riyals 22/100"
Cás "Fiche a Trí"
Halalas = "& Riyals 23/100"
Cás "Fiche a Ceathair"
Halalas = "& Riyals 24/100"
Cás "Fiche Cúig"
Halalas = "& Riyals 25/100"
Cás "Fiche Sé"
Halalas = "& Riyals 26/100"
Cás "Fiche Seacht"
Halalas = "& Riyals 27/100"
Cás "Fiche Ocht"
Halalas = "& Riyals 28/100"
Cás "Fiche Naoi"
Halalas = "& Riyals 29/100"
Cás "Tríocha"
Halalas = "& Riyals 30/100"
Cás "Tríocha a hAon"
Halalas = "& Riyals 31/100"
Cás "Tríocha Dó"
Halalas = "& Riyals 32/100"
Cás "Tríocha Trí"
Halalas = "& Riyals 33/100"
Cás "Tríocha a Ceathair"
Halalas = "& Riyals 34/100"
Cás "Tríocha Cúig"
Halalas = "& Riyals 35/100"
Cás "Tríocha Sé"
Halalas = "& Riyals 36/100"
Cás "Tríocha Seacht"
Halalas = "& Riyals 37/100"
Cás "Tríocha a hOcht"
Halalas = "& Riyals 38/100"
Cás "Tríocha Naoi"
Halalas = "& Riyals 39/100"
Cás "Daichead"
Halalas = "& Riyals 40/100"
Cás "Daichead a hAon"
Halalas = "& Riyals 41/100"
Cás "Daichead a Dó"
Halalas = "& Riyals 42/100"
Cás "Daichead a Trí"
Halalas = "& Riyals 43/100"
Cás "Daichead a Ceathair"
Halalas = "& Riyals 44/100"
Cás "Daichead a Cúig"
Halalas = "& Riyals 45/100"
Cás "Daichead a Sé"
Halalas = "& Riyals 46/100"
Cás "Daichead a Seacht"
Halalas = "& Riyals 47/100"
Cás "Daichead a hOcht"
Halalas = "& Riyals 48/100"
Cás "Daichead Naoi"
Halalas = "& Riyals 49/100"
Cás " Caoga "
Halalas = "& Riyals 50/100"
Cás "Caoga a hAon"
Halalas = "& Riyals 51/100"
Cás "Caoga a Dó"
Halalas = "& Riyals 52/100"
Cás "Caoga a Trí"
Halalas = "& Riyals 53/100"
Cás "Caoga Ceathair"
Halalas = "& Riyals 54/100"
Cás "Caoga Cúig"
Halalas = "& Riyals 55/100"
Cás "Caoga Sé"
Halalas = "& Riyals 56/100"
Cás "Caoga Seacht"
Halalas = "& Riyals 57/100"
Cás "Caoga Ocht"
Halalas = "& Riyals 58/100"
Cás "Caoga Naoi"
Halalas = "& Riyals 59/100"
Cás " Seasca "
Halalas = "& Riyals 60/100"
Cás "Sixty One"
Halalas = "& Riyals 61/100"
Cás "seasca a dó"
Halalas = "& Riyals 62/100"
Cás "Sixty Three"
Halalas = "& Riyals 63/100"
Cás "Sixty Four"
Halalas = "& Riyals 64/100"
Cás "Sixty Five"
Halalas = "& Riyals 65/100"
Cás "Sixty Six"
Halalas = "& Riyals 66/100"
Cás "Sixty Seven"
Halalas = "& Riyals 67/100"
Cás "Sixty eight"
Halalas = "& Riyals 68/100"
Cás "Sixty Nine"
Halalas = "& Riyals 69/100"
Cás "Seachtó"
Halalas = "& Riyals 70/100"
Cás "Seachtó a hAon"
Halalas = "& Riyals 71/100"
Cás "Seachtó a Dó"
Halalas = "& Riyals 72/100"
Cás "Seachtó a Trí"
Halalas = "& Riyals 73/100"
Cás "Seachtó a Ceathair"
Halalas = "& Riyals 74/100"
Cás "Seachtó a Cúig"
Halalas = "& Riyals 75/100"
Cás "Seachtó a Sé"
Halalas = "& Riyals 76/100"
Cás "Seachtó a Seacht"
Halalas = "& Riyals 77/100"
Cás "Seachtó hOcht"
Halalas = "& Riyals 78/100"
Cás "Seachtó Naoi"
Halalas = "& Riyals 79/100"
Cás "Ochtó"
Halalas = "& Riyals 80/100"
Cás "Ochtó a hAon"
Halalas = "& Riyals 81/100"
Cás "Ochtó a Dó"
Halalas = "& Riyals 82/100"
Cás "Ochtó a Trí"
Halalas = "& Riyals 83/100"
Cás "Ochtó a Ceathair"
Halalas = "& Riyals 84/100"
Cás "Ochtó a Cúig"
Halalas = "& Riyals 85/100"
Cás "Ochtó Sé"
Halalas = "& Riyals 86/100"
Cás "Ochtó a Seacht"
Halalas = "& Riyals 87/100"
Cás "Ocht Ocht"
Halalas = "& Riyals 88/100"
Cás "Ochtó Naoi"
Halalas = "& Riyals 89/100"
Cás " Nócha "
Halalas = "& Riyals 90/100"
Cás "Ninety One"
Halalas = "& Riyals 91/100"
Cás "Ninety Two"
Halalas = "& Riyals 92/100"
Cás "Ninety Three"
Halalas = "& Riyals 93/100"
Cás "Ninety Four"
Halalas = "& Riyals 94/100"
Cás "Ninety Five"
Halalas = "& Riyals 95/100"
Cás "Ninety Six"
Halalas = "& Riyals 96/100"
Cás "Ninety Seven"
Halalas = "& Riyals 97/100"
Cás "Ninety hOcht"
Halalas = "& Riyals 98/100"
Cás "Ninety Nine"
Halalas = "& Riyals 99/100"


Cás Eile
Halalas = " & " & Halalas & " Halalas"
Roghnaigh Roghnaigh
SpellBilling = Riyals & Halalas
Feidhm Deireadh


' Tiontaíonn sé uimhir ó 100-999 go téacs
Feidhm GetHundreds(MyNumber ByVal)
Dim Toradh Mar Teaghrán
Má tá Val(MyNumber) = 0 Scoir Feidhm ansin
MyNumber = Ar Dheis("000" & M'Uimhir, 3)
' Tiontaigh na céadta áit.
Más Lár (M'Uimhir, 1, 1) <> "0" Ansin
Toradh = GetDigit(Mid(M'Uimhir, 1, 1)) & " Céad"
Deireadh Má
' Tiontaigh na ndeicheanna agus na cinn áit.
Más Lár (M'Uimhir, 2, 1) <> "0" Ansin
Toradh = Toradh & GetTens(Mid(M'Uimhir, 2))
Eile
Toradh = Toradh & GetDigit(Lár(M'Uimhir, 3))
Deireadh Má
GetHundreds = Toradh
Feidhm Deireadh

' Tiontaíonn sé uimhir ó 10 go 99 go téacs.
Feidhm GetTens(TensText)
Dim Toradh Mar Teaghrán
Toradh = "" ' Cuir luach na feidhme sealadach ar ceal.
Má tá Val(Clé(TensText, 1)) = 1 Ansin ' Má tá luach idir 10-19...
Roghnaigh Case Val(TensText)
Cás 10: Toradh = "Deich"
Cás 11: Toradh = "Aon cheann déag"
Cás 12: Toradh = "Dhá cheann déag"
Cás 13: Toradh = "Trí cinn déag"
Cás 14: Toradh = "Fourteen"
Cás 15: Toradh = "Cúig Déag"
Cás 16: Toradh = "Sé Déag"
Cás 17: Toradh = "Seacht Déag"
Cás 18: Toradh = "Ocht Déag"
Cás 19: Toradh = "Naoi Déag"
Cás Eile
Roghnaigh Roghnaigh
Eile ' Má tá luach idir 20-99...
Roghnaigh Case Val(Clé(TensText, 1))
Cás 2: Toradh = "Fiche"
Cás 3: Toradh = "Tríocha"
Cás 4: Toradh = "Daichead"
Cás 5: Toradh = "Caoga"
Cás 6: Toradh = " Seasca "
Cás 7: Toradh = "Seachtó"
Cás 8: Toradh = "Ochtó"
Cás 9: Toradh = "Nócha"
Cás Eile
Roghnaigh Roghnaigh
Toradh = Toradh & GetDigit _
(Ar dheis(TensText, 1)) ' Aisghabh an áit.
Deireadh Má
GetTens = Toradh
Feidhm Deireadh

' Tiontaíonn sé uimhir ó 1 go 9 go téacs.
Feidhm GetDigit(Digit)
Roghnaigh Case Val(Digit)
Cás 1: GetDigit = "One"
Cás 2: GetDigit = "Dhá"
Cás 3: GetDigit = "Trí"
Cás 4: GetDigit = "Ceithre"
Cás 5: GetDigit = "Cúig"
Cás 6: GetDigit = "Sé"
Cás 7: GetDigit = "Seacht"
Cás 8: GetDigit = "Ocht"
Cás 9: GetDigit = "Naoi"
Cás Eile: GetDigit=""
Roghnaigh Roghnaigh
Feidhm Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl aon rud le rá! Extremlysuper
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Sir,

Dea-lá,
Thástáil mé do chód VBA ach ar an drochuair níl sé ag obair go maith ar luachanna diúltacha / lúide cosúil le -100 -10,000 / (100) (10,000).

A dhuine uasail, tá mé ag baint úsáide as cód thíos le 1 bliana anuas agus inniu fuair mé amach an earráid chéanna atá le fáil i do chód VBA freisin.

Nuair a scríobhaim lúide -10,000 taispeánann sé ar "Only Hundred Ten Thousand"
Nuair a scríobhann mé dearfach 10,000 taispeánann sé ar "Only Ten Thousand" oibreacha go breá

Seo thíos sampla:

(10,000.99) Céad Deich Míle & Riyals 99/100
10,000.99 Amháin Deich Míle & 99/100 Riyals
(10,000,000.99) Céad Deich Milliún & 99/100 Riyals
10,000,000.99 Amháin Deich Milliún & 99/100 Riyals
(10,000,000,000.99) Céad Deich mBilliún & 99/100 Riyals
10,000,000,000.99 Amháin Deich mBilliún & 99/100 Riyals
(10,000,000,000,000.90) Céad Deich Trilliún & 90/100 Riyals
10,000,000,000,000.90 Amháin Deich Trilliún & 90/100 Riyals

Foirmle = litriú

MO CHÓD VBA:

'Príomhfheidhm
Litriú Feidhme (M'Uimhir ByVal)
Dim Riyals, Halalas, Temp
Áit Deachúil Dim, Comhaireamh
ReDim Place(9) Mar Theaghrán
Áit(2) = " Míle "
Áit(3) = " Milliún "
Áit(4) = " Billiúin "
Áit(5) = " Trilliún"
' Léiriú teaghrán ar an méid.
MyUimhir = Baile Átha Troim(Str(M'Uimhir))
' Suíomh na deachúil 0 mura bhfuil ann.
DecimalPlace = InStr(M'Uimhir, ".")
' Tiontaigh Halalas agus socraigh MyUimhir go méid Riyal.
Más Ionad Deachúil > 0 Ansin
Halalas = GetTens(Ar chlé(Lár(M'Uimhir, Áit Deachúil + 1)) & _
"00", 2))
MyUimhir = Baile Átha Troim(Ar Chlé(M'Uimhir, Áit Dheachúil - 1))
Deireadh Má
Líon = 1
Déan Cé go bhfuil M'Uimhir <>""
Temp = GetHundreds(Ar dheis(M'Uimhir, 3))
If Temp <> "" Ansin Riyals = Temp & Place(Count) & Riyals
Má Len(M'Uimhir) > 3 Ansin
M'Uimhir = Ar Chlé(M'Uimhir, Len(M'Uimhir) - 3)
Eile
M'Uimhir=""
Deireadh Má
Comhair = Comhair + 1
Lúb
Roghnaigh Cás Riyals
Cás"""
Riyals = "Níl Riyal"
Cás "One"
Riyals = "Ach Riyal Amháin"
Cás Eile
Riyals = "Amháin" & Riyals
Riyals = Riyals &""
Roghnaigh Roghnaigh
Roghnaigh Cás Halalas
Cás"""
Halalas = "& Riyals 00/00"
Cás "One"
Halalas = "& Riyals 01/100"
Cás "Dhá"
Halalas = "& Riyals 02/100"
Cás "Trí"
Halalas = "& Riyals 03/100"
Cás "Four"
Halalas = "& Riyals 04/100"
Cás "Cúig"
Halalas = "& Riyals 05/100"
Cás "Sé"
Halalas = "& Riyals 06/100"
Cás "Seacht"
Halalas = "& Riyals 07/100"
Cás "Ocht"
Halalas = "& Riyals 08/100"
Cás "Naoi"
Halalas = "& Riyals 09/100"
Cás "Deich"
Halalas = "& Riyals 10/100"
Cás "Eeleven"
Halalas = "& Riyals 11/100"
Cás "Twelve"
Halalas = "& Riyals 12/100"
Cás "Thirteen"
Halalas = "& Riyals 13/100"
Cás "Fourteen"
Halalas = "& Riyals 14/100"
Cás "Fifteen"
Halalas = "& Riyals 15/100"
Cás "Sé Déag"
Halalas = "& Riyals 16/100"
Cás "Seventeen"
Halalas = "& Riyals 17/100"
Cás "Ocht Déag"
Halalas = "& Riyals 18/100"
Cás "Nineteen"
Halalas = "& Riyals 19/100"
Cás "Fiche"
Halalas = "& Riyals 20/100"
Cás "Fiche a hAon"
Halalas = "& Riyals 21/100"
Cás "Fiche a Dó"
Halalas = "& Riyals 22/100"
Cás "Fiche a Trí"
Halalas = "& Riyals 23/100"
Cás "Fiche a Ceathair"
Halalas = "& Riyals 24/100"
Cás "Fiche Cúig"
Halalas = "& Riyals 25/100"
Cás "Fiche Sé"
Halalas = "& Riyals 26/100"
Cás "Fiche Seacht"
Halalas = "& Riyals 27/100"
Cás "Fiche Ocht"
Halalas = "& Riyals 28/100"
Cás "Fiche Naoi"
Halalas = "& Riyals 29/100"
Cás "Tríocha"
Halalas = "& Riyals 30/100"
Cás "Tríocha a hAon"
Halalas = "& Riyals 31/100"
Cás "Tríocha Dó"
Halalas = "& Riyals 32/100"
Cás "Tríocha Trí"
Halalas = "& Riyals 33/100"
Cás "Tríocha a Ceathair"
Halalas = "& Riyals 34/100"
Cás "Tríocha Cúig"
Halalas = "& Riyals 35/100"
Cás "Tríocha Sé"
Halalas = "& Riyals 36/100"
Cás "Tríocha Seacht"
Halalas = "& Riyals 37/100"
Cás "Tríocha a hOcht"
Halalas = "& Riyals 38/100"
Cás "Tríocha Naoi"
Halalas = "& Riyals 39/100"
Cás "Daichead"
Halalas = "& Riyals 40/100"
Cás "Daichead a hAon"
Halalas = "& Riyals 41/100"
Cás "Daichead a Dó"
Halalas = "& Riyals 42/100"
Cás "Daichead a Trí"
Halalas = "& Riyals 43/100"
Cás "Daichead a Ceathair"
Halalas = "& Riyals 44/100"
Cás "Daichead a Cúig"
Halalas = "& Riyals 45/100"
Cás "Daichead a Sé"
Halalas = "& Riyals 46/100"
Cás "Daichead a Seacht"
Halalas = "& Riyals 47/100"
Cás "Daichead a hOcht"
Halalas = "& Riyals 48/100"
Cás "Daichead Naoi"
Halalas = "& Riyals 49/100"
Cás " Caoga "
Halalas = "& Riyals 50/100"
Cás "Caoga a hAon"
Halalas = "& Riyals 51/100"
Cás "Caoga a Dó"
Halalas = "& Riyals 52/100"
Cás "Caoga a Trí"
Halalas = "& Riyals 53/100"
Cás "Caoga Ceathair"
Halalas = "& Riyals 54/100"
Cás "Caoga Cúig"
Halalas = "& Riyals 55/100"
Cás "Caoga Sé"
Halalas = "& Riyals 56/100"
Cás "Caoga Seacht"
Halalas = "& Riyals 57/100"
Cás "Caoga Ocht"
Halalas = "& Riyals 58/100"
Cás "Caoga Naoi"
Halalas = "& Riyals 59/100"
Cás " Seasca "
Halalas = "& Riyals 60/100"
Cás "Sixty One"
Halalas = "& Riyals 61/100"
Cás "seasca a dó"
Halalas = "& Riyals 62/100"
Cás "Sixty Three"
Halalas = "& Riyals 63/100"
Cás "Sixty Four"
Halalas = "& Riyals 64/100"
Cás "Sixty Five"
Halalas = "& Riyals 65/100"
Cás "Sixty Six"
Halalas = "& Riyals 66/100"
Cás "Sixty Seven"
Halalas = "& Riyals 67/100"
Cás "Sixty eight"
Halalas = "& Riyals 68/100"
Cás "Sixty Nine"
Halalas = "& Riyals 69/100"
Cás "Seachtó"
Halalas = "& Riyals 70/100"
Cás "Seachtó a hAon"
Halalas = "& Riyals 71/100"
Cás "Seachtó a Dó"
Halalas = "& Riyals 72/100"
Cás "Seachtó a Trí"
Halalas = "& Riyals 73/100"
Cás "Seachtó a Ceathair"
Halalas = "& Riyals 74/100"
Cás "Seachtó a Cúig"
Halalas = "& Riyals 75/100"
Cás "Seachtó a Sé"
Halalas = "& Riyals 76/100"
Cás "Seachtó a Seacht"
Halalas = "& Riyals 77/100"
Cás "Seachtó hOcht"
Halalas = "& Riyals 78/100"
Cás "Seachtó Naoi"
Halalas = "& Riyals 79/100"
Cás "Ochtó"
Halalas = "& Riyals 80/100"
Cás "Ochtó a hAon"
Halalas = "& Riyals 81/100"
Cás "Ochtó a Dó"
Halalas = "& Riyals 82/100"
Cás "Ochtó a Trí"
Halalas = "& Riyals 83/100"
Cás "Ochtó a Ceathair"
Halalas = "& Riyals 84/100"
Cás "Ochtó a Cúig"
Halalas = "& Riyals 85/100"
Cás "Ochtó Sé"
Halalas = "& Riyals 86/100"
Cás "Ochtó a Seacht"
Halalas = "& Riyals 87/100"
Cás "Ocht Ocht"
Halalas = "& Riyals 88/100"
Cás "Ochtó Naoi"
Halalas = "& Riyals 89/100"
Cás " Nócha "
Halalas = "& Riyals 90/100"
Cás "Ninety One"
Halalas = "& Riyals 91/100"
Cás "Ninety Two"
Halalas = "& Riyals 92/100"
Cás "Ninety Three"
Halalas = "& Riyals 93/100"
Cás "Ninety Four"
Halalas = "& Riyals 94/100"
Cás "Ninety Five"
Halalas = "& Riyals 95/100"
Cás "Ninety Six"
Halalas = "& Riyals 96/100"
Cás "Ninety Seven"
Halalas = "& Riyals 97/100"
Cás "Ninety hOcht"
Halalas = "& Riyals 98/100"
Cás "Ninety Nine"
Halalas = "& Riyals 99/100"


Cás Eile
Halalas = " & " & Halalas & " Halalas"
Roghnaigh Roghnaigh
SpellBilling = Riyals & Halalas
Feidhm Deireadh


' Tiontaíonn sé uimhir ó 100-999 go téacs
Feidhm GetHundreds(MyNumber ByVal)
Dim Toradh Mar Teaghrán
Má tá Val(MyNumber) = 0 Scoir Feidhm ansin
MyNumber = Ar Dheis("000" & M'Uimhir, 3)
' Tiontaigh na céadta áit.
Más Lár (M'Uimhir, 1, 1) <> "0" Ansin
Toradh = GetDigit(Mid(M'Uimhir, 1, 1)) & " Céad"
Deireadh Má
' Tiontaigh na ndeicheanna agus na cinn áit.
Más Lár (M'Uimhir, 2, 1) <> "0" Ansin
Toradh = Toradh & GetTens(Mid(M'Uimhir, 2))
Eile
Toradh = Toradh & GetDigit(Lár(M'Uimhir, 3))
Deireadh Má
GetHundreds = Toradh
Feidhm Deireadh

' Tiontaíonn sé uimhir ó 10 go 99 go téacs.
Feidhm GetTens(TensText)
Dim Toradh Mar Teaghrán
Toradh = "" ' Cuir luach na feidhme sealadach ar ceal.
Má tá Val(Clé(TensText, 1)) = 1 Ansin ' Má tá luach idir 10-19...
Roghnaigh Case Val(TensText)
Cás 10: Toradh = "Deich"
Cás 11: Toradh = "Aon cheann déag"
Cás 12: Toradh = "Dhá cheann déag"
Cás 13: Toradh = "Trí cinn déag"
Cás 14: Toradh = "Fourteen"
Cás 15: Toradh = "Cúig Déag"
Cás 16: Toradh = "Sé Déag"
Cás 17: Toradh = "Seacht Déag"
Cás 18: Toradh = "Ocht Déag"
Cás 19: Toradh = "Naoi Déag"
Cás Eile
Roghnaigh Roghnaigh
Eile ' Má tá luach idir 20-99...
Roghnaigh Case Val(Clé(TensText, 1))
Cás 2: Toradh = "Fiche"
Cás 3: Toradh = "Tríocha"
Cás 4: Toradh = "Daichead"
Cás 5: Toradh = "Caoga"
Cás 6: Toradh = " Seasca "
Cás 7: Toradh = "Seachtó"
Cás 8: Toradh = "Ochtó"
Cás 9: Toradh = "Nócha"
Cás Eile
Roghnaigh Roghnaigh
Toradh = Toradh & GetDigit _
(Ar dheis(TensText, 1)) ' Aisghabh an áit.
Deireadh Má
GetTens = Toradh
Feidhm Deireadh

' Tiontaíonn sé uimhir ó 1 go 9 go téacs.
Feidhm GetDigit(Digit)
Roghnaigh Case Val(Digit)
Cás 1: GetDigit = "One"
Cás 2: GetDigit = "Dhá"
Cás 3: GetDigit = "Trí"
Cás 4: GetDigit = "Ceithre"
Cás 5: GetDigit = "Cúig"
Cás 6: GetDigit = "Sé"
Cás 7: GetDigit = "Seacht"
Cás 8: GetDigit = "Ocht"
Cás 9: GetDigit = "Naoi"
Cás Eile: GetDigit=""
Roghnaigh Roghnaigh
Feidhm Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní mór dom gach Excell Workbook a chur i bhfeidhm. Conas an códú seo a chur i bhfeidhm ar gach leabhar oibre excel.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rúipí a Ceathair Míle Déag Ochtú Céad , Seachtó a Cúig Níor cheart go mbeadh an focal agus an sampla ach ag an méid deiridh
Rúipís a Ceathair Míle Déag Ocht gCéad Seachtó Cúig Amháin
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní féidir níos mó ná 10 crore a léamh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Aon Lac Seasca Naoi Míle Ochtó a hAon agus Daichead a Dó Paise - Gan tiontú i gceart.Níor tiontaigh an figiúr thuas freisin nuair a shlánú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an gcód...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an gcódú. Chuir mé iarratas & a chuid Oibre. Ach ní bhaineann sé ach leis an leabhar saothair áirithe sin amháin. Is gá dom an Leabhar Oibre Excel ar fad a chur i bhfeidhm. Conas an códú seo a chur i bhfeidhm ar gach leabhar oibre excel.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, SivaG
Sea, is Feidhm Sainmhínithe Úsáideoir é an cód seo, ba cheart duit an fhoirmle a chur i bhfeidhm ar na comhaid ceann ar cheann, má tá cód ag teastáil uait le cur i bhfeidhm ar illeabhair oibre, cuirfear i bhfeidhm é ar gach uimhir, mar sin athrófar na huimhreacha go léir. Agus ní féidir leis an gcód tacú le Cealaigh, tá roinnt rioscaí slándála ann. Ní mholtar é seo a dhéanamh. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas an focal "Rúipí" a bhaint? De ghnáth seiceáil go bhfuil an focal "Rúipí" ag duilleoga cheana féin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Sakariya
Chun d’fhadhb a réiteach, cuir an cód thíos i bhfeidhm le do thoil:
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



Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat... 🙂
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ach baineann sé seo le excel amháin. Má chuirim an fhoirmle seo isteach i excel eile níl sé seo ag obair
cad é réiteach dó seo
le do thoil ar ais
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Má tá roinnt leabhar oibre agat, ní mór duit an cód a chóipeáil chuig roinnt leabhair oibre.
Mura ndéanann tú é a chóipeáil ach go leabhar oibre amháin, ní oibreoidh sé i leabhair oibre eile. 😀
Déan iarracht, le do thoil, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat tá sé an-Chabhrach
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a dhuine uasail, An féidir é seo a shocrú de réir réamhshocraithe do gach bileog oibre excel nó nach bhfuil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Mukesh

Sea, chomh fada agus a chóipeáiltear an cód isteach sa mhodúl fuinneog vba, is féidir an fhoirmle a chur i bhfeidhm ar an leabhar oibre iomlán.
Ach nuair a dhúnann tú an leabhar oibre, ba cheart duit é a shábháil mar Leabhar Oibre Macra-Chumasaithe Excel formáid comhaid.
Bain triail as, le do thoil, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Baineadh triail as go minic nach bhfuil sé ag obair. Cabhrú le do thoil
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL