---

Hej!

Jeg står for at skulle udskrive en del checks og ønsker at finde en let måde at konvertere checkbeløbet i tal til tekst, som også skal stå på checken.

Er der nogen, som kender en funktion, fx. i Excel, hvor man kan få et beløb oversat til tal?

Eksempel:

kr. 1.285,00

ønskes oversat til fx.

a) Ettusindetohuindredeottifem eller
b) ET TO OTTE FEM


Håber der er een, der kan hjælpe mig.

På forhånd tak.

Hilsen
Kenneth

---

Ja - du skal bare bruge et programmerbar numerisk tastatur.....

Excel selv vil ALDRIG kunne gøre det....

Og dog - macroer til SAMTLIGE tal der findes må kunne gøre det....

---

Jeg ville bruge en søg og erstat (CTRL+B)

Kolonnen med tal og "søg og erstat"

1 erstattes med EN_ (Hvor _ er et mellemrum)
2 erstattes med TO_

osv....

---

Måske en mulighed hvis ALLE tallene står enkeltvis i hver sin kolonne.....

---

Hej

Det er faktisk muligt i Excel, har selv gjort det for nogle år siden.

Jeg brugte IKKE macro.

Jeg har ikke kodningen mere, men det jeg gjorde var at have en ekstra fane, hvor jeg hentede tallet over i, og så der desekrerede jeg tallet fra en ende af.

Jeg brugte kun gændse Excel kommandoer, dvs.:

lopslag
midt
afrund
og den slags kommandoer.

Det tager lidt tid at pusle det sammen, men det kan altså med sikkerhed lade sig gøre.

Da jeg fratrådte ved den arbejdsgiver for over 5 år siden, så kan jeg desværre ikke skaffe kodningen til dig, og det vil tage mig mindst nogle timer at genskabe det - så jeg ønsker dig bare god fornøjelse.

Hilsen

Leo Lund

---

Hej

Den kodning jeg lavede dengang, det var med "hele baladen", dvs.:

enmilliontohundredetusinde o.s.v.

Hvis du er tilfreds med:

en * to * tre * fire 56/100

for 1234,56

så er det forholdsvis let at kode:

Vi forudsætter at tallet står i celle C4 i ark1

i en anden arkfane skrives følgende:

A1 =+Ark1!C4
A2 =+AFRUND((A1-500)/1000;0)
A3 =+AFRUND(((A1-A2*1000)-50)/100;0)
A4 =+AFRUND(((A1-A2*1000-A3*100)-5)/10;0)
A5 =+AFRUND(((A1-A2*1000-A3*100-A4*10)-0,5);0)
A5 =+AFRUND((+A1-AFRUND(A1-0,5;0))*100;0)


A9 =+HVIS(A2=0;"";+LOPSLAG(A2;A17:B26;2;FALSK)&" * ")
A10 =+HVIS(SUM(A2:A3)=0;"";LOPSLAG(A3;A17:B26;2;FALSK)&" * ")
A11 =+HVIS(SUM(A2:A4)=0;"";LOPSLAG(A4;A17:B26;2;FALSK)&" * ")
A12 =LOPSLAG(A5;A18:B26;2;FALSK)&" "
A13 =+A6&"/100"

A15 =+A9&A10&A11&A12&A13

A17 0   B17 nul
A18 1   B18 en
A19 2   B19 to
A20 3   B20 tre
A21 4   B21 fire
A22 5   B22 fem
A23 6   B23 seks
A24 7   B24 syv
A25 8   B25 otte
A26 9   B26 ni

Så kommer det ønskede resultat i celle A15, som således let kan hentes over på checken med brug af "+"

Ovenstående er kun forberedt til højest kr. 9999,99, men det kan let kodes til højere tal, med samme pricip.

Håber det er til at forstår

Hilsen

Leo Lund

---

Hej

Kan se at jeg to steder har skrevet A5, korrekt er:

A1 =+Ark1!C4
A2 =+AFRUND((A1-500)/1000;0)
A3 =+AFRUND(((A1-A2*1000)-50)/100;0)
A4 =+AFRUND(((A1-A2*1000-A3*100)-5)/10;0)
A5 =+AFRUND(((A1-A2*1000-A3*100-A4*10)-0,5);0)
A6 =+AFRUND((+A1-AFRUND(A1-0,5;0))*100;0)

Det jeg gør, det er at desekrere tallet til enkeltcifre, og så i en tabel slå tallet op som bogstaver.
I A6 er det ørebeløbet som beregnes.

I A12 beregnes det sidste cifre før ørebeløbet, det er det eneste som skrives selv om det er "nul", det skyldes at hvis man skulle skrive en check på mindre en en krone, så skal der være tekst før ørebeløbet, f.eks.
"nul 25/100"
for 25 øre.

I A17 til B26 er der en tabel i to søjler, som bruges til at konvertere tal til tekst.

Så tror jeg at det hele skulle være forklaret.

Hilsen

Leo Lund

---

1000 Tak for svaret Leo.

Det var lige noget i den stil jeg savnede. Nu har jeg fået nok hjælp til selv at kunne udbygge den til mit brug og også til større tal også.

Endnu engang tak - også fordi du svarede så hurtigt. Det var en stor hjælp.

Jeg håber, jeg må trække på din hjælp igen en anden gang.

Venlig hilsen
Kenneth

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.