Input box opties

[ErnstHugo]

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

 

[cow18]

controle op de lengte kan bv. door onderstaande

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

 

[ErnstHugo]

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.

 

[cow18]

zo kan je hem toch nog wat beïnvloeden

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