Søg
Avatar billede tavlen Nybegynder
24. juni 2002 - 13:14 Der er 8 kommentarer og
1 løsning

decimalseperator

Hej
Indtastning af decimaltal i en teksboks i en Userform skal gemmes i et regneark.
Problemet er at hvis jeg bruger , som decimalseperator i teksboksen opfattes tallet som en tekst i regnearkscellen (venstrejusteres og medgår ikke i sumberegning).

Her en nedkogt udgave af koden.



Private Sub cmdGem_Click()
Worksheets("Afskrivninger").Activate
Range("B3") = Format(txt1.Value, "##,##00.00")
Unload Me
End Sub

MVH per
Avatar billede dk_akj Nybegynder
24. juni 2002 - 13:21 #1
Så skal du da vist en tur forbi regional settings i kontrolpanelet og have rettet kommaseperatoren.

//akj
Avatar billede tavlen Nybegynder
24. juni 2002 - 13:34 #2
Dansk WIN2000
Kontrolpanel -> International -> Generelt: Dansk \ Tal: "," decimaltegn

Der er heller ingen problemer hvis jeg arbejder direkte í en Excelcelle

//per
Avatar billede bak Forsker
24. juni 2002 - 13:55 #3
Formatkommandoen vil give tekst.


Range("B3").Value = CDbl(txt1.Value)
Range("B3").NumberFormat = "#,##0.00"
Unload Me
Avatar billede rvm Nybegynder
24. juni 2002 - 13:56 #4
Du skal dimensionere en variabel til at kun kunne indeholde et tal:

Her er et lille eksempel:

Sub test()
Dim svar As Integer
svar = Tekstboks.text
Cells(10, 10) = svar
End Sub

Så læg svaret fra din tekstboks ned i variablen og sæt variablen ind i regnearket
Avatar billede tavlen Nybegynder
24. juni 2002 - 14:01 #5
Det virker,
men hvorfor identificere en txtboks med ".Value" hvis den alligevel opfattes som tekst.
Avatar billede tavlen Nybegynder
24. juni 2002 - 14:09 #6
"det virker" var ment til "bak" --"rvm" sneg sig ind mens jeg skev

//per
Avatar billede bak Forsker
24. juni 2002 - 14:27 #7
Value i VBA giver ikke nødvendigvis en talværdi.
txt1.value giver ikke en værdi, men en streng.
Alle tekstbokse returerer strenge, ikke værdier.

bak
Avatar billede rvm Nybegynder
24. juni 2002 - 14:37 #8
Og mit eksemple tvinger strengen til at være et tal. Det kan også bruges til fejlhåndtering, hvis brugeren skriver noget ugyldigt - f.eks. bogstaver.
Avatar billede tavlen Nybegynder
24. juni 2002 - 14:56 #9
ok tak for hjælpen
//per
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
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Google sheets beregning udfra dato Af rickiegrayholm i Office & Kontorpakker 2 14/05/202623:24 15/05/202605:03
Back up af foto til ekstern harddisk Af hkprofil i Office & Kontorpakker 11 11/05/202610:48 12/05/202620:08
Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker 12 24/04/202617:35 26/04/202612:13
Outlook classic "hænger" når jeg vil åbne vedhæftede filer Af torzen i Office & Kontorpakker 0 16/04/202622:13 -
OneDrive kan ikke tilgås Af Perba i Office & Kontorpakker 19 13/04/202616:33 04/05/202611:48
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 11:00 IIS på Win10 64 bit Af bsn i Webservere
I går 09:01 Bitlocker Af Chevy396 i Windows
18/0501:57 Tjek alle checkbox i form Af bsn i ASP
17/0521:35 Lidt simpel (håber jeg) Photoshop hjælp Af fcs i Billedbehandling
16/0516:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
White papers
Flere white papers »