combobox change-Ereignis wird ausgelöst, jedes mal in excel-VBA

Erhalte ich eine XML, die Daten enthält, gebunden sein combobox. Während der Bindung werden diese Daten jedes mal, wenn ein Element Hinzugefügt wird, um das Kombinationsfeld, dessen change-Ereignis ausgelöst wird. Ich will Feuer change-Ereignis nur nach Daten gebunden ist, und der Benutzer wählt ein beliebiges Element.

Jede Hilfe, code, der dieses problem lösen?

InformationsquelleAutor Akki J | 2012-03-26

  1. 1

    Verwenden Sie eine Flagge, um anzuzeigen, ob oder nicht, Sie wollen das Ereignis behandeln;

    private mblIsUpdating as boolean
...
sub addDataFromXml
   mblIsUpdating = true
   combo.additem ...
   mblIsUpdating = false
end sub

sub combo_change
  if (mblIsUpdating) then exit function
  //handle change
end sub

    InformationsquelleAutor Alex K.

  2. 0

    In meiner Erfahrung, das combobox-change-Ereignis wird nur ausgelöst, wenn die änderung der combobox-Liste von Elementen, wenn die combobox den Wert nicht null ist. Wenn dieses problem passiert, wenn du zuerst initialisieren der combobox, nicht das zuweisen eines default-Wert, bis Sie nach dem füllen der combobox.

    Wenn Sie müssen, ändern Sie den Kombinationsfeld-Liste zu anderen Zeiten, wie Alex K sagt, erstellen Sie ein Boolesches flag, um anzuzeigen, wenn Sie Sie ignorieren wollen das change-Ereignis.

    Ich bin mir nicht klar, aus Ihrer Frage, ob das change-Ereignis wird ausgelöst, sobald Sie füllen Sie die combobox oder einmal für jede .AddItem. Wenn es das letztere Problem, dann können Sie reduzieren auf die Anzahl der Ereignisse ändern, indem Sie erstellen ein array der Werte für die combobox und die Zuordnung zu dem Kombinationsfeld .List.

    Hier ist ein Beispiel mit einem 2-d array, das füllen der combobox mit den Namen und Pfade aller geöffneten Arbeitsmappen. (Eine 1-d-array funktioniert auch.)

    Private Sub InitializeComboBox()
   Dim aList() As String
   Dim i As Integer, iMax As Integer

   ' build combobox list with zero-based array
   iMax = Application.Workbooks.Count - 1
   ReDim aList(iMax, 2)
   For i = 0 To iMax
      With Application.Workbooks(i + 1)
         aList(i, 0) = i
         aList(i, 1) = .Name
         aList(i, 2) = .Path
      End With
   Next i

   With Me.ComboBox1
      .ColumnCount = 3
      .ColumnWidths = "0 pt;80 pt;220 pt"
      .ListWidth = "300 pt"
      .List = aList
   End With
End Sub

    InformationsquelleAutor mischab1

Schreibe einen Kommentar