Fehler in der Excel-ActiveX-Kombinationsfelder?

Meine active-x combo-box funktioniert bei meinem Dell ist angedockt, aber die Größe auf eine größere Schrift jedes mal, wenn darauf geklickt wird, wenn das Dell nicht in der Basisstation befindet - sehr seltsam. Ich fügte hinzu, resizing-code, der funktioniert, wenn nicht angedockt, sondern beides .Höhe und .scaleheight scheitern, wenn Sie angedockt und, wenn er ausgelöst wird programmgesteuert (auch fremden).

        Sheet2.Shapes("cb_SelectSKU").Select
        Selection.ShapeRange.Height = 40
        Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft

Ich dann noch meine eigenen enableevents-wie Schalter, so dass Sie die Größe nur dann Auftritt, wenn ein Benutzer wählt in einer combobox einen Wert, nicht, wenn alles betroffen ist, während ein makro ausgeführt wird.

Select Case strHoldEvents
    Case Is = "N"                                                   'Combobox resizing fails with error when triggered programatically (from SaveData)

        Call ShowLoadShts

        Sheet2.Shapes("cb_SelectSKU").Select
        Selection.ShapeRange.Height = 40
        Selection.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft


    Case Else
End Select

Schließlich, das scheint zu funktionieren, egal ob kupiert oder unkupiert, ob ausgelöst durch den Benutzer oder während des Eingriffs. Wir werden sehen, ob es hält...

InformationsquelleAutor mike

Also ich Stand vor den gleichen Fragen. Ich hatte eine Datei mit drop-down-Listen, die ich hatte, überlagerten die combobox zu kämpfen, das Problem der unlesbarkeit beim Zoomen zu viel. Das war, was mein code sah wie ANFANGS:

'=========================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Set ws = ActiveSheet
On Error GoTo errHandler

If Target.Count > 1 Then GoTo exitHandler

Set cboTemp = ws.OLEObjects("ComboBox1")
  On Error Resume Next
If cboTemp.Visible = True Then
  With cboTemp
    .Top = 10
    .Left = 10
    .ListFillRange = "Treatment"
    .LinkedCell = Target.Address
    .Visible = False
    .Value = ""
  End With
End If



  On Error GoTo errHandler
  If Target.Validation.Type = 3 Then
    'if the cell contains a data validation list
    Application.EnableEvents = False
    'get the data validation formula
    str = Target.Validation.Formula1
    str = Right(str, Len(str) - 1)
    With cboTemp
      'show the combobox with the list
      .Visible = True
      .Left = Target.Left
      .Top = Target.Top
      .Width = Target.Width + 15
      .Height = Target.Height + 5
      .ListFillRange = ws.Range(str).Address
      .LinkedCell = Target.Address
    End With
    cboTemp.Activate
    'open the drop down list automatically
    Me.ComboBox1.DropDown
  End If

exitHandler:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Exit Sub
errHandler:
  Resume exitHandler

End Sub
'====================================
'Optional code to move to next cell if Tab or Enter are pressed
'from code by Ted Lanham
'***NOTE: if KeyDown causes problems, change to KeyUp
'Table with numbers for other keys such as Right Arrow (39)
'https://msdn.microsoft.com/en-us/library/aa243025%28v=vs.60%29.aspx

Private Sub ComboBox1_KeyDown(ByVal _
        KeyCode As MSForms.ReturnInteger, _
        ByVal Shift As Integer)
    Select Case KeyCode
        Case 9 'Tab
            ActiveCell.Offset(0, 1).Activate
        Case 13 'Enter
            ActiveCell.Offset(1, 0).Activate
        Case Else
            'do nothing
    End Select
End Sub
'====================================

War ich vor allen Arten von Fragen, aber in Erster Linie erwähnt in diesem thread, die LinkedCell-Problem war die größte. Meine Auswahl aus der drop-down-Menü gehen würde, wo auch immer auf der Platte hatte ich geklickt, letzten, statt die Zelle, die ich gewählt hatte, die drop-down-Feld aus, und in den Prozess, stören auch der code, wo auch immer die Auswahl gehen würde. Ich habe eine einfache EINE ZEILE code, um sicherzustellen, dass mein Programm in ActiveX läuft nur, wenn Ihr ein drop-down-Menü. Ich habe diese vor der LinkedCell-Befehl ausgeführt wurde:

If Target.Validation.Type = 3 Then
'... all the normal code here...
End If

Also mein code sieht jetzt wie folgt aus:

'... Code as before

If Target.Validation.Type = 3 Then
' NEW CODE LINE ABOVE
 If Target.Count > 1 Then GoTo exitHandler

Set cboTemp = ws.OLEObjects("ComboBox1")
  On Error Resume Next
If cboTemp.Visible = True Then
  With cboTemp
    .Top = 10
    .Left = 10
    .ListFillRange = "Treatment"
    .LinkedCell = Target.Address
    .Visible = False
    .Value = ""
  End With
End If
End If
' End of the new If

Unglaublich, das hat funktioniert. Und jetzt ist mein excel-Blatt ist nicht schlecht benehmen mehr. Hoffe, das hilft.

InformationsquelleAutor Sampat Kedarisetty