Excel De Zone De Liste Déroulante Actualisation De La Liste Déroulante?

Obtenir la liste pour afficher UNIQUEMENT les valeurs qui correspondent au texte tapé par l'utilisateur jusqu'à présent, a été un cauchemar. Ci-dessous est ce que j'ai écrit qui fonctionne (mais il m'a fallu du temps!)

Noter que le MacthEntry Propriété de la boîte combo DOIT être réglé sur "2 - frmMatchEntryNone" pour que le code fonctionne. (Autres valeurs de la liste déroulante .la valeur de la propriété de stocker le texte de la première valeur qui correspond à ce que l'utilisateur a tapé, et le code s'appuie sur elle de stocker ce qu'ils ont saisies.)

Noter également, l'astuce pour contourner le comportement que vous avez observé, c'est à dire les zones de liste déroulante liste de valeurs n'étant pas correctement dimensionnée, était d'utiliser les lignes de code:

LastActiveCell.Activate
ComboBox_SiteName.Activate

Aussi, le code de ramasser tous les éléments de la liste qui ont les lettres tapées par l'utilisateur n'importe où dans leur texte.

De toute façon, voici mon code:

Private Sub ComboBox_SiteName_GotFocus()
' When it first gets the focus ALWAYS refresh the list
' taking into acocunt what has been typed so far by the user
RePopulateList FilterString:=Me.ComboBox_SiteName.Value
Me.ComboBox_SiteName.DropDown
End Sub
' #4 Private Sub ComboBox_SiteName_Change()
Private Sub ComboBox_SiteName_Enter()
Dim LastActiveCell As Range
On Error GoTo err_Handler
Set LastActiveCell = ActiveCell
Application.ScreenUpdating = False
With Me.ComboBox_SiteName
If .Value = "" Then
' Used cleared the combo
' Repopulate will all values
RePopulateList
.DropDown
Else
' #4 reducdant
' LastActiveCell.Select
' .Activate
' ===========================================
' #4 new code
' CheckBox1 is another control on the form
' which can receive the focus and loose it without event firing
CheckBox1.SetFocus
' This will trigger the GotFocus event handler
' which will do a refresnh of the list
.SetFocus
' ===========================================
End If
End With
Application.ScreenUpdating = True
Exit Sub
err_Handler:
Application.ScreenUpdating = True
Err.Raise Err.Number, "", Err.Description
Exit Sub
Resume
End Sub
Private Sub RePopulateList(Optional FilterString As String = "")
Dim i As Long
Dim ValidValues() As Variant
' #2 range now refers to just the data cells
ValidValues = Worksheets("Address").Range("Table5[SITE NAME]").Value
With Me.ComboBox_SiteName
If FilterString = "" Then
' All all values
.List = ValidValues
Else
' #2: .List cannot be set to have no items.
' so remove all but one
.List = Array("Dummy Value")
' Only add values that match the FilterString parameter
For i = LBound(ValidValues, 1) To UBound(ValidValues, 1)
If LCase(ValidValues(i, 1)) Like "*" & LCase(FilterString) & "*" Then
.AddItem ValidValues(i, 1)
End If
Next i
' #2 add this line to remove the dummy item
.RemoveItem (0)
End If
End With
End Sub
Private Sub ComboBox_SiteName_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
End Sub

======================================================================

Vous pouvez: Remplacer tout le code avec ce qui devrait donner fonctionnalité acceptable (la plus longue de la source de données est dans l'ordre alphabétique), et c'est facile! Toutefois, il n'est pas tout à fait faire ce que tu voulais.

Private Sub ComboBox_SiteName_GotFocus()
With Me.ComboBox_SiteName
.List = Worksheets("Address").Range("Table5[[#All],[SITE NAME]]").Value
End With
ComboBox_SiteName.DropDown
End Sub

Les zones de liste déroulante peut être mis en place pour "filtrer que l'utilisateur tape" - tant que les données sont dans l'ordre alphabétique.

======================================================================

Remarque que dans votre code les deux lignes suivantes à cause de la ComboBox_SiteName_Change événement à recommencer. Je soupçonne que vous avez besoin d'ajouter des points de rupture et de déboguer votre code plus.

.Value = UCase(.Value) 
.Clear ' Clear all items

De toute façon, j'espère que ce travail est fait.

ce sera mon premier bounty si je l'obtiens, de sorte s'il vous plaît laissez-moi savoir si vous avez besoin de plus d'aide. (Je pense que c'est peut être une valeur de plus de 50 points)

Harvey

================================================

PARTIE 2:

De vous répondre dans un commentaire questions:

(Voir le n ° 2 de la balise dans mon code ci-dessus)

De se référer à un tableau de données de la colonne, à l'exclusion de l'en-tête d'utilisation:
=Table5[NOM du SITE]
(Ce sera généré automatiquement lors de la saisie d'une formule si vous cliquez et faites glisser sur les cellules de données dans une colonne).
Le code a été modifié accordlingly.

J'ai utilisé excel 2013 et 2010 et a conclu que l' .Activer événement fonctionne dans les deux.
Voir #3 pour un changement mineur.

Veuillez recopier tout le code.

remarque que j'ai introduit le code pour essayer et arrêter de scintillement à l'aide de l'Application.ScreenUpdating, mais il n';t ont aucun effet - je ne sais pas pourquoi. J'ai laissé le code de sorte que vous pouvez faire d'autres expériences si vous en avez besoin.

NOTE de la nouvelle procédure ComboBox_SiteName_KeyDown

================================================

PARTIE 3:

De vous répondre dans un commentaire questions:
C'est un combo sur un formulaire ! - afin de faire le changement avec tagged #4 ci-dessus.

Harvey

OriginalL'auteur HarveyFrench