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.
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
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.
