“列表框末尾的空白项”

Question

我正在使用Excel2007。我刚刚开始学习一些vba来改进我的电子表格。当用数组填充列表框时，列表底部会出现一个空白区域。

如果我用电子表格中的某个范围填充列表框，那么一切似乎都还可以。但是当使用数组时，在底部添加一个空白项。因此，当我将ListStyle设置为1时，列表的底部有一个附加的选项按钮或带有空格的复选框。有办法解决这个问题吗？

Private Sub UserForm_Initialize()

    Dim myArray(5) As String

    myArray(0) = "January"
    myArray(1) = "February"
    myArray(2) = "March"
    myArray(3) = "April"
    myArray(4) = "May"

    With ListBox1
        .ColumnCount = 1
        .ColumnWidths = "60"
        .List = myArray
    End With

    With ListBox2
        .ColumnCount = 1
        .ColumnWidths = "60"
        .List = Range("Months").Value
    End With

End Sub

Answer 1

newWin.document.write(responseText);

这不会创建包含5个项目的数组；它创建一个数组，其隐含的下界为Dim myArray(5) As String ，显式的上限为0，使该数组可容纳6个项目...

5

...最后一个留有其默认初始值的空字符串。

声明明确的下限和上限：

myArray(0) = "January"
myArray(1) = "February"
myArray(2) = "March"
myArray(3) = "April"
myArray(4) = "May"

“底部的空白项目”应该消失。