Notifikationer

Markér alle som læst Log ud

jath08ac Forsker

21. oktober 2017 - 15:28 Der er 4 kommentarer og
1 løsning

Formatering af værdier i tekstbox

Hej,
Vil høre om der er en der kan hjælpe. Jeg har nedenstående kode, som skal formateres til XX xx xxx, f.eks. AB 12 345. Hvis der kun er 4 tal, så skal det formateres sådan XX xxxx, f.eks. AB 1234.

Nedenstående koder kan jeg ikke få til a fungerer :-(

Private Sub txtRegNr_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
txtRegNr.Value = Format(txtRegNr.Value, " ## ## ###")
End Sub

Synes godt om

Jan Hansen Ekspert

21. oktober 2017 - 15:32 #1

Mon det ikke skal være "@@ ## ###"

Synes godt om

jath08ac Forsker

21. oktober 2017 - 15:39 #2

@Jan Jansen:
Hvis jeg gør det, og skriver AB12123, så viser den AB ## ###12123

Synes godt om

Jan Hansen Ekspert

21. oktober 2017 - 20:45 #3

Option Explicit

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If Len(.Value) > 6 Then
.Value = Left(.Value, 2) & Format(Mid(.Value, 3), " ####")
Else
.Value = Left(.Value, 2) & Format(Mid(.Value, 3), " ## ###")
End If
End Sub

Tilpas selv textboks navnet i linie 3 og 4

Synes godt om

Jan Hansen Ekspert

21. oktober 2017 - 20:48 #4

ups mangler et "end with" i linie før "end sub"

Synes godt om

Jan Hansen Ekspert

21. oktober 2017 - 20:53 #5

Glem den anden denne er bedre

Option Explicit

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
If Mid(.Value, 3) < 10000 Then
.Value = Left(.Value, 2) & Format(Mid(.Value, 3), " ####")
Else
.Value = Left(.Value, 2) & Format(Mid(.Value, 3), " ## ###")
End If
End With
End Sub

Jan

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

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Knap til ipad Af FinnLauridsen i Excel	1	22/01/202620:51	23/01/202607:34
Hyperlink til tekst Af Nanarsi i Excel	12	19/01/202623:00	21/01/202618:17
HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel	3	15/01/202615:45	16/01/202609:04
Tekst til Dato Af nyhavn18 i Excel	2	13/01/202623:48	14/01/202608:50
Aktiekurser Af rabitjosph i Excel	4	13/01/202618:44	22/01/202621:41

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