帮忙看下代码，用VB在excel第2列查找并在VB显示相应行第一列的内容 - 编程论坛

#2

约定的童话2021-08-24 19:38

EXCEL对象切入进去了没？120是文本还是数字？

#3

lliiss6812021-08-25 08:41

回复 2楼约定的童话

你好！我现在EXCEL能切入进去了，120是数字，也能MSG了，就是还有一点，符合条件的结果不止一个，怎么让TEXTBOX同时显示出来结果啊，multiline设成true了，ScrollBars = 2
ROW_COUNT = xlApp.ActiveSheet.UsedRange.Rows.Count
Do While i < ROW_COUNT
i = i + 1
If Cells(i, 2) = 28 Then
Me.Text1.Text = xlSheet.Cells(i, 1).Value
End If
Loop
End Sub
这是我写的循环语句，每次搜到第一个结果就显示一个结果就完了，有什么办法可以把所有搜索结果显示出来吗？

#4

约定的童话2021-08-25 09:53

If Cells(i, 2) = 28 Then
s=s + "," + xlSheet.Cells(i, 1).Value
End If
Me.Text1.Text =s

#5

lliiss6812021-08-25 14:19

回复 4楼约定的童话

哇，感谢大神

已经成功啦，谢谢

#6

lliiss6812021-09-03 08:41

回复 4楼约定的童话

问下大神，就是我实现了TEXTBOX 输出excel的多行结果，怎么在这个过程中msgbox出TEXTBOX里搜索到的第一个结果呢？