Avatar billede erikbop Nybegynder
31. oktober 2004 - 21:54 Der er 7 kommentarer og
1 løsning

Konvertering af tekst til tal

Jeg er igang med Makro/VBA-programmering.
Her har jeg nogle felter med tal i, hvor der er en lille grøn trekant i øverste hjørne af hvert felt samt et gult udråbstegn.
Når jeg sætter markøren over udråbstegnet, står der:
"Tallet i denne celle er formateret som tekst eller har en foranstillet apostrof."

Jeg får muligheden for at konvertere til et tal, men jeg kan ikke indspille denne funktion som en makro. Hvordan kan jeg konvertere tallet, gerne for en hel kolonne af gangen?

PS. Der er ikke en foranstillet apostrof :-)
Avatar billede sjap Praktikant
31. oktober 2004 - 22:45 #1
Kan du ikke bare bruge funktionen Val:

Tal = Val("2457")
Avatar billede sjap Praktikant
31. oktober 2004 - 22:47 #2
Afhængig af hvilken type tal du skal konvertere skal du måske kigge på funktionerne:

CDbl
CInt
CLng
Avatar billede kabbak Professor
31. oktober 2004 - 23:07 #3
skriv 1 i en celle
kopier cellen

maker cellerne som der er tal som tekst i
vælg insæt speciel multiplicer
Avatar billede miko67 Nybegynder
31. oktober 2004 - 23:11 #4
- altså!!! der er så vidt jeg ved éen eneste artikel om excel på eksperten so far... (allerydmygest skrevet af undertegnede) og så er det jo om dette emne :)

og den var endda gratis at læse lol
Avatar billede sjap Praktikant
01. november 2004 - 00:23 #5
miko67 > Det har du jo ret i. Beklager at min hukommelse åbenbart er gået på weekend ;0)
Avatar billede erikbop Nybegynder
02. november 2004 - 15:00 #6
Tak allesammen. Jeg må indrømme, at jeg har brugt miko67's artikel (419), og at der vil falde point for et svar.

Det eneste, jeg har gjort anderledes i forhold til artiklen, er, at jeg har holdt det hele i samme ark og kun har haft brug for at foretage konverteringen for én kolonne. Det kom til at se sådan ud (måske sjap kan genkende sit forslag fra et tidligere spørgsmål):

Range("Z7").Select
    ActiveCell.FormulaR1C1 = "1"
    Selection.Copy
    Range("D7:D" & Range("A65536").End(xlUp).Row).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
Avatar billede sjap Praktikant
02. november 2004 - 15:39 #7
Jamen så synes jeg at miko67 skal lægge et svar, så han kan få lidt for sin indsats med artiklen :0)
Avatar billede miko67 Nybegynder
02. november 2004 - 18:53 #8
-man bli'r sgu helt rørt :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester