Har du en ide til eller ligger inde med en smart kodestump
som kan begrænse input i en TextBox på en Userform.
Her tænker jeg på et decimaltal som skal anvendes efterfølgende.

Kravet er at der kan indtastes et tal samt et komma og max 2 decimaler

Koden må meget gerne være kort og overskuelig.
Er spændt på at se hvor mange forskellige måder det kan løses på.
Og mit bud vises når alle har haft mulighed for at byde ind.

Hej Max, tak for dit bud.

Som forventet virker din kode perfekt og gør præcis det den skal
godt gået :-)
Min er ganske vist kortere, men det er jo ikke nødvendigvis en
kvalitet i sig selv. Jeg er nok lidt doven anlagt :-)

Jeg forventer der kommer flere bud, så vi ser lige tiden an.

Så er vi nede på 1 linje 114 tegn (u.mellemrum) hvis jeg ikke regner start og end sub med.
Min tekstboks hedder dog Box1

Allan skrev: Sub Box1_KeyPress(ByVal MyVal As ReturnInteger) Select Case MyVal     Case 48 To 57, 44, 8     Case Else         MyVal = 0 End Select With Box1     If (InStr(.Text, ",") < (Len(.Text) - 1)) And (InStr(.Text, ",") > 0) Then .Text = Left(.Text, Len(.Text) - 1) End With End Sub

Hej Allan

Når jeg tester ovenstående, kan jeg indtaste ",,," og "1234,,,", dvs. (tre på hinanden følgende kommaer). IsNumeric(",,,") = False. IsNumeric("1234,,,") = False.

Men jeg lærte noget nyt med KeyPress-eventen så tak for det.


Mvh Max

Hej Allan
Troede ellers lige at jeg blev sat til tælling da jeg så din første kode :-)
Men som Max er inde på mangler den lige det sidste for at komme i mål, ellers ville det blive
tæt løb hvis vi sammenligner på antal tegn.

Men her er mit bud på opgaven :
Først udelukkes al input ud over tal 0-9 samt komma
Herefter testes for dobbelt komma, og sidst på antal decimaler

Private Sub Box1_Change()

If Box1 Like "*[!0-9,]" Or UBound(Split(Box1, ",")) > 1 Or Len(Split(Box1 & ",", ",")(1)) > 2 Then Beep: Box1 = Left(Box1, Len(Box1) - 1)

End Sub


Jeg vil især godt henlede opmærksomheden på en rigtig smart detalje som jeg desværre ikke er forfatter til.:

Box1 & "," som er en del af : Len(Split(Box1 & ",", ",")(1))

Kodestumpen tester antal decimaler, men hvis man splitter en streng uden komma så fejler koden.
Dette forhindres ved at indsætte et komma via koden midlertidig, ret smart tænkt syntes jeg.
Forfatter til den detalje er.: Rick Rothstein

Nok den mest effektive 'oneliner' jeg har set i langt tid Poul