将 ComboBox 配置为只读：有办法吗？答案

【问题标题】：Configuring a ComboBox as Read-Only: Is there a way to?将 ComboBox 配置为只读：有办法吗？
【发布时间】：2020-02-20 03:23:39
【问题描述】：

我想使用 ComboBox，但禁用输入选项。

我正在尝试使用命令按钮从列表框中填充文本框。除非列表框中的项目被选中并突出显示为蓝色，否则我无法获得传输列表框中内容的按钮。如果我使用组合框，则不需要突出显示，但我不想在框中键入选项，只从列表中选择。

这是我正在测试的全部代码。

Private Sub CommandButton1_Click()
TextBox1 = Me.ComboBox1.Value
End Sub


Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Initialize()
'Creates and assigns the Array to the ListBox when the form loads.
   Dim name As Variant

   name = Array("Sunday", "Monday", "Tuesday", "Wednesday", _
      "Thursday", "Friday", "Saturday")
   ComboBox1.List = name
End Sub

【问题讨论】：

标签： vba combobox ms-word

【解决方案1】：

如果您在创建组合框时将样式更改为 fmStyleDropDownList，这将起作用。

或

将其放入您的代码中 - 您将拥有下面组合框的名称到您的对象名称（如果您已更改它）。

Private Sub UserForm_Initialize()

    Me.ComboBox1.Style = fmStyleDropDownList

End Sub

【讨论】：