Conas airgeadra a thiontú go téacs focail in Excel?
Maidir le cainteoirí neamhdhúchasacha a úsáideann Béarla mar an dara teanga, bíonn sé deacair uaireanta an uimhir airgeadra a athrú go focail Bhéarla nuair a bhíonn an uimhir rófhada. San Airteagal seo, foghlaimeoidh tú conas airgeadra a thiontú go téacs focail in Excel go héasca.
Tiontaigh airgeadra go focail le cód VBA
Tiontaigh airgeadra go focail le Kutools le haghaidh Excel
Tiontaigh airgeadra go focail le cód VBA
Leis an gcód VBA thíos, is féidir leat uimhir airgeadra a thiontú go focail Bhéarla.
1. Brúigh Eile + F11 a oscailt Microsoft Visual Basic d’Fheidhmchláir dialóg.
2. Sa Microsoft Visual Basic d’Fheidhmchláir dialóg, cliceáil Ionsáigh > Modúl. Ansin cóipeáil agus greamaigh an cód thíos i bhfuinneog an chóid.
Cód VBA: Tiontaigh uimhir airgeadra go Focail Bhéarla
Function NumberstoWords(ByVal pNumber)
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
NumberstoWords = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
3. Brúigh Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir dialóg.
4. Roghnaigh cill bhán (B1) atá cóngarach don chill is mian leat a thiontú go focail, iontráil an fhoirmle = Uimhreacha Focail (A1), agus ansin brúigh an Iontráil eochair.
nótaí: Is é A1 an chill ina bhfuil an uimhir airgeadra. Is féidir leat é a athrú de réir mar is gá duit.
5. Roghnaigh cill B1, tarraing an Láimhseáil Líon isteach chun gach focal Béarla de na huimhreacha airgeadra a fháil.
Tiontaigh airgeadra go focail le Kutools le haghaidh Excel
Is cosúil go bhfuil an cód VBA fada seo casta. Tabharfaidh mé fóntais áisiúil duit anseo chun an fhadhb seo a réiteach go héasca. Leis an Uimhreacha le Focail fóntais de Kutools le haghaidh Excel, ní fadhb níos mó é airgeadra a thiontú go focail. Déan mar a leanas le do thoil.
Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.
1. Roghnaigh na cealla leis na huimhreacha airgeadra is mian leat a thiontú.
2. cliceáil Kutools > Ábhar > Uimhreacha le Focail. Féach an pictiúr:
3. Sa Uimhreacha le Focail Airgeadra dialóg, roghnaigh english rogha, agus cliceáil ar an OK or Cuir iarratas isteach cnaipe.
Anois athraítear na huimhreacha airgeadra roghnaithe go focail Bhéarla láithreach.
Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- 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á!