Avatar billede tvc Seniormester
02. februar 2006 - 22:36 Der er 9 kommentarer og
2 løsninger

Formatering af indhold i textbox

Jeg sidder med en userform, hvor jeg når jeg klikker på en knap Gem skriver de i textbox'en indtastede tal ned i regnearket.

Samtidig med at jeg skriver ned i regnearket ved Gem vil jeg gerne have at formatet af de tal der står i textbox'en bliver #.##0,00 - er der en der hved hvordan dette lader sig gøre.

Har prøvet

textbox1.value = Format(textbox1.value,"#,##0.00")

men det virker ikke. Findes der evt. en indstilling for textboxformat i egenskaber for textbox?

Med venlig hilsen

TVC
Avatar billede mvhansen Nybegynder
02. februar 2006 - 22:41 #1
Hej tvc

Private Sub CommandButton5_Click()
'clear textboxe for data'
  txtPart.Value = ""
  txtNavn.Value = ""
  txtEfternavn.Value = ""
  txtAdresse.Value = ""
  txtPostnr.Value = ""
  txtBy.Value = ""
  txtCprnr.Value = ""
  txtMailAdresse.Value = ""
  TextBox1.Value = ""
End Sub


mvh

mvhansen
Avatar billede mvhansen Nybegynder
02. februar 2006 - 22:43 #2
Hej du kan lave en knap når du trykker på den tømmer den textboxen


ellers kan du sætte denne kode i efter
din ejen kode


txtPart.Value = ""
  txtNavn.Value = ""
  txtEfternavn.Value = ""
  txtAdresse.Value = ""
  txtPostnr.Value = ""
  txtBy.Value = ""
  txtCprnr.Value = ""
  txtMailAdresse.Value = ""
  TextBox1.Value = ""


mvh

mvhansen
Avatar billede mvhansen Nybegynder
02. februar 2006 - 22:51 #3
TextBox1.Value = "0.00"
Avatar billede excelent Ekspert
02. februar 2006 - 22:57 #4
hej tvc/mvhansen

prøv lige
TxtBox1 = Format(TxtBox, "###,###.00")
Avatar billede bak Forsker
02. februar 2006 - 23:14 #5
Jeg synes nu fint din kode virker for men....

Private Sub CommandButton1_Click()
  TextBox1.Value = Format(TextBox1.Value, "#,###.00")
  [a1].NumberFormat = "#,###.00"
  [a1] = CDbl(TextBox1.Value)
End Sub
Avatar billede excelent Ekspert
02. februar 2006 - 23:20 #6
TxtBox1 = Format(TxtBox1, "###,###.00")
glemte et 1 tal, i TextBox1
har den fra kabbak, så plejer det at virke
Avatar billede mvhansen Nybegynder
02. februar 2006 - 23:26 #7
ok jeg har misforstået spørsmålet
Avatar billede excelent Ekspert
04. februar 2006 - 20:02 #8
det kunne være rart med lidt tilbagemelding
Avatar billede tvc Seniormester
04. februar 2006 - 20:19 #9
Ja... jeg ved ikke hvorfor jeg ikke kunne få nedenstående til at virke - for nu virker den.

textbox1.value = Format(textbox1.value,"#,##0.00")

-> excelent

Jeg har valgt at anvende din løsning, da denne var den første jeg forsøgte med og som virkede.

TxtBox1 = Format(TxtBox1, "###,###.00")

I skal alle have tak for hjælpen.

Excelent var først med et svar og en løsning så smider du et svar excelent?

MVH.

TVC
Avatar billede tvc Seniormester
04. februar 2006 - 20:20 #10
bak

Må jeg lige spørge hvad [a1] betyder/gør og hvad med CDbl?

[a1].NumberFormat = "#,###.00"
[a1] = CDbl(TextBox1.Value)

Hilsen

TVC
Avatar billede excelent Ekspert
04. februar 2006 - 20:22 #11
ok
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