DupetoCombo
Function CheckDup(MyValue As Variant, MyCombo As ComboBox) As Boolean Dim I For I = 0 To MyCombo.ListCount - 1 If MyCombo.List(I) = MyValue Then CheckDup = True Exit Function End If Next I CheckDup = False End Function
Function CheckDup(MyValue As Variant, MyCombo As ComboBox) As Boolean
Dim I
For I = 0 To MyCombo.ListCount - 1
If MyCombo.List(I) = MyValue Then
CheckDup = True
Exit Function
End If
Next I
CheckDup = False
End Function
( dupetocombo.html )- by Paolo Puglisi
- Modifica del 17/12/2023