Excel VBA +根据ComboBox中的值返回TextBox中的多行

斯凯普

我正在Excel中编写VBA代码,以基于在ComboBox中选择的值来完成将多行添加到TextBox中的操作。这是我编写的以下代码。它仅列出我的最后一行,而不列出我想要的所有行。前任。第76列是ComboBox将在其中显示值的位置。如果值匹配,那么它应该在文本框中返回我在列77中找到的所有值。即,如果我在ComboBox BFSI中选择,它应该返回我印度和SBI的LIC。但是我的代码仅返回SBI。

在此处输入图片说明

Private Sub ComboBox22_Change()
    'Variable Declaration
    Dim iRow, StartLine, EndLine As Integer
    EndLine = 50
    iRow = 6

    'Clear Combobox2 before loading items
    TextBox21.Text = ""
    For StartLine = 1 To EndLine
        If ComboBox22.Text = Sheets("Pivots").Cells(iRow, 76) Then
                TextBox21.Text = Sheets("Pivots").Cells(iRow, 77)
        End If
        iRow = iRow + 1
    Next StartLine

End Sub
尼古拉斯·希

是的,您的代码将执行此操作。问题在于,当到达第二个“ BFSI”单元格时,它将覆盖列77中的第一项,而不是附加它。更改此行

TextBox21.Text = Sheets("Pivots").Cells(iRow, 77)

TextBox21.Text = TextBox21.Text & "&" & Sheets("Pivots").Cells(iRow, 77)

然后,来自第77列的值将附加到您的TextBox值。在我的示例中,它们将用&符号分隔,以适应您的需求。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章