excel - 使用 VBA 调整列表框的大小

Question

我的用户窗体中有一个列表框，其中填充了工作表中的项目。没有多列。此 ListBox 与 UserForm 应根据 ListBox 中的项目数自动调整大小。
当我激活我的用户窗体时，它会调整大小。 ListBox 未正确调整大小。
如果我在调整大小之前放置一个断点，然后使用 F5 或 F8 恢复激活，所有工作都按预期工作。我已经这样做了很多次，并且一直工作到现在。
这是我的用户窗体最初的样子和代码。

Private Sub UserForm_Activate()
    Dim i As Long   
    Me.ListBox1.Clear
    For i = 2 To shSet.Range(wConst & "2").CurrentRegion.Rows.Count 
        Me.ListBox1.AddItem shSet.Cells(i, wConst).Value
    Next i
    If Me.ListBox1.Height < Me.ListBox1.ListCount * 14 Then
        Me.ListBox1.Height = Me.ListBox1.ListCount * 14
        Me.Height = Me.ListBox1.Height + 40
    End If
End Sub

这是它应该看起来的样子:

出现问题时，它的外观如下:

Answer 1

首先使您的用户窗体更大，然后是您的列表框

If Me.ListBox1.Height < Me.ListBox1.ListCount * 14 Then
    Me.Height = Me.ListBox1.Height * 14 + 40
    Me.ListBox1.Height = Me.Height - 40

 End If