16. august 2005 - 10:33
Der er
1 kommentar og
1 løsning
Regulær ekspression I VBA
Når jeg har en variabel jeg gerne vil have tjekket i VBA
Altså hvis man indtaster andet end bogstaver, altså alle andre symboler, tal osv. skal der komme en fejl meddelelse. Jeg har prøvet med feks. men det virker ikke helt.
If Fornavn = "" And Fornavn <> [A - Z] Then MsgBox ("Du skal indtaste et gyldigt navn")
Håber der er nogen der ved om det kan lade sig gøre
Altså den skal kun tillade bogstave imellem A-Z
23. august 2005 - 16:18
#1
Du kan aflæse ascii koderne med
kommandoen asc(bogstavet), du skal så udklippe 1 bogstav ad gangen.
Se efterfølgende eksempel. Den tillader kun A B C D, du kan selv indsætte
de andre kode A-Z er koderne 65 - 90
dim x, emne, tkode, fejlmedd
fejlmedd = ""
emne = inputbox("Indtast ord")
for x = 1 to len(emne)
tkode = asc(mid(emne,x))
select case tkode
case 65,66,67,68
case else
fejlmedd = "Du har indtast andet tegn end A, B, C, D"
exit for
next
if fejlmedd <> "" then msgbox(fejlmedd)
