Søg
Avatar billede nemlig Professor
21. august 2008 - 11:01 Der er 5 kommentarer og
1 løsning

VBA - Kontrol af input i TextBox

Hej. Jeg har i forvejen en kontrol af input i en TextBox, hvor der kun må indtastes tallene fra 0-9.
Jeg ønsker også en MsgBox, hvis den indtastes værdi er over "40".
Nogen der kan hjælpe med det?
Koden ser sådan her ud:

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Else
            KeyAscii = 0
            MsgBox "Du må kun indtaste TAL!", 16, "Fejl"
    End Select
End Sub
Avatar billede jih Nybegynder
21. august 2008 - 11:14 #1
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Else
            If (KeyAscii > 40) Then
                MsgBox "Over 40"
            End If
            KeyAscii = 0
            MsgBox "Du må kun indtaste TAL!", 16, "Fejl"
    End Select
End Sub

sådan?
Avatar billede kabbak Professor
21. august 2008 - 11:56 #2
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Else
            KeyAscii = 0
            MsgBox "Du må kun indtaste TAL!", 16, "Fejl"
    End Select
if val(TextBox5) > 40 then
  MsgBox "Over 40"
  end if
End Sub
Avatar billede nemlig Professor
21. august 2008 - 15:40 #3
jih: Jeg oplever ingen forskel med dit forslag. Hvis jeg indtaster 45, så burde der vel komme en MsgBox, hvilket ikke sker.

kabbak: Næsten det samme er gældende med dit forslag. Når jeg har indtastet 45 og forlader feltet, kommer der ingen MsgBox. Men hvis jeg springer tilbage til feltet med tabulator (så "45" er markeret) og jeg begynder at indtaste et nyt tal, fx "1", så kommer MsgBox'en idet jeg trykker på "1".
Avatar billede kabbak Professor
21. august 2008 - 15:55 #4
sorry, den skal i en anden

Private Sub TextBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
if val(TextBox5) > 40 then
  MsgBox "Over 40"
  end if
End Sub
Avatar billede nemlig Professor
21. august 2008 - 16:06 #5
Det var super - Mange tak. Send venligst et svar.
Avatar billede kabbak Professor
21. august 2008 - 16:28 #6
et svar ;-))
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 5 17/04/202616:11 27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 3 23/03/202613:24 07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:35 Lidt simpel (håber jeg) Photoshop hjælp Af fcs i Billedbehandling
16/0516:04 Canon printer vil ikke udskrive farver Af mort1 i Printere
16/0514:50 Hvilket fabrikat af Mesh systemer virker? Af fkj i Wifi
15/0513:45 AJAX kode -javascript Af Asky i Programmeringsværktøjer
15/0511:50 Vælg indstilling - blå skærm med med flere muligheder for fejlretning Af Uvanga i Windows
White papers
Flere white papers »