How to get combobox not to accept user input in Excel-Vba?

前端 未结 3 598
星月不相逢
星月不相逢 2020-12-16 12:14

Does anyone know what the properties are in the combobox that I can manipulate in order not to allow the user to key/type in any data?

相关标签:
3条回答
  • 2020-12-16 12:44

    Here's a way to change this for each object on a worksheet:

    Private Sub fixComboBoxes()
        Dim OLEobj As OLEObject
        Dim myWS As Worksheet
        Set myWS = Sheet1
        With myWS
            For Each OLEobj In myWS.OLEObjects
                If TypeOf OLEobj.Object Is MSForms.ComboBox Then
    
                    OLEobj.Object.Style = fmStyleDropDownList
                End If
            Next OLEobj
        End With
    End Sub
    
    0 讨论(0)
  • 2020-12-16 12:48
    YourComboBoxName.Style = fmStyleDropDownList
    

    or

    YourComboBoxName.Style = 2
    

    (that's from MS Excel Help)

    0 讨论(0)
  • 2020-12-16 12:52

    Set the the Style of the combobox to 2 - fmStyleDropDownList. This will disallow user input, and will also prevent (combobox).value changes via macro.

    0 讨论(0)
提交回复
热议问题