Anseo thíos gheobhaidh tú feidhm atá sainithe ag an úsáideoir réidh i VBA a aistríonn uimhir ar bith ó 0 go 9 isteach ina léiriú téacsúil, ie sa mhéid i bhfocail. Roimh úsáid, ní mór an fheidhm seo a chur le do leabhar. Dó seo:
- brúigh an aicearra méarchláir ALT + F11chun an Eagarthóir Visual Basic a oscailt
- cuir modúl nua folamh tríd an roghchlár Ionsáigh – Modúl
- cóipeáil agus greamaigh téacs na feidhme seo ansin:
Feidhm SUM(n Mar Dhúbailte) Mar Teaghrán Uimhreacha Dim1, Nums2, Nums3, Nums4 Mar Athraitheach Nums1 = Eagar ("", "aon", "dhá", "trí", "ceithre", "cúig", "sé", "seacht", "ocht", "naoi") Nums2 = Array("", "deich", "fiche", "tríocha", "daichead", "caoga", "seasca", "seachtó", _ "ochtó ", "ninety") Nums3 = Array("", "céad", "dhá chéad", "trí chéad", "ceithre chéad", "cúig chéad", "sé chéad", "seacht gcéad", _ " ocht gcéad", "naoi gcéad") Nums4 = Array (", "aon", "dhá", "trí", "ceithre", "cúig", "sé", "seacht", "ocht", "naoi ") Nums5 = Array (" deich " , "aon cheann déag", "déag", "trí déag", "ceithre cinn déag", _ "cúig déag", "sé déag", "seacht déag", "ocht mbliana déag", "naoi dhéag") Má n < = 0 Ansin SUMWRITE = "nialas" Deireadh Feidhm Scoir Má 'roinn an uimhir ina digití ag baint úsáide as an bhfeidhm chúntóra Aicme ed = Aicme(n, 1) dec = Aicme(n, 2) sot = Aicme(n, 3) tys = Aicme (n, 4) dectys = Aicme(n , 5) sottys = Aicme(n, 6) mil = Aicme(n, 7) decmil= Aicme(n, 8) 'seiceáil na milliúin Roghnaigh Cás decmil Cás 1 mil_txt = Uimhreacha5(mil ) & " na milliúin " GoTo www Cás 2 Go 9 decmil_txt = Nums2(decmil) Críoch Roghnaigh Roghnaigh Cás mil Cás 1 mil_txt = Nums1(mil) & " milliún " Cás 2, 3, 4 mil_txt = Uimhreacha 1(m) & "milliún" Cás 5 Go 20 mil_txt = Nums1(mil) & "milliúin" Críoch Roghnaigh www: sottys_txt = Nums3(sottys) ' seiceáil na mílte Roghnaigh Cás dectys Cás 1 tys_txt = Num5(tys) & "mílte" GoTo eeee Case 2 To 9 dectys_txt = Nums2(dectys) Críoch Roghnaigh Roghnaigh Cás tys Cás 0 Má tá dectys > 0 Ansin tys_txt = Num4(tys) & "miles" Cás 1 tys_txt = Nums4(tys) & "míle" Cás 2, 3, 4 tys_txt = Nums4(tys) & " na mílte " Cás 5 Go 9 tys_txt = Nums4(tys) & " mílte " Críoch Roghnaigh Má dectys = 0 Agus tys = 0 Agus sottys <> 0 Ansin sottys_txt = sottys_txt & "mílte" eee: sot_txt = Nums3(sot) ' seiceáil na ndeicheanna Roghnaigh Cás Nollaig Cás 1 ed_txt = Num5(ed) GoTo rrr Cás 2 Go 9 dec_txt = Num2(dec) Críoch Roghnaigh ed_txt = Uimhreacha1 (ed) rrr: 'foirm an tsraith dheireanach le SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Feidhm chúnta ' Feidhm Deiridh chun sliocht as líon na ndigit Aicme Feidhm Phríobháideach(M, I) Aicme = Int(Int(M - (10 ^ I)) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Feidhm Deiridh Sábháil an comhad (má tá Excel 2007 nó 2010 agat, caithfidh an cineál comhaid a bheith cumasaithe macra, ie formáid xlsm!) agus fill ar Excel. Anois is féidir leat an fheidhm chruthaithe a chur isteach in aon chill den bhileog oibre ar an ngnáthbhealach - tríd an draoi feidhme (cnaipe fx i mbarra foirmle, catagóir Úsáideoir Sainithe) nó go simplí trína chlóscríobh sa chill de láimh agus an chill a shonrú leis an méid mar argóint:
Más gá duit pinginí a chur leis an téacs a fuarthas, is féidir leat tógáil beagán níos casta a úsáid:
u3d SUIM I SCRÍOBH (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.”
u3d SUIM I SCRÍOBH (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”
Ansin, mar shampla, don uimhir 35,15, beidh toradh na feidhme cosúil le “tríocha cúig rúbal. 15 cáp.”
- Leagan níos cumhachtaí den fheidhm le Rúbal agus kopecks in / English ón mbreiseán PLEX
- Cad iad Macraí, nuair a chur isteach cód macra, conas iad a úsáid