我正在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] 删除。
我来说两句