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.
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
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.
