Jeg har et lille stykke kode som jeg gerne vil ændre:
Private Sub TextBox1_Exit _ (ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> 100 Then MsgBox "Geben Sie die Zahl 100 ein." TextBox1.SetFocus Cancel = True End If End Sub
Jeg vil ikke validere på tallet 100, men snarere tjekke om det indtastede er "et af tallene i kolonne A".
Tallene i min kolonne A er mellem 5000 og 9999, men der er huller ind imellem dem. Således skal tallet 5009 accepteres, mens 5008 ikke skal accepteres.
Med OS2ai forsøger Aarhus Kommune og OS2-fællesskabet at give offentlige medarbejdere adgang til generativ AI uden at gøre kommunerne mere afhængige af amerikanske techgiganter.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Worksheets(1).Range("A:A").Find(TextBox1.Value, LookIn:=xlValues) Is Nothing Then MsgBox "Geben Sie die Zahl 100 ein." TextBox1.SetFocus Cancel = True End If
End Sub
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.
