显示滚动条时，组合框出现问题

Question

组合框显示内容时出现问题。
当我滚动某些内容时，如所附图片中所示，它是隐藏的。

我的combobox文本对齐方式位于右侧

Answer 1

从此source开始，您可以将此代码放入UserForm.Initialize过程中，例如：

Private Sub UserForm_Initialize()

Dim I As Long, TempString As String
UserForm1.ComboBox1.ColumnCount = 2
TempString = LTrim$(Str$(UserForm1.ComboBox1.Width - 15))
UserForm1.ComboBox1.ColumnWidths = TempString & " pt; 15 pt"
For I = 1 To 10
    UserForm1.ComboBox1.AddItem "Hello" & Str$(I)
Next I

End Sub

另一个对我有用的选项是：

Private Sub UserForm_Initialize()

Dim I As Long
For I = 1 To 10
    UserForm1.ComboBox1.AddItem "Hello " & I & "     "
Next I

End Sub

最后一个选项将仅放置足够的尾随空格以使文本完整显示。请注意，使用这些值时，您将不得不TRIM降低它们。