Compartir a través de

Ejemplo de propiedades MatchFound y MatchRequired, evento Change y control CheckBox

  • Artículo

En el ejemplo siguiente se usan las propiedades MatchFound y MatchRequired para mostrar la coincidencia de caracteres adicional para ComboBox. La comprobación de coincidencia se realiza en el evento Change.

En este ejemplo, el usuario especifica si la parte de texto de un cuadro combinado debe coincidir con uno de los elementos enumerados en el cuadro combinado. El usuario puede especificar si la coincidencia es necesaria mediante un CheckBox y, a continuación, escribir en el ComboBox para especificar un elemento de su lista.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

  • Un cuadro combinado con el nombre CuadroCombinado1.
  • Una casilla con el nombre Casilla1.
Private Sub CheckBox1_Click() 
 If CheckBox1.Value = True Then 
 ComboBox1.MatchRequired = True 
 MsgBox "To move the focus from the " _ 
 & "ComboBox, you must match an entry in " _ 
 & "the list or press ESC." 
 Else 
 ComboBox1.MatchRequired = False 
 MsgBox " To move the focus from the " _ 
 & "ComboBox, just tab to or click " _ 
 & "another control. Matching is optional." 
 End If 
End Sub 
 
Private Sub ComboBox1_Change() 
 If ComboBox1.MatchRequired = True Then 
 'MSForms handles this case automatically 
 Else 
 If ComboBox1.MatchFound = True Then 
 MsgBox "Match Found; matching optional." 
 Else 
 MsgBox "Match not Found; matching " _ 
 & "optional." 
 End If 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
Dim i As Integer 
 
For i = 1 To 9 
 ComboBox1.AddItem "Choice " & i 
Next i 
ComboBox1.AddItem "Chocoholic" 
 
CheckBox1.Caption = "MatchRequired" 
CheckBox1.Value = True 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.