Controlar la coincidencia de caracteres en un cuadro combinado y un cuadro de lista
En el ejemplo siguiente se utiliza la propiedad MatchEntry para mostrar la coincidencia de caracteres disponible para los controles ComboBox y ListBox. En este ejemplo, el usuario puede establecer el tipo de coincidencia con los controles OptionButton y, a continuación, escribir en el ComboBox para especificar un elemento de su lista.
Para utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Para ejecutar el código debe abrir el formulario con el fin de que se produzca el evento Open. Asegúrese de que el formulario contiene:
Tres controles OptionButton denominados de OptionButton1 a OptionButton3.
Un control ComboBox denominado ComboBox1.
Sub OptionButton1_Click()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
ComboBox1.MatchEntry = 2 '2=fmMatchEntryNone
End Sub
Sub OptionButton2_Click()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
ComboBox1.MatchEntry = 0 '0=fmMatchEntryFirstLetter
End Sub
Sub OptionButton3_Click()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
ComboBox1.MatchEntry = 1 '1=fmMatchEntryComplete
End Sub
Sub Item_Open()
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ComboBox1")
Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton1")
Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton2")
Set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").Controls("OptionButton3")
For i = 1 To 9
ComboBox1.AddItem "Choice " & i
Next
ComboBox1.AddItem "Chocoholic"
OptionButton1.Caption = "No matching"
OptionButton1.Value = True
OptionButton2.Caption = "Basic matching"
OptionButton3.Caption = "Extended matching"
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de