I am trying to limit the decimals in a textbox to 2 can
anyone help me with this ? the fixeddecimals etc. does
not work.

Thanks

JdJ

JdJ

many hours have been spent by programmers because MS was too lazy to
implement a few often needed properties to the textbox object in msforms.

shall we say it allows for flexibility?


Following works for me (Excel97+), also with non-english regional settings

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii.Value = FilterInput(TextBox1.Text, KeyAscii.Value)
End Sub

Function FilterInput(s As String, ByVal k As Integer) As Integer
Dim sDec As String, sKey As String, number As Variant

On Error GoTo TheEnd
With Application
sDec = .International(xlDecimalSeparator)
#If VBA6 Then
If Not .UseSystemSeparators Then sDec = .DecimalSeparator
#End If
End With

sKey = Chr(k)
If sKey = "." And sKey < sDec Then sKey = sDec

If s = "" And (sKey = "-" Or sKey = sDec) Then
FilterInput = Asc(sKey)
ElseIf sKey Like "[0123456789" & sDec & "]" Then
number = CDec(s & sKey)
If number = WorksheetFunction.Round(number, 2) Then
FilterInput = Asc(sKey)
End If
End If
TheEnd:
End Function


cheerz!



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"jdj" wrote:

I am trying to limit the decimals in a textbox to 2 can
anyone help me with this ? the fixeddecimals etc. does
not work.

Thanks

JdJ

Hi keepITcool

Tried it, but still no results.
Thanks anyway !!

JdJ
-----Original Message-----
JdJ

many hours have been spent by programmers because MS was
too lazy to
implement a few often needed properties to the textbox
object in msforms.

shall we say it allows for flexibility?


Following works for me (Excel97+), also with non-english
regional settings

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
KeyAscii.Value = FilterInput(TextBox1.Text,
KeyAscii.Value)
End Sub

Function FilterInput(s As String, ByVal k As Integer) As
Integer
Dim sDec As String, sKey As String, number As Variant

On Error GoTo TheEnd
With Application
sDec = .International(xlDecimalSeparator)
#If VBA6 Then
If Not .UseSystemSeparators Then sDec
= .DecimalSeparator
#End If
End With

sKey = Chr(k)
If sKey = "." And sKey < sDec Then sKey = sDec

If s = "" And (sKey = "-" Or sKey = sDec) Then
FilterInput = Asc(sKey)
ElseIf sKey Like "[0123456789" & sDec & "]" Then
number = CDec(s & sKey)
If number = WorksheetFunction.Round(number, 2) Then
FilterInput = Asc(sKey)
End If
End If
TheEnd:
End Function


cheerz!



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"jdj" wrote:

I am trying to limit the decimals in a textbox to 2
can
anyone help me with this ? the fixeddecimals etc. does
not work.

Thanks

JdJ


.

are u working with an embedded control or a textbox on a userform?

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"JdJ" wrote:

Hi keepITcool

Tried it, but still no results.
Thanks anyway !!

JdJ

Userform.

Johann
-----Original Message-----
are u working with an embedded control or a textbox on a
userform?

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"JdJ" wrote:

Hi keepITcool

Tried it, but still no results.
Thanks anyway !!

JdJ
.

check the sequence of any other eventshandlers running on the box?
no conflicts there?

Set breakpoints to see where the code exits (and if it gets there in the
first place).
Preferably use e few debug.print lines : This proc works with keyboard
buffer. Using mouse in VBE is okay but typing (editing) will interfere
with that buffer.


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"JdJ" wrote:

Userform.

Johann
-----Original Message-----
are u working with an embedded control or a textbox on a
userform?

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"JdJ" wrote:

Hi keepITcool

Tried it, but still no results.
Thanks anyway !!

JdJ
.

While you'r helping me, and I am grateful for your
effort, I have another problem ;

Activating a form that contains multipages, how can I get
the first page to always show?
It normally opens the page where you exited.

Thanks again Maistro !

Johann
-----Original Message-----
are u working with an embedded control or a textbox on a
userform?

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"JdJ" wrote:

Hi keepITcool

Tried it, but still no results.
Thanks anyway !!

JdJ
.

multipage1.value=1

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Johann" wrote:

While you'r helping me, and I am grateful for your
effort, I have another problem ;

Activating a form that contains multipages, how can I get
the first page to always show?
It normally opens the page where you exited.

Thanks again Maistro !