将项目添加到列表框

时间:2017-03-10 10:29:11

标签: vba listbox add lines

我可以将文本框中的特定行添加到列表框中,如下所示:

        ListBox1.Items.Add(TextBox1.Lines(0))
        ListBox1.Items.Add(TextBox1.Lines(1))
        ListBox1.Items.Add(TextBox1.Lines(2))
        ListBox1.Items.Add(TextBox1.Lines(3))
        ListBox1.Items.Add(TextBox1.Lines(4))
        ListBox1.Items.Add(TextBox1.Lines(5))
        ListBox1.Items.Add(TextBox1.Lines(6))
        ListBox1.Items.Add(TextBox1.Lines(7))
        ListBox1.Items.Add(TextBox1.Lines(8))

有更简单的方法吗?从line0到line50? 注释:不是所有行。

1 个答案:

答案 0 :(得分:0)

这会解决您的问题吗?

For i = 0 To 50
  If i <> 10 And i <> 20 Then
    ListBox1.Items.Add(TextBox1.Lines(i))
  End If
Next i

=&GT;这将添加除第10行和第20行之外的所有项目。