19. marts 2015 - 11:55Der er
7 kommentarer og 1 løsning
Anvend kun komma i textbox - Betingelse
Jeg har nedenstående kode, som kører hvis en combobox har en værdi større end 0.
Men hvis brugeren taster 2.2 bliver outputtet 22 - derfor ville gerne lave en betingelse, så hvis der bliver anvendt punktum hopper den ud af koden og melder med msgbox at der kun skal anvendes komma.
Mvh Martin
If TextBox1.Visible = False Then Else
With TextBox1 If IsNumeric(.Text) = False Or Len(.Text) = 0 Then .Text = "" MsgBox "Anvend komma og kun tal" .SetFocus Exit Sub Else 'Teksten konverteres til et tal ActiveCell.Offset(0, 16) = CDbl(TextBox1) End If End With
With TextBox1 If Len(.Text) = 0 Then MsgBox "Indtast et tal" .SetFocus Exit Sub End If .Text = Replace(.Text,".",",") If IsNumeric(.Text) = False Then MsgBox "Det skal være et tal" .SetFocus Exit Sub Else 'Teksten konverteres til et tal ActiveCell.Offset(0, 16) = CDbl(TextBox1) End If End With
man kan søge på positionen af komma og punktum med instr() hvis den ene er nul, så er alt ok og rutinen køres hvis begge er >0, så fjerner man først den med laveste værdi, og rutinen køres.
Synes godt om
Ny brugerNybegynder
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.
