Input box opties

Status
Niet open voor verdere reacties.

ErnstHugo

Nieuwe gebruiker
Lid geworden
23 apr 2016
Berichten
4
Beste mensen,
kunnen we in VBA de onderstaande code verder specificeren op het aantal karakters vereist wat wordt ingevoerd zonder dat je daar extra controles op moet gaan maken mbv lengte controles etc

Dim sReturn As String
sReturn = InputBox("InputBox Text", _
"InputBox Title")

En de verdere verschijning van de box qua grootte etc?

Groet
Hugo
 
controle op de lengte kan bv. door onderstaande
Code:
Sub lengte()
   Dim sReturn As String

   Do
      sReturn = InputBox("InputBox Text", "InputBox Title")
      b = (Len(sReturn) <> 8)                    'check of er 8 karakters in staan
   Loop While b Or sReturn = "stop"              'loopje tot je een string van 8 karakters of het woord "stop" invult
   MsgBox sReturn
End Sub
de grootte van de box, die kan je niet veel beïnvloeden, anders moet je denken aan een userform, maar dat zal vermoedelijk "overdone" zijn
 
Cow18, bedankt voor de eenvoudige oplossing en een userform is idd een beetje overdone met opgedane ervaring in andere projectjes.

Jammer dat vormgevingsopties verder niet beschikbaar zijn.
 
zo kan je hem toch nog wat beïnvloeden
Code:
Sub lengte()
   Dim sReturn As String

   Do
      sReturn = InputBox("InputBox Text" & vbLf & "maar ik had nog veel meer te vertellen" & vbLf & "onder andere dit " & vbLf & "dat" & vbLf & "en nog x andere zaken" & Replace(Space(10), " ", vbLf) & "stoppen doe je met ""stop""", "InputBox Title")
   Loop While (Len(sReturn) <> 8) And sReturn <> "stop"   'loopje tot je een string van 8 karakters of het woord "stop" invult
   MsgBox sReturn
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan