CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Gramstrup Mester

30. marts 2017 - 08:21 Der er 8 kommentarer og
3 løsninger

VBA userform

Hejsa
Jeg har en userform som skal hente data ind fra Excel ark og det fungere også fint. Men nogen af dataene er beregninger og der kommer rigtigt mange decimaler med. Jeg vil gerne formatere dem så der kun er 2 decimaler med.

Den laver også komma om til punktum. Det vil jeg gerne ændre til Komma.

Jeg har lavet nedenstående kode line til at hente dataene ind. Men hvordan formatere jeg dem?

Private Sub UserForm_Activate()
Sheets("PÆ skema").Select
KostÆnd.Caption = Range("o2").Value
ForSalg.Value = Range("r2")
ÆndUge.Value = Range("l2")
GLdg.Caption = Range("Q2").Value
NyDg.Caption = Range("s2").Value
VareNavn.Caption = Range("B2").Value
End Sub

Synes godt om

Jan Hansen Ekspert

30. marts 2017 - 08:39 #1

Se:
https://www.mrexcel.com/forum/excel-questions/851952-excel-visual-basic-applications-textbox-number-format.html

Mvh Jan

Synes godt om

Gramstrup Mester

30. marts 2017 - 09:07 #2

Jeg kan desværre ikke få det til at virke...

Synes godt om

Jan Hansen Ekspert

30. marts 2017 - 10:05 #3

Option Explicit
Dim ws As Worksheet

Private Sub UserForm_Activate()
Set ws = Sheets("PÆ skema") 'ws er dit ark

KostÆnd.Caption = ws.Range("o2").Value
ForSalg.Value = Round(ws.Range("r2").value,2)
ÆndUge.Value = ws.Range("l2").value
GLdg.Caption = ws.Range("Q2").Value
NyDg.Caption = .ws.Range("s2").Value
VareNavn.Caption = ws.Range("B2").Value
End Sub

prøv ovenstående

mvh Jan

Synes godt om

Gramstrup Mester

30. marts 2017 - 10:18 #4

Det virker ikke rigtigt for mig. Jeg får resultatet som du kan se på dette her link:

http://herborjeg.dk/Ny%20mappe%20(2)/Udklip.JPG

Der er mange decimaler på og det ene sted er det punktum frem for komma.

Synes godt om

Jan Hansen Ekspert

30. marts 2017 - 12:20 #5

Prøv at sætte

=Round(ws.Range("r2").value,2)

hvor du erstatter r2 med cellen du henter fra

eks:
KostÆnd.Caption = Round(ws.Range("o2").Value,2)

kunne ikke se hvilke controls der var tal i

Synes godt om

store-morten Ekspert

30. marts 2017 - 12:34 #6

Måske:

Format(Range("o2"), "#,##0")

Synes godt om

Gramstrup Mester

30. marts 2017 - 15:45 #7

Dog viser den stadig anbefalet salgspris med Punktum istedet for komma men det kan jeg godt leve med.
Man det var Jan Hansens løsning der virkede for mig.

Synes godt om

Jan Hansen Ekspert

30. marts 2017 - 16:06 #8

anbefalet=format(Round(ws.Range("o2").Value,2),"#,##")

virker måske

mvh Jan

Synes godt om

store-morten Ekspert

30. marts 2017 - 17:01 #9

Prøv:

KostÆnd.Caption = Format(Range("o2"), "#,##0.00")

#,## -->Formater med , (komma)
0.00 --> Formater med 2 decimaler

Synes godt om

Gramstrup Mester

30. marts 2017 - 17:06 #10

Så virker det med Store-morten løsning... På komma delen... Takker mange gange..

Synes godt om

store-morten Ekspert

30. marts 2017 - 17:14 #11

Velbekomme

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Skrive tekst fra celle i formel Af SFrede i Excel	1	I dag 14:54	26 minutter siden
slette rækker automatisk Af torben lind i Excel	9	I går 18:52	I dag 11:49
Ctrl + Backspace Af xl-Enthusiast i Excel	7	22/04/202408:15	22/04/202410:12
Lopslag Af Mariacecilia i Excel	9	19/04/202419:00	20/04/202420:01
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	19/04/202413:33	-

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS